Макросы на установку защиты сгруппированных листов

Вход

Регистрация

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

= Мир MS Excel/Макросы на установку защиты сгруппированных листов - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Готовые решения » Макросы на установку защиты сгруппированных листов (Защита сгруппированных листов)

Макросы на установку защиты сгруппированных листов

Janis

Дата: Понедельник, 08.10.2012, 16:22 | Сообщение № 1

Группа: Гости

Может кому пригодится-просто и удобно!!!
Код позволяет пользоваться группировкой (символы плюс-минус для сворачивания-разворачивания строк и столбцов) на всей защищенной книге!!!

[vba]

Code

Private Sub Workbook_Open()
Dim ProtectAllSheets()
Dim MyPassWord As String
Dim wsh As Worksheet
MyPassWord = "123456"
For Each wsh In ThisWorkbook.Worksheets
wsh.EnableOutlining = True
wsh.Protect Password:=MyPassWord, _
DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFiltering:=True, UserInterfaceOnly:=True
Next
End Sub

[/vba]

Код вставляется в основу самой книги.

Ответить

Страница 1 из 1
1