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

Вход

Регистрация

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

 

= Мир MS Excel/Как заставить работать кнопку на защищенном листе? - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как заставить работать кнопку на защищенном листе? (Макросы/Sub)
Как заставить работать кнопку на защищенном листе?
Sancho Дата: Понедельник, 30.05.2016, 10:32 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 0% ±

2007, 2010, 2013
Всем привет.
Очередная проблема: не работает кнопка на защищенном листе. вшил код который позволяет работать макросу на защищенном листе при активации этого листа
[vba]
Код
Const PWD = "1"
Private Sub Worksheet_activate()
Me.Protect Password:=PWD, UserInterfaceOnly:=1, DrawingObjects:=1, Contents:=1, Scenarios:=1, _
             AllowFormattingCells:=1, AllowInsertingRows:=0, AllowDeletingRows:=0, AllowFiltering:=1, AllowFormattingRows:=1
End Sub
[/vba]
, но например если выйти с сохранением на листе "gyj" а затем снова открыть книгу кнопка все равно не работает. срабатывает только когда активируем другой лист а затем возвращаемся обратно на лист "gyj"
пароль листа "1"
Прошу направьте на путь истинный...
К сообщению приложен файл: CountColorButt.xlsm(29Kb)
 
Ответить
СообщениеВсем привет.
Очередная проблема: не работает кнопка на защищенном листе. вшил код который позволяет работать макросу на защищенном листе при активации этого листа
[vba]
Код
Const PWD = "1"
Private Sub Worksheet_activate()
Me.Protect Password:=PWD, UserInterfaceOnly:=1, DrawingObjects:=1, Contents:=1, Scenarios:=1, _
             AllowFormattingCells:=1, AllowInsertingRows:=0, AllowDeletingRows:=0, AllowFiltering:=1, AllowFormattingRows:=1
End Sub
[/vba]
, но например если выйти с сохранением на листе "gyj" а затем снова открыть книгу кнопка все равно не работает. срабатывает только когда активируем другой лист а затем возвращаемся обратно на лист "gyj"
пароль листа "1"
Прошу направьте на путь истинный...

Автор - Sancho
Дата добавления - 30.05.2016 в 10:32
_Boroda_ Дата: Понедельник, 30.05.2016, 10:39 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 9346
Репутация: 3922 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
В модуле листа
[vba]
Код
Sub tt()
    Me.Protect Password:=PWD, UserInterfaceOnly:=1, DrawingObjects:=1, Contents:=1, Scenarios:=1, _
             AllowFormattingCells:=1, AllowInsertingRows:=0, AllowDeletingRows:=0, AllowFiltering:=1, AllowFormattingRows:=1
End Sub

Private Sub Worksheet_activate()
tt
End Sub
[/vba]
В модуле книги
[vba]
Код
Private Sub Workbook_Open()
Лист1.tt
End Sub
[/vba]
К сообщению приложен файл: CountColorButt_.xlsm(28Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
В модуле листа
[vba]
Код
Sub tt()
    Me.Protect Password:=PWD, UserInterfaceOnly:=1, DrawingObjects:=1, Contents:=1, Scenarios:=1, _
             AllowFormattingCells:=1, AllowInsertingRows:=0, AllowDeletingRows:=0, AllowFiltering:=1, AllowFormattingRows:=1
End Sub

Private Sub Worksheet_activate()
tt
End Sub
[/vba]
В модуле книги
[vba]
Код
Private Sub Workbook_Open()
Лист1.tt
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 30.05.2016 в 10:39
Sancho Дата: Понедельник, 30.05.2016, 10:49 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 0% ±

2007, 2010, 2013
_Boroda_, Спасибо так. hands
 
Ответить
Сообщение_Boroda_, Спасибо так. hands

Автор - Sancho
Дата добавления - 30.05.2016 в 10:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как заставить работать кнопку на защищенном листе? (Макросы/Sub)
Страница 1 из 11
Поиск:

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