Как защитить несколько листов одновременно в Excel?

Предположим, у вас есть книга, которая содержит несколько листов, и теперь вам нужно защитить все листы или некоторые определенные листы. Обычно в Excel вы можете защитить каждый лист по отдельности с помощью функции Защитить лист, но этот метод утомителен и занимает много времени, если нужно защитить множество листов. Как быстро и легко защитить несколько листов одновременно в Excel?

Защитите все листы сразу с помощью кода VBA

Защитите несколько листов одновременно с помощью Kutools для Excel

Снимите защиту с нескольких листов одновременно с помощью Kutools для Excel

Защитите все листы сразу с помощью кода VBA

С помощью следующего кода VBA вы можете защитить все листы активной книги одновременно одним и тем же паролем, сделайте следующее:

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Щелкните Вставить > Модуль и вставьте следующий код в окно модуля.

Код VBA: Защитите все листы в книге одновременно:

Sub protect_all_sheets()
top: 
pass = InputBox("password?") 
repass = InputBox("Verify Password") 
If Not (pass = repass) Then 
MsgBox "you made a boo boo" 
Goto top 
End If 
For i = 1 To Worksheets.Count 
If Worksheets(i).ProtectContents = True Then Goto oops 
Next 
For Each s In ActiveWorkbook.Worksheets 
s.Protect Password:=pass 
Next 
Exit Sub 
oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets then running this Macro." 
End Sub

3. Затем нажмите клавишу F5, чтобы запустить код, и введите пароль для защищаемых листов в появившемся диалоговом окне, см. скриншот:

4. Нажмите ОК, затем снова введите пароль для подтверждения.

5. Затем нажмите ОК, и все листы будут защищены одним и тем же паролем.

Защитите несколько листов одновременно с помощью Kutools для Excel

Иногда вы не хотите защищать все листы в своей книге, а только некоторые определенные листы; в такой ситуации приведенный выше код не будет работать. Но с помощью утилиты Защитить лист из Kutools для Excel вы можете быстро и легко защитить как все листы, так и конкретные листы.

После установки Kutools для Excel выполните следующие шаги:

1. Щелкните Kutools Plus > Защитить лист, см. скриншот:

2. В диалоговом окне Защитить лист выберите листы, которые вы хотите защитить. (По умолчанию все рабочие листы в текущей книге отмечены.) См. скриншот:

3. Нажмите ОК, затем введите и подтвердите пароль в диалоговом окне Защитить лист. См. скриншот:

4. Затем нажмите ОК, выбранные рабочие листы будут защищены.

Щелкните Защитить лист, чтобы узнать больше об этой функции.

Снять защиту с нескольких листов одновременно с помощью Kutools для Excel

Как можно снять защиту с нескольких защищенных рабочих листов в книге одновременно? Конечно, Kutools для Excel также предоставляет утилиту Снять защиту с листа, чтобы вы могли снять защиту с них одновременно.

Выполните следующие действия:

1. Откройте свою книгу, содержащую защищенные рабочие листы.

2. Затем щелкните Kutools Plus > Снять защиту с листа, см. скриншот:

3. В диалоговом окне Снять защиту с листа защищенные листы перечислены в списке, затем нажмите кнопку ОК, см. скриншот:

4. Затем появится диалоговое окно Снять защиту с листа, напоминающее вам ввести пароль, который вы создали для защиты рабочих листов, см. скриншот:

5. После ввода пароля нажмите ОК, все отмеченные рабочие листы в списке будут разблокированы.

Примечание: Рабочие листы должны иметь одинаковый пароль.

Чтобы узнать больше о функции Снять защиту с листа.

Демонстрация: Защитить или снять защиту со всех рабочих листов одновременно с помощью Kutools для Excel

Связанная статья:

Как снять защиту с нескольких рабочих листов одновременно в Excel?