KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Как одновременно защитить несколько листов в 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, чтобы запустить код, и введите пароль для защищённых листов в появившемся окне. См. скриншот:

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

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

Снимок экрана с подтверждением пароля для защиты нескольких листов в Excel

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

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

Иногда нужно защитить не все листы в книге, а только определённые. В этом случае приведённый выше код не подойдёт. Однако с помощью утилиты Kutools для Excel и функции «Защита листа» можно быстро и легко защитить как все листы, так и только выбранные.

Kutools для Excelпредлагает более 300 расширенных функций для упрощения сложных задач, повышая креативность и эффективность.Интегрировано с возможностями ИИ, Kutools автоматизирует задачи с высокой точностью, делая управление данными простым и удобным.Подробная информация о Kutools для Excel…         Бесплатная пробная версия…

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

1. Нажмите KUTOOLS PLUS > Защита листа. См. скриншот:

Снимок экрана функции «Защитить лист» Kutools в Excel

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

Снимок экрана с выделенными листами для защиты

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

Снимок экрана диалогового окна подтверждения пароля для защиты нескольких листов

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

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

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

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

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

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

2. Затем нажмите KUTOOLS PLUS > Снятие защиты с листа. См. скриншот:

Снимок экрана функции «Снять защиту с листа» на вкладке Kutools на ленте

3. В диалоговом окне «Снятие защиты с листа» защищённые листы отображаются в списке. Нажмите кнопку ОК. См. скриншот:

Снимок экрана списка защищённых листов в диалоговом окне «Снять защиту с листа»

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

Снимок экрана запроса ввода пароля для снятия защиты с нескольких листов

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

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

Подробнее о функции «Снятие защиты с листа».

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

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

Kutools для Excel: Более 300 удобных инструментов всегда под рукой! Воспользуйтесь функциями на базе ИИ для более умной и быстрой работы!Скачать сейчас!

См. также:

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

Лучшие инструменты повышения продуктивности в Office

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции…
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул…
Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий…
Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором…
Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов…
Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
Лучшие наборы инструментов 15:12 Текстовыеинструменты(Добавить текст,Удалить определенные символы, …)|   50+Типыдиаграмм(Диаграмма Ганта, …)|   40+ Практические формулы(Рассчитать возраст на основе даты рождения, …)|   19 Инструментывставки(Вставить QR-код,Вставка изображения по пути, …)|   12 Инструментыпреобразования(Преобразовать в слова,Конвертация валют, …)|   7 Объединить и разделитьИнструменты(Расширенное объединение строк,Разделить ячейки, …)|… и многое другое
Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…

Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
  • Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек