Защитить всю книгу с помощью нескольких листов с помощью макроса

Question

Я хочу защитить всю книгу, в которой есть несколько листов. Защита должна быть применена ко всем листам. Есть ли способ сделать это?

Answer 1

Вы можете начать отсюда:

Sub protect()
Dim s As String
Dim ws As Worksheet
s = InputBox("Enter Password", "Protection", "")
For Each ws In ThisWorkbook.Worksheets
    ws.protect s
Next ws
ThisWorkbook.protect s
End Sub

Sub unprotect()
Dim s As String
Dim ws As Worksheet
s = InputBox("Enter Password", "Protection", "")
For Each ws In ThisWorkbook.Worksheets
    ws.unprotect s
Next ws
ThisWorkbook.unprotect s
End Sub

Изменить для использования с другими рабочими книгами и / или паролями.