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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как заставить работать кнопку на защищенном листе? (Макросы/Sub)
Как заставить работать кнопку на защищенном листе?
Sancho Дата: Понедельник, 30.05.2016, 10:32 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 279
Репутация: 19 ±
Замечаний: 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 (29.4 Kb)
 
Ответить
СообщениеВсем привет.
Очередная проблема: не работает кнопка на защищенном листе. вшил код который позволяет работать макросу на защищенном листе при активации этого листа
[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
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 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 (28.4 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
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
Группа: Проверенные
Ранг: Обитатель
Сообщений: 279
Репутация: 19 ±
Замечаний: 0% ±

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

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