Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як захистити декілька робочих аркушів одночасно в 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-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    George · 5 years ago
    I am trying to use this in a shared workbook but I get a Microsoft Visual Basic error "Run-time error '1004": Application-defined or object-defined error" I am just looking for suggestions on how to get around this. Any help would be appreciated
    • To post as a guest, your comment is unpublished.
      Roger Woolnough · 5 months ago
      Occurs when sheet is already locked
  • To post as a guest, your comment is unpublished.
    Geetha · 5 years ago
    Thanks for the wonder full tool to protect & unprotect all the sheets at a time.
    Please guide me I am able to unprotect all sheets in my work book at a time but when I run protect all sheets VBA Code then only first 4 sheets are protected & rest or left unprotected. Please help me to sort out the issue.
  • To post as a guest, your comment is unpublished.
    Mayhem · 6 years ago
    How do I mask the password using the VBA method?

    I can not find this information via google or F1 help files.

    Thanks in advance!
  • To post as a guest, your comment is unpublished.
    James MacPherson · 6 years ago
    Hi I used this code now I it wont accept my password to get back into my spreadsheet !!
  • To post as a guest, your comment is unpublished.
    S. Brown · 6 years ago
    I have chart tabs and worksheets in my Excel 2013 workbook. The VBA coding above works for the protecting the worksheets but not the separate chart tabs. How do i password protect the multiple chart tabs and multiple worksheets in my workbook? Thanks!
  • To post as a guest, your comment is unpublished.
    Zuber · 6 years ago
    Hey,

    I need some help, the above code was very helpful, but it locks the sort (auto filter as well) can you please provide code to solve that problem and also where it would be inserted.

    Thank you in advance.
  • To post as a guest, your comment is unpublished.
    N1ckole · 7 years ago
    Thank you! This is awesome, I was even able to modify the VBA code so that I could unprotect all sheets at once! :)

    Sub unprotect_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
    Next
    For Each s In ActiveWorkbook.Worksheets
    s.Unprotect Password:=pass
    Next
    Exit Sub
    oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets B4 running this Macro."
    End Sub
  • To post as a guest, your comment is unpublished.
    etan · 7 years ago
    when i activated this VBA, [b]hyperlink [/b]doesn't work. how can i make them work? tnx :)
  • To post as a guest, your comment is unpublished.
    Lightdemon · 7 years ago
    I am suddenly having the 1004 error as well. Anyone find a solution?
  • To post as a guest, your comment is unpublished.
    Lightdemon · 7 years ago
    I'm suddenly having the error 1004 issue. Have been using the macro for months now it randomly fails.
  • To post as a guest, your comment is unpublished.
    Scruffly Ghengis · 7 years ago
    when I imput the code it comes up with "run time error 1004?? highlighting the following in yellow...

    s.Protect Password:=pass
    • To post as a guest, your comment is unpublished.
      Lightdemon · 7 years ago
      I'm suddenly having the 1004 error as well. I have been using the macro for months but now it won't run.
      • To post as a guest, your comment is unpublished.
        Michelle McGregor · 5 years ago
        Hi,

        I was having this issue too. Turns out it can't run if you have all sheets selected in the workbook.

        Try selecting just one sheet and then running.
  • To post as a guest, your comment is unpublished.
    MrB · 7 years ago
    As Kristin said, how do you unprotect them all at once?
    • To post as a guest, your comment is unpublished.
      cz · 7 years ago
      So, how do I unprotect without kutools?
      • To post as a guest, your comment is unpublished.
        Admin-chivo · 7 years ago
        [quote name="cz"]So, how do I unprotect without kutools?[/quote]

        You can unprotect the worksheet without Kutools for Excel. You just need to right click on the sheet tab which you want to unprotect and click Unprotect Sheet command, and then enter your password. :-)
  • To post as a guest, your comment is unpublished.
    shweta · 8 years ago
    Thank you so much :-)
  • To post as a guest, your comment is unpublished.
    Kristin Dzugan · 8 years ago
    Great--so how to UNprotect them all at once? I'm an amateur, so I need more info.
    • To post as a guest, your comment is unpublished.
      N1ckol3 · 7 years ago
      Sub unprotect_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
      Next
      For Each s In ActiveWorkbook.Worksheets
      s.Unprotect Password:=pass
      Next
      Exit Sub
      oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets B4 running this Macro."
      End Sub
    • To post as a guest, your comment is unpublished.
      Admin_jay · 7 years ago
      [quote name="Kristin Dzugan"]Great--so how to UNprotect them all at once? I'm an amateur, so I need more info.[/quote]

      :-) You can easily unprotect them as http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html