Добрый день, господа!
Есть необходимость работы со структурой (группировкой) при защищенном листе.
На параллельных сайтах нашел вот такой код:
[vba]Код
Private Sub Workbook_Open()
Dim wsSh As Object
For Each wsSh In Me.Worksheets
Protect_and_Structure wsSh
Next wsSh
End Sub
Sub Protect_and_Structure(wsSh As Worksheet)
wsSh.Unprotect
wsSh.EnableOutlining = True
wsSh.Protect Contents:=True, Scenarios:=True, UserinterfaceOnly:=True
End Sub
[/vba]
, но он не совсем подходит. Не нужно никаких всплывающих запросов паролей при открытии книги и т.д.
Нужен просто кусок кода, который можно положить в модуль книги или листа (без разницы), дающий возможность работать со структурой, когда листы защищены.
Спасибо заранее!