Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Hide/Unhide колонки при нажатии кнопки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Hide/Unhide колонки при нажатии кнопки (Макросы/Sub)
Hide/Unhide колонки при нажатии кнопки
Oh_Nick Дата: Понедельник, 31.08.2020, 15:02 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 125
Репутация: 0 ±
Замечаний: 0% ±

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

На двух листах есть кнопка Forwarder. Нужно, чтобы при ее нажатии скрывался и открывалась колонка F.
К сообщению приложен файл: Local_estimatio.xlsx(164.8 Kb)
 
Ответить
СообщениеРебята, помогите прописать несложный макрос. Задача такая:

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

Автор - Oh_Nick
Дата добавления - 31.08.2020 в 15:02
Nic70y Дата: Понедельник, 31.08.2020, 15:12 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 6504
Репутация: 1429 ±
Замечаний: 0% ±

ru13;10;03
[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]


Яндекс Деньги 41001841029809
 
Ответить
Сообщение[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]

Автор - Nic70y
Дата добавления - 31.08.2020 в 15:12
Oh_Nick Дата: Понедельник, 31.08.2020, 15:23 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 125
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Спасибо, все работает!
 
Ответить
СообщениеСпасибо, все работает!

Автор - Oh_Nick
Дата добавления - 31.08.2020 в 15:23
Oh_Nick Дата: Понедельник, 31.08.2020, 15:24 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 125
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Oh_Nick
Дата добавления - 31.08.2020 в 15:24
Nic70y Дата: Понедельник, 31.08.2020, 15:28 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 6504
Репутация: 1429 ±
Замечаний: 0% ±

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


Яндекс Деньги 41001841029809
 
Ответить
Сообщениев начале макроса нужно снять пароль,
в конце установить
http://www.excelworld.ru/forum/10-16229-1#135324

Автор - Nic70y
Дата добавления - 31.08.2020 в 15:28
Oh_Nick Дата: Понедельник, 31.08.2020, 15:35 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 125
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Спасибо!

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

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

Автор - Oh_Nick
Дата добавления - 31.08.2020 в 15:35
Nic70y Дата: Понедельник, 31.08.2020, 15:49 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 6504
Репутация: 1429 ±
Замечаний: 0% ±

ru13;10;03
- не получится?
не получится
что при нажатии на кнопку он снимает пароль и показывает мне колонку
и тут же ставит пароль


Яндекс Деньги 41001841029809
 
Ответить
Сообщение
- не получится?
не получится
что при нажатии на кнопку он снимает пароль и показывает мне колонку
и тут же ставит пароль

Автор - Nic70y
Дата добавления - 31.08.2020 в 15:49
Oh_Nick Дата: Понедельник, 31.08.2020, 16:21 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 125
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Не ставит почему-то.
К сообщению приложен файл: Local_estimatio.xlsm(170.6 Kb)
 
Ответить
СообщениеНе ставит почему-то.

Автор - Oh_Nick
Дата добавления - 31.08.2020 в 16:21
Nic70y Дата: Понедельник, 31.08.2020, 16:51 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 6504
Репутация: 1429 ±
Замечаний: 0% ±

ru13;10;03
[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]


Яндекс Деньги 41001841029809
 
Ответить
Сообщение[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]

Автор - Nic70y
Дата добавления - 31.08.2020 в 16:51
Oh_Nick Дата: Понедельник, 31.08.2020, 17:02 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 125
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Супер, спасибо!
 
Ответить
СообщениеСупер, спасибо!

Автор - Oh_Nick
Дата добавления - 31.08.2020 в 17:02
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Hide/Unhide колонки при нажатии кнопки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!