всем добрый день!
помогите, кто может, пожалуйста!
есть такой вот код
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
wsSh.EnableOutlining = True
wsSh.Protect Password:="1234", Contents:=True, Scenarios:=True, UserinterfaceOnly:=True, AllowFiltering:=True, AllowFormattingCells:=True, AllowSorting:=True

End Sub
что надо поправить или добавить, чтобы при открытии книги не выдавалось окошко "снять защиту" (причем сколько листов столько раз выпадает окно)?
заранее спасибо.

Казанский,
спасибо за помощь!
все работает