Hide/Unhide колонки при нажатии кнопки

Дата: Понедельник, 31.08.2020, 15:02 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

Репутация: 8 ±

Замечаний: 20% ±

Excel 2019

Ребята, помогите прописать несложный макрос. Задача такая:

На двух листах есть кнопка Forwarder. Нужно, чтобы при ее нажатии скрывался и открывалась колонка F.

К сообщению приложен файл: Local_estimatio.xlsx (164.8 Kb)

Дата: Понедельник, 31.08.2020, 15:12 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Sub u_791()
    u = Columns("F").EntireColumn.Hidden
    If u Then
        Columns("F").EntireColumn.Hidden = False
    Else
        Columns("F").EntireColumn.Hidden = True
    End If
End Sub

[/vba]

ЮMoney 41001841029809

Дата: Понедельник, 31.08.2020, 15:23 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

Репутация: 8 ±

Замечаний: 20% ±

Excel 2019

Спасибо, все работает!

Дата: Понедельник, 31.08.2020, 15:24 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

Репутация: 8 ±

Замечаний: 20% ±

Excel 2019

А если допустим я поставлю пароль на лист, можно ли сделать, чтобы он также открывал?

Дата: Понедельник, 31.08.2020, 15:28 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

в начале макроса нужно снять пароль,
в конце установить
http://www.excelworld.ru/forum/10-16229-1#135324

ЮMoney 41001841029809

Дата: Понедельник, 31.08.2020, 15:35 | Сообщение № 6

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

Репутация: 8 ±

Замечаний: 20% ±

Excel 2019

Спасибо!

Получается, что при нажатии на кнопку он снимает пароль и показывает мне колонку. А сделать, чтобы показывал колонку но не снимал пароль - не получится?

Дата: Понедельник, 31.08.2020, 15:49 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

Цитата Oh_Nick, 31.08.2020 в 15:35, в сообщении № 6 ()

- не получится?

не получится

Цитата Oh_Nick, 31.08.2020 в 15:35, в сообщении № 6 ()

что при нажатии на кнопку он снимает пароль и показывает мне колонку

и тут же ставит пароль

ЮMoney 41001841029809

Дата: Понедельник, 31.08.2020, 16:21 | Сообщение № 8

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

Репутация: 8 ±

Замечаний: 20% ±

Excel 2019

Не ставит почему-то.

К сообщению приложен файл: Local_estimatio.xlsm (170.6 Kb)

Дата: Понедельник, 31.08.2020, 16:51 | Сообщение № 9

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Sub u_791()
    ActiveSheet.Unprotect Password:="56"
    u = Columns("F").EntireColumn.Hidden
    If u Then
        Columns("F").EntireColumn.Hidden = False
    Else
        Columns("F").EntireColumn.Hidden = True
    End If
    ActiveSheet.Protect Password:="56"
End Sub

[/vba]

ЮMoney 41001841029809

Дата: Понедельник, 31.08.2020, 17:02 | Сообщение № 10

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

Репутация: 8 ±

Замечаний: 20% ±

Excel 2019

Супер, спасибо!