Снятие Защиты с листов, сразу со всех

[valerij]

Можно как то снять(поставить) Защиту листов, сразу со всех, а не по одному. Если их, листов, 15 и >>, утомительно.

[Pavel55]

может так?

Sub ProtectAllSheets()
'защищаем все листы
Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Sheets
        Sh.Protect Password:="12345", Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
    Next
    MsgBox "Все листы защищены!", vbInformation, "Защита"
End Sub

Sub UnProtectAllSheets()
'снимаем защиту со всех листов
Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Sheets
        Sh.Unprotect Password:="12345"
    Next
    MsgBox "Защита с листов снята!", vbInformation, "Защита"
End Sub

P.S. можно написать лишь одну процедуру, которая будеть проверять, если лист защищён, то снимет защиту, а если лист не защищён, то поставит.

[valerij]

Спасибо, разобрался, класс!