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

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

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

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

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

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

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

1. Удерживайте ALT + F11 ключи, и он открывает Microsoft Visual Basic для приложений окно.

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. Нажмите OK, а затем введите пароль еще раз, чтобы подтвердить пароль.

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

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

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

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

1. Нажмите Кутулс Плюс > Защитить лист, см. снимок экрана:

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

3, И нажмите OK, а затем введите и подтвердите пароль в диалоговом окне «Защита рабочего листа». Смотрите скриншот:

4. Затем нажмите OK, выбранные листы защищены.

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

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

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

Пожалуйста, сделайте следующие шаги:

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

2. Затем нажмите Кутулс Плюс > Снять защиту листа, см. снимок экрана:

3. В Снять защиту листа диалоговое окно, защищенные листы заносятся в список, затем щелкните Ok кнопку, см. снимок экрана:

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

5. После ввода пароля нажмите Ok, все отмеченные листы в списке не защищены.

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

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

Демо: защитите или снимите защиту со всех листов одновременно с помощью Kutools for Excel

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

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