Note: The other languages of the website are Google-translated. Back to English

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

док-защита-несколько-листов1-1

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

док-защита-несколько-листов2-2

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


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

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

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 60 дней

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

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

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

док-защита-несколько-листов4-4

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

док-защита-несколько-листов5-5

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

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


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

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

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

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

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

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

док-защита-несколько-листов7-7

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

док-защита-несколько-листов8-8

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

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

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

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


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

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

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

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


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (21)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Отлично, так как же снять защиту сразу со всех? Я любитель, поэтому мне нужно больше информации.
Этот комментарий был сведен к минимуму модератором на сайте
[quote]Отлично, так как же снять защиту сразу со всех? Я любитель, поэтому мне нужно больше информации.Кристин Дзуган[/quote] :-) Вы можете легко снять с них защиту как http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
Этот комментарий был сведен к минимуму модератором на сайте
Sub unprotect_all_sheets() top: pass = InputBox("пароль?") repass = InputBox("Подтвердить пароль") If Not (pass = repass) Then MsgBox "you made boo boo" GoTo top End If For i = 1 To Worksheets .Count Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "Я думаю, что у вас уже есть несколько листов, которые уже защищены. Снимите защиту со всех листов B4, на которых запущен этот макрос." Конец сабвуфера
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо :-)
Этот комментарий был сведен к минимуму модератором на сайте
Как сказала Кристин, как снять защиту сразу со всех?
Этот комментарий был сведен к минимуму модератором на сайте
Итак, как мне снять защиту без kutools?
Этот комментарий был сведен к минимуму модератором на сайте
[quote]Итак, как снять защиту без kutools?По cz[/quote] Вы можете снять защиту с рабочего листа без Kutools for Excel. Вам просто нужно щелкнуть правой кнопкой мыши вкладку листа, которую вы хотите снять с защиты, и выбрать команду «Снять защиту листа», а затем ввести свой пароль. :-)
Этот комментарий был сведен к минимуму модератором на сайте
когда я ввожу код, он появляется с ошибкой времени выполнения 1004?
Этот комментарий был сведен к минимуму модератором на сайте
У меня тоже внезапно появляется ошибка 1004. Я использую макрос в течение нескольких месяцев, но теперь он не запускается.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, у меня тоже была эта проблема. Оказывается, он не может работать, если в книге выбраны все листы. Попробуйте выбрать только один лист, а затем запустить.
Этот комментарий был сведен к минимуму модератором на сайте
У меня внезапно возникла проблема с ошибкой 1004. Использую макрос в течение нескольких месяцев, теперь он случайным образом терпит неудачу.
Этот комментарий был сведен к минимуму модератором на сайте
У меня тоже внезапно появляется ошибка 1004. Кто-нибудь нашел решение?
Этот комментарий был сведен к минимуму модератором на сайте
когда я активировал этот VBA, гиперссылка не работает. как я могу заставить их работать? Спасибо :)
Этот комментарий был сведен к минимуму модератором на сайте
Благодарю вас! Это потрясающе, я даже смог изменить код VBA, чтобы снять защиту сразу со всех листов! :) Sub unprotect_all_sheets() top: pass = InputBox("пароль?") repass = InputBox("Подтвердить пароль") If Not (pass = repass) Then MsgBox "вы сделали бу-бу" GoTo top End If For i = 1 To Worksheets.Count Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "Я думаю, что у вас уже есть несколько листов, которые уже защищены. Снимите защиту со всех листов B4, на которых запущен этот макрос." Конец сабвуфера
Этот комментарий был сведен к минимуму модератором на сайте
Эй, мне нужна помощь, приведенный выше код был очень полезным, но он блокирует сортировку (также автоматический фильтр). Не могли бы вы предоставить код для решения этой проблемы, а также место, где он будет вставлен. Заранее спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
У меня есть вкладки диаграмм и рабочие листы в моей книге Excel 2013. Приведенное выше кодирование VBA работает для защиты рабочих листов, но не отдельных вкладок диаграммы. Как защитить паролем несколько вкладок диаграмм и несколько рабочих листов в моей книге? Спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, я использовал этот код, теперь он не примет мой пароль, чтобы вернуться в мою электронную таблицу!
Этот комментарий был сведен к минимуму модератором на сайте
Как скрыть пароль с помощью метода VBA? Я не могу найти эту информацию через файлы справки Google или F1. Заранее спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за чудо-полный инструмент для защиты и снятия защиты со всех листов одновременно. Пожалуйста, помогите мне. Я могу снять защиту со всех листов в моей рабочей книге за раз, но когда я запускаю защиту всех листов кода VBA, тогда только первые 4 листа защищены, а остальные или оставлены незащищенными. Пожалуйста, помогите мне разобраться в проблеме.
Этот комментарий был сведен к минимуму модератором на сайте
Я пытаюсь использовать это в общей книге, но получаю сообщение об ошибке Microsoft Visual Basic «Ошибка времени выполнения '1004»: ошибка, определяемая приложением или объектом». Я просто ищу предложения о том, как обойти это. Любой помощь будет оценена
Этот комментарий был сведен к минимуму модератором на сайте
Происходит, когда лист уже заблокирован
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL