Всем доброй ночи!
Плиз, подскажите, что надо изменить в коде чтобы защищалась вся книга, кроме одного листа. на нем сводная таблица, а на защищенном листе сводная не обновляется.
лист и так защищен тем, что скрыт без возможности отобразить.


Private Sub Workbook_Open()
Dim wsSh As Object
For Each wsSh In Me.Sheets
Protect_and_Structure wsSh
Next wsSh
End Sub
Sub Protect_and_Structure(wsSh As Object)
wsSh.Unprotect "15937"
wsSh.EnableOutlining = True
wsSh.Protect Password:="15937", Contents:=True, Scenarios:=True, UserinterfaceOnly:=True, AllowFiltering:=True, AllowFormattingCells:=True, AllowSorting:=True, AllowUsingPivotTables:=True

End Sub

ничего не понимаю.
что не так? лист все равно защищается.

Private Sub Workbook_Open()
Dim wsSh As Object
For Each wsSh In Me.Sheets
If wsSh.Name <> "прайс" Then Protect_and_Structure wsSh
Next wsSh
End Sub

Sub Protect_and_Structure(wsSh As Object)
wsSh.Unprotect "15937"
wsSh.EnableOutlining = True
wsSh.Protect Password:="15937", Contents:=True, Scenarios:=True, UserinterfaceOnly:=True, AllowFiltering:=True, AllowFormattingCells:=True, AllowSorting:=True, AllowUsingPivotTables:=True

End Sub

LediJuliya,
тема закрыта.
я бестолочь