Прескочи на основното съдържание

Как да защитите няколко работни листа наведнъж в Excel?

Автор: Xiaoyang Последна промяна: 2020-06-04

Да предположим, че имате работна книга, която съдържа множество работни листове, и сега трябва да защитите всички работни листове или някои конкретни работни листове, обикновено в Excel можете да защитите листа само един по един с функцията за защита на листа, но този метод е досаден и отнема време, ако има много листове, които трябва да бъдат защитени. Как да защитите няколко листа наведнъж в Excel бързо и лесно?

Защитете всички листове наведнъж с VBA код

Защитете няколко листа наведнъж с Kutools за Excel

Премахнете защитата на няколко листа наведнъж с kutools за 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 за стартиране на кода и въведете паролата за защитените листове в полето за подкана, вижте екранната снимка:

doc-protect-multiple-sheets1-1

4. Щракнете OKи след това въведете паролата отново, за да потвърдите паролата.

doc-protect-multiple-sheets2-2

5, След това кликнете OK, и всички листове са защитени с една и съща парола.


стрелка син десен балон Защитете няколко листа наведнъж с Kutools за Excel

Понякога не искате да защитите всички листове в работната си книга и искате да защитите само някои конкретни листове, в тази ситуация горният код няма да работи. Но със Kutools за ExcelЕ Защита на работния лист помощна програма, можете да защитите както всички листове, така и конкретни листове бързо и лесно.

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

След инсталиране Kutools за Excel, моля, направете следните стъпки:

1. Щракнете Kutools плюс > Защита на работния лист, вижте екранна снимка:

2. В Защита на работния лист в диалоговия прозорец изберете листовете, които искате да бъдат защитени. (По подразбиране всички работни листове в текущата работна книга са проверени.) Вижте екранна снимка:

doc-protect-multiple-sheets4-4

3, И натиснете OK, след което въведете и потвърдете паролата в диалоговия прозорец Защита на работния лист. Вижте екранна снимка:

doc-protect-multiple-sheets5-5

4, След това кликнете OK, избраните работни листове са защитени.

Щракнете върху Защитете работния лист, за да научите повече за тази функция.


стрелка син десен балон Премахнете защитата на няколко листа наведнъж с kutools за Excel

Как можете да премахнете защитата на няколко защитени работни листа в работна книга едновременно? Разбира се, Kutools за Excel също така предоставя Премахване на защитата на работния лист помощна програма, за да ги премахнете защитата наведнъж.

Моля, направете със следните стъпки:

1. Отворете работната си книга, която съдържа защитените работни листове.

2, След това кликнете Kutools плюс > Премахване на защитата на работния лист, вижте екранна снимка:

3. В Премахване на защитата на работния лист диалоговия прозорец, защитените листове са изброени в списъчното поле, след което щракнете Ok бутон, вижте екранната снимка:

doc-protect-multiple-sheets7-7

4. И тогава а Премахване на защитата на работния лист изскача диалогов прозорец, за да ви напомни да въведете паролата, която сте създали за защита на работните листове, вижте екранната снимка:

doc-protect-multiple-sheets8-8

5. След като въведете паролата, щракнете Ok, всички маркирани работни листове в списъчното поле са незащитени.

Забележка: Работните листове трябва да имат една и съща парола.

За да научите повече за тази функция за премахване на защитата на работния лист.

Изтеглете и безплатна пробна версия Kutools за Excel сега!


стрелка син десен балон Демонстрация: Защитете или премахнете защитата на всички работни листове наведнъж с Kutools за Excel

Kutools за Excel: с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. Изтеглете и изпробвайте безплатно сега!

Свързана статия:

Как да премахнете защитата на няколко работни листа наведнъж в Excel?

Най-добрите инструменти за продуктивност в офиса

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

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (21)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Occurs when sheet is already locked
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
Hi I used this code now I it wont accept my password to get back into my spreadsheet !!
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
when i activated this VBA, hyperlink doesn't work. how can i make them work? tnx :)
This comment was minimized by the moderator on the site
I am suddenly having the 1004 error as well. Anyone find a solution?
This comment was minimized by the moderator on the site
I'm suddenly having the error 1004 issue. Have been using the macro for months now it randomly fails.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations