Во-первых, спасибо за помощь!
Во-вторых еще раз здравствуйте, Уважаемые знатоки!
Есть код на установление пароля на листах активной книги. Буду безумно благодарен, если кто-то подскажет, как его унифицировать. В идеале, чтобы выскакивало окно, в которое бы вводился пароль, который бы защищал все листы и соответственно наоборот снимал защиту.
Sub ProtectAllSheets()
'защита на все листы
Dim Sh As Worksheet
lReply = MsgBox("Защитить лист?", vbYesNo + vbQuestion)
If lReply = vbYes Then
For Each Sh In ActiveWorkbook.Sheets
Sh.Protect Password:="7807778", Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
Next
MsgBox "Все листы защищены!", vbInformation, "Защита"
End If
End Sub
Sub UnProtectAllSheets()
'нет защиты
Dim Sh As Worksheet
lReply = MsgBox("Снять защиту?", vbYesNo + vbQuestion)
If lReply = vbYes Then
For Each Sh In ActiveWorkbook.Sheets
Sh.Unprotect ("7807778")
Next
MsgBox "Защита снята!", vbInformation, "Защита"
End If
End Sub