Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս Excel- ում միանգամից պաշտպանել բազմաթիվ աշխատանքային թերթեր:

Ենթադրելով, որ ունեք աշխատանքային գրքույկ, որը պարունակում է բազմաթիվ աշխատանքային թերթեր, և այժմ դուք պետք է պաշտպանեք բոլոր աշխատաթերթերը կամ որոշ հատուկ աշխատաթերթեր, սովորաբար Excel- ում, Դուք կարող եք պաշտպանել թերթը միայն մեկ առ մեկ Protect Sheet գործառույթով, բայց այս մեթոդը հոգնեցուցիչ է և ժամանակատար, եթե կան բազմաթիվ թերթեր, պետք է պաշտպանել: Ինչպե՞ս եք Excel- ում միանգամից մի քանի թերթ պաշտպանում արագ և հեշտությամբ:

Միանգամից պաշտպանեք բոլոր թերթերը VBA կոդով

Միանգամից պաշտպանեք բազմաթիվ թերթեր Kutools- ի համար Excel- ի համար

Միանգամից պաշտպանեք մի քանի թերթ Excel- ի համար kutools- ի միջոցով


նետ կապույտ աջ պղպջակ Միանգամից պաշտպանեք բոլոր թերթերը 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-protection-multiple-sheets1-1

4: Սեղմեք OK, ապա նորից մուտքագրեք գաղտնաբառը ՝ գաղտնաբառը հաստատելու համար:

doc-protection-multiple-sheets2-2

5. Այնուհետեւ կտտացրեք OK, և բոլոր թերթերը պաշտպանված են նույն գաղտնաբառով:


նետ կապույտ աջ պղպջակ Միանգամից պաշտպանեք բազմաթիվ թերթեր Kutools- ի համար Excel- ի համար

Երբեմն, դուք չեք ցանկանում պաշտպանել ձեր աշխատանքային գրքի բոլոր թերթերը և ցանկանում եք պաշտպանել միայն որոշ հատուկ թերթեր, այս իրավիճակում վերոհիշյալ կոդը չի գործի: Բայց դրանով Excel- ի համար նախատեսված գործիքներ'S Պաշտպանեք աշխատանքային թերթը օգտակար, դուք կարող եք արագ և հեշտությամբ պաշտպանել ինչպես բոլոր թերթերը, այնպես էլ հատուկ թերթերը:

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 60 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում ենք արեք հետևյալ քայլերը.

1: Սեղմեք Kutools Plus > Պաշտպանեք աշխատանքային թերթը, տես նկարի նկարը.

2, Մեջ Պաշտպանեք աշխատանքային թերթը երկխոսության տուփ, ընտրեք այն թերթերը, որոնք ցանկանում եք պաշտպանված լինել: (Լռելյայնորեն, ընթացիկ աշխատանքային գրքի բոլոր աշխատանքային թերթերը ստուգվում են:) Տեսեք,

doc-protection-multiple-sheets4-4

3, եւ սեղմեք OK, ապա մուտքագրեք և հաստատեք գաղտնաբառը «Պաշտպանեք աշխատաթերթը» երկխոսության դաշտում: Տեսեք,

doc-protection-multiple-sheets5-5

4. Այնուհետեւ կտտացրեք OK, ընտրված աշխատանքային թերթերը պաշտպանված են:

Կտտացրեք Պաշտպանեք աշխատաթերթը ՝ այս հատկության մասին ավելին իմանալու համար:


նետ կապույտ աջ պղպջակ Միանգամից պաշտպանեք մի քանի թերթ Excel- ի համար kutools- ի միջոցով

Ինչպե՞ս կարող եք միաժամանակ պաշտպանել մի քանի պաշտպանված աշխատանքային թերթեր աշխատանքային գրքում: Իհարկե, Excel- ի համար նախատեսված գործիքներ ապահովում է նաև Չպաշտպանել աշխատանքային թերթը օգտակար է ձեզ միանգամից պաշտպանել դրանք:

Խնդրում ենք անել հետևյալ քայլերով.

1, Բացեք ձեր աշխատանքային գիրքը, որը պարունակում է պաշտպանված աշխատանքային թերթեր:

2. Այնուհետեւ կտտացրեք Kutools Plus > Չպաշտպանել աշխատանքային թերթը, տես նկարի նկարը.

3, Մեջ Չպաշտպանել աշխատանքային թերթը երկխոսության տուփ, պաշտպանված թերթերը ցուցակում են ցուցակի վանդակում, ապա կտտացրեք Ok կոճակը, տես նկարի նկարը.

doc-protection-multiple-sheets7-7

4, Եվ հետո ա Չպաշտպանել աշխատանքային թերթը երկխոսության տուփը դուրս է գալիս ՝ հիշեցնելու համար, որ մուտքագրեք գաղտնաբառը, որը դուք ստեղծել եք աշխատանքային թերթերը պաշտպանելու համար, տես նկարի նկարը.

doc-protection-multiple-sheets8-8

5, Գաղտնաբառը մուտքագրելուց հետո կտտացրեք Ok, ցուցակի վանդակում նշված բոլոր աշխատաթերթերը պաշտպանված չեն:

Նշում: Աշխատանքային թերթերը պետք է ունենան նույն գաղտնաբառը:

Իմանալ ավելին Անպաշտպան աշխատանքային թերթի այս հատկության մասին:

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:


նետ կապույտ աջ պղպջակ Դեմո. Պաշտպանեք կամ անպաշտպանեք բոլոր աշխատանքային թերթերը միանգամից Kutools- ի համար Excel- ի համար

Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

Առնչվող հոդված:

Ինչպե՞ս Excel- ում միանգամից պաշտպանել բազմաթիվ աշխատաթերթեր:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, 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