Спасибо большое, очень помогло. Но у меня есть одна проблема - пароль вписывается на уровне макроса. Если пользователь, не знакомый с тем что такое макросы, решит поменять пароль (что возможно, когда табличка или форма уходит от "разработчика" начинает жить собственной жизнью), вся логика разрушится ) При следующем открытии книги выскочит непонятное для пользователя сообщение о том, что пароль неверный, он решит что все пропало и ничего не работает.
Можно же ведь макросом прописать изменение свойства EnableOutlining на True всех листов без "перепароливания" - снятия защиты и её новой установки? Т.е. какой бы пароль пользователь ни установил (стандартным способом) при следующем открытии книги на всех листах включается возможность пользования группировкой данных. Код будет что-то в этом роде
Вот только проблема в том, что в таком виде он не работает )) Я что-то неправильно делаю в коде или так сделать вообще нереально?
Можно же ведь макросом прописать изменение свойства EnableOutlining на True всех листов без "перепароливания" - снятия защиты и её новой установки? Т.е. какой бы пароль пользователь ни установил (стандартным способом) при следующем открытии книги на всех листах включается возможность пользования группировкой данных. Код будет что-то в этом роде
| Код |
|---|
Private Sub Workbook_Open() Dim wsSh As Object For Each wsSh In Me.Sheets Outlining wsSh Next wsSh End Sub Sub Outlining(wsSh As Object) wsSh.EnableOutlining = True End Sub |
Вот только проблема в том, что в таком виде он не работает )) Я что-то неправильно делаю в коде или так сделать вообще нереально?
Изменено: - 01.04.2013 22:58:33
