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

Предположим, у вас есть книга, содержащая несколько листов, и теперь вам нужно защитить все рабочие листы или некоторые конкретные рабочие листы, обычно в Excel вы можете защищать лист только один за другим с помощью функции Защитить лист, но этот метод утомителен и требует много времени, если необходимо защитить большое количество листов. Как быстро и легко защитить сразу несколько листов в 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 от Yhao сейчас!

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

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

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

В MS Excel нет команды, которая бы устанавливала защиту сразу на все листы рабочей книги. Поэтому я сделал такую команду в надстройке ЁXCEL.

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

В Excel предусмотрена защита, которую можно добавить на рабочий лист командой Рецензирование → Защитить лист (Review → Protect Sheet). Можно также указать пароль, чтобы другой пользователь не смог снять защиту листа и получить доступ к данным, не зная пароля. Иногда, однако, бывает необходимо включить или снять защиту паролем для всех рабочих листов в рабочей книге за один шаг, так как выполнение этой задачи для каждого рабочего листа по отдельности — очень скучная и долгая работа. Вот как можно упростить задачу.

Откройте рабочую книгу, в которую хотите поместить этот код, или выберите команду Файл → Открыть (File → Open) и отобразите файл Personal.xls, чтобы макрос был доступен в любой рабочей книге. Выберите команду Разработчик → Редактор Visual Basic (Developer → Visual Basic Editor) (сочетание клавиш Alt/Option+Fll) и в VBE выберите команду Insert → UserForm. Должна появиться панель инструментов Control. Если панель не открылась, выберите команду View → Toolbox.

На панели инструментов выберите текстовое поле (TextBox, обозначенное как ab|). Щелкните форму UserForm, чтобы добавить на нее текстовое поле. Поместите поле в левый верхний угол формы и отрегулируйте его размер. Удостоверьтесь, что текстовое поле выделено, и выберите команду View → Properties (клавиша F4). Прокрутите список в окне Properties для этого текстового поля, пока не увидите пункт PasswordChar, и в белом поле справа введите звездочку (*); На панели инструментов выберите элемент CommandButton, щелкните форму UserForm и поместите командную кнопку в правом верхнем углу формы.

Не снимая выделения кнопки CommandButton, выберите команду View → Properties (клавиша R). Прокрутите список в окне Properties для командной кнопки, пока не увидите пункт Caption, и в белом поле справа введите текст ОК. Если вы пользуетесь Excel 97, прокрутите еще дальше до пункта TakeFocusOnClick и выберите для этого свойства значение False. Теперь выделите форму UserForm и в окне Properties для нее найдите пункт Caption. Измените значение этого свойства на Protect/Unprotect all sheets.

Выберите команду View → Code (клавиша F7) и введите код, показанный в листинге 7.16.

1
2
3
4
5
6
7
8
9
10
11
12

//Листинг 7.16
Private Sub CommandButtonl_Click()
Dim wSheet As Worksheet
	For Each wSheet In Worksheets
		If wSheet.ProtectContents = True Then
			wSheet.Unprotect Password:=TextBox1.Text
		Else
			wSheet.Protect Password:=TextBox1.Text
		End If
	Next wSheet
	Unload me
End Sub

Этот код обрабатывает все рабочие листы активной рабочей книги. Если один из них защищен, он снимает защиту, используя пароль, который вы ввели в текстовое поле. Если защита рабочего листа уже снята, макрос защищает его, используя пароль в текстовом поле. Теперь выберите команду Insert → Module и введите код из листинга 7.17. Он необходим, чтобы открыть форму UserForm. Закройте окно, чтобы вернуться в Excel.

1
2
3
4

//Листинг 7.17
Sub ShowPass()
	UserForm1.Show
End Sub

Выберите команду Разработчик → Макросы (Developer → Macros) (сочетание клавиш Alt/Option+F8). Выберите ShowPass и щелкните кнопку Параметры (Options), чтобы назначить сочетание клавиш. Этот макрос снимет защиту всех защищенных рабочих листов и защитит незащищенные рабочие листы.

Так как этот макрос не запрашивает подтверждения пароля, необходимо вводить его точно. Иначе вы можете обнаружить, что одна опечатка смогла спрятать от вас все ваши электронные таблицы.

Если вы защищаете содержимое только от себя, следующий макрос позволит выполнять те же задачи с пустым паролем (листинг 7.18).

1
2
3
4
5
6
7
8
9
10
11
12
13

//Листинг 7.18
Option Explicit
 
Sub ProtectJJnprotect()
Dim wSheet As Worksheet
 
For Each wSheet In Worksheets
	With wSheet
		If .ProtectContents = True Then
			.Unprotect Passwords=""
		Else
			.Protect Password=""
		End If

Хотя это не очень безопасно, этот макрос, безусловно, удобен.

Skip to content

Sub ZaschititVseListi()
 'Шаг 1: Объявляем переменные
 Dim ws As Worksheet
 'Шаг : Запускаем цикл через все рабочие листы
 For Each ws In ActiveWorkbook.Worksheets
 'Шаг 3: Ставим защиту и переходим к следующему листу
 ws.Protect Password:="КРАСНЫЙ"
 Next ws
 End Sub

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

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

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

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

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

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

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

2 . Нажмите Insert > Module и вставьте следующий код в окно модуля .

Код VBA: защитите все рабочие листы в книге сразу:

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

. Нажмите OK , а затем снова введите пароль, чтобы подтвердить пароль.

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

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

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

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

1 . Нажмите Kutools Plus > Защитить рабочий лист , см. Снимок экрана:

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

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

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

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

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

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

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

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

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

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

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

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

Примечание. рабочие листы должны иметь один и тот же пароль.

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

Загрузите и бесплатная пробная версия Kutools for Excel прямо сейчас!

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

Kutools for Excel : с более чем 300 удобными надстройками Excel- ins, попробуйте бесплатно без ограничений в течение 30 дней. Скачать и бесплатную пробную версию прямо сейчас!

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