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

Як захистити декілька робочих аркушів одночасно в Excel?

Припустимо, у вас є книга, яка містить кілька аркушів, і тепер вам потрібно захистити всі аркуші або деякі конкретні аркуші, як правило, в Excel, ви можете захистити аркуш по одному лише за допомогою функції Protect Sheet, але цей метод є нудним і трудомісткий, якщо є багато аркушів, потрібно захищати. Як швидко та легко захистити декілька аркушів у Excel?

Захистіть усі аркуші відразу кодом VBA

Захистіть кілька аркушів одночасно за допомогою Kutools для Excel

Зніміть захист відразу декількох аркушів за допомогою kutools для Excel


стрілка синя права міхур Захистіть усі аркуші відразу кодом VBA

За допомогою наступного коду VBA ви можете захистити всі аркуші активної книги відразу тим же паролем, зробивши це так:

1. Утримуйте клавішу ALT + F11 і відкриває Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

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

doc-защита-кілька аркушів1-1

4. Клацання OK, а потім знову введіть пароль, щоб підтвердити пароль.

doc-защита-кілька аркушів2-2

5. Потім натисніть OK, а всі аркуші захищені однаковим паролем.


стрілка синя права міхур Захистіть кілька аркушів одночасно за допомогою Kutools для Excel

Іноді ви не хочете захищати всі аркуші у вашій книзі, а хочете захистити лише деякі конкретні аркуші, у цій ситуації наведений вище код не буде працювати. Але з Kutools для ExcelАвтора Захист робочого аркуша утиліта, ви можете швидко і легко захистити як всі аркуші, так і конкретні аркуші.

Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 60 днів

після установки Kutools для Excel, будь ласка, виконайте такі дії:

1. Клацання Kutools Plus > Захист робочого аркуша, див. скріншот:

2, в Захист робочого аркуша діалоговому вікні, виберіть аркуші, які потрібно захистити. (За замовчуванням перевіряються всі аркуші поточної книги.) Дивіться знімок екрана:

doc-защита-кілька аркушів4-4

3, І натисніть OK, а потім введіть і підтвердьте пароль у діалоговому вікні Protect Worksheet. Дивіться знімок екрана:

doc-защита-кілька аркушів5-5

4. Потім натисніть OK, вибрані робочі аркуші захищені.

Клацніть Захистити аркуш, щоб дізнатися більше про цю функцію.


стрілка синя права міхур Зніміть захист відразу декількох аркушів за допомогою kutools для Excel

Як можна одночасно зняти захист кількох захищених аркушів у книзі? Звичайно, Kutools для Excel також надає Зняти захист робочого аркуша утиліта для того, щоб відразу їх зняти з захисту.

Будь ласка, виконайте такі дії:

1. Відкрийте свою книгу, яка містить захищені аркуші.

2. Потім натисніть Kutools Plus > Зняти захист робочого аркуша, див. скріншот:

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

doc-защита-кілька аркушів7-7

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

doc-защита-кілька аркушів8-8

5. Після введення пароля натисніть Ok, усі перевірені робочі аркуші у полі списку були захищені.

Примітка: На робочих аркушах повинен бути однаковий пароль.

Щоб дізнатися більше про цю функцію Unprotect Worksheet.

Завантажте та безкоштовну пробну версію Kutools для Excel зараз!


стрілка синя права міхур Демонстрація: захистіть або скасуйте захист усіх робочих аркушів одночасно за допомогою Kutools для Excel

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

Пов'язана стаття:

Як зняти захист кількох аркушів одночасно в Excel?


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (21)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Чудово – як же не захистити їх усіх одночасно? Я любитель, тому мені потрібна більше інформації.
Цей коментар був мінімізований модератором на сайті
[quote]Чудово – як же не захистити їх усіх одночасно? Я любитель, тому мені потрібна більше інформації.Автор: Крістін Дзуган[/quote] :-) Ви можете легко зняти їх захист як http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
Цей коментар був мінімізований модератором на сайті
Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Perify Password") Якщо ні (pass = repass) Тоді MsgBox "ви зробили бух" GoTo top End If For i = 1 To Worksheets .Count Next For Every s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "Я думаю, що у вас є деякі аркуші, які вже захищені. Будь ласка, зніміть захист усіх аркушів B4, на яких запущено цей макрос." Кінець суб
Цей коментар був мінімізований модератором на сайті
Дуже дякую :-)
Цей коментар був мінімізований модератором на сайті
Як сказала Крістін, як зняти захист з усіх відразу?
Цей коментар був мінімізований модератором на сайті
Отже, як мені зняти захист без kutools?
Цей коментар був мінімізований модератором на сайті
[quote] Отже, як мені зняти захист без kutools?За cz[/quote] Ви можете зняти захист аркуша без Kutools для Excel. Вам просто потрібно клацнути правою кнопкою миші вкладку аркуша, яку потрібно зняти, і натисніть команду Зняти захист аркуша, а потім введіть свій пароль. :-)
Цей коментар був мінімізований модератором на сайті
коли я вводжу код, з'являється "помилка часу виконання 1004?? з виділенням жовтим кольором... s.Protect Password:=pass
Цей коментар був мінімізований модератором на сайті
У мене також раптом з'являється помилка 1004. Я використовував макрос кілька місяців, але тепер він не запускається.
Цей коментар був мінімізований модератором на сайті
Привіт, у мене теж була ця проблема. Виявляється, він не може працювати, якщо ви вибрали всі аркуші в книзі. Спробуйте вибрати лише один аркуш і запустити.
Цей коментар був мінімізований модератором на сайті
У мене раптом виникла проблема з помилкою 1004. Використовуючи макрос протягом місяців, він випадково виходить з ладу.
Цей коментар був мінімізований модератором на сайті
У мене також раптом з'являється помилка 1004. Хтось знайшов рішення?
Цей коментар був мінімізований модератором на сайті
коли я активував цей VBA, гіперпосилання не працює. як я можу змусити їх працювати? tnx :)
Цей коментар був мінімізований модератором на сайті
Дякую! Це чудово, я навіть зміг змінити код VBA, щоб я міг зняти захист з усіх аркушів одночасно! :) Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Perify Password") Якщо ні (pass = repass) Тоді MsgBox "ви зробили бух" GoTo top End Якщо For i = 1 To Worksheets.Count Next For Every s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "Я думаю, що у вас є деякі аркуші, які вже захищені. Будь ласка, зніміть захист усіх аркушів B4, на яких запущено цей макрос." Кінець суб
Цей коментар був мінімізований модератором на сайті
Привіт, мені потрібна допомога, наведений вище код був дуже корисним, але він блокує сортування (також автоматичний фільтр), будь ласка, надайте код, щоб вирішити цю проблему, а також куди він буде вставлений. Спасибі заздалегідь.
Цей коментар був мінімізований модератором на сайті
У моїй книзі Excel 2013 є вкладки діаграм і робочі аркуші. Наведене вище кодування VBA працює для захисту аркушів, але не для окремих вкладок діаграм. Як захистити паролем кілька вкладок діаграм і кілька аркушів у моїй книзі? Спасибі!
Цей коментар був мінімізований модератором на сайті
Привіт, я використав цей код, тепер він не приймає мій пароль, щоб повернутися до моєї електронної таблиці!!
Цей коментар був мінімізований модератором на сайті
Як замаскувати пароль за допомогою методу VBA? Я не можу знайти цю інформацію через файли довідки Google або F1. Спасибі заздалегідь!
Цей коментар був мінімізований модератором на сайті
Дякую за чудовий повний інструмент для захисту та зняття захисту всіх аркушів одночасно. Будь ласка, підкажіть, я можу зняти захист з усіх аркушів у своїй робочій книзі одночасно, але коли я запускаю захист усіх аркушів VBA Code, тоді лише перші 4 аркуші захищені та залишаються або залишаються незахищеними. Будь ласка, допоможіть мені вирішити проблему.
Цей коментар був мінімізований модератором на сайті
Я намагаюся використовувати це в спільній книзі, але я отримую помилку Microsoft Visual Basic "Помилка під час виконання '1004": помилка, визначена програмою або об'єктом" Я просто шукаю пропозицій щодо того, як це обійти. Будь-яка помилка. буде вдячна допомога
Цей коментар був мінімізований модератором на сайті
Відбувається, коли аркуш уже заблоковано
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL