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

Ինչպե՞ս 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- ում միանգամից պաշտպանել բազմաթիվ աշխատաթերթեր:


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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (21)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հիանալի է, ուրեմն ինչպե՞ս չպաշտպանել բոլորին միանգամից: Ես սիրողական եմ, ուստի ավելի շատ տեղեկությունների կարիք ունեմ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]Հիանալի է, ուրեմն ինչպե՞ս չպաշտպանել բոլորին միանգամից: Ես սիրողական եմ, ուստի ավելի շատ տեղեկությունների կարիք ունեմ:Քրիստին Ձուգանի կողմից[/quote] :-) Դուք կարող եք հեշտությամբ չպաշտպանել դրանք որպես http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Sub unprotect_all_sheets() վերև՝ pass = InputBox("գաղտնաբառ?") repass = InputBox("Ստուգել գաղտնաբառը") Եթե ոչ (pass = repass) Ապա MsgBox "դու բուռն եղավ" GoTo վերև Ավարտ Եթե 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]Այսպիսով, ինչպե՞ս կարող եմ պաշտպանել առանց կուտոուլների:Ըստ cz[/quote] Դուք կարող եք չպաշտպանել աշխատաթերթը առանց Kutools Excel-ի համար: Պարզապես պետք է աջ սեղմել թերթի ներդիրի վրա, որը ցանկանում եք չպաշտպանել և սեղմել Unprotect Sheet հրամանը, այնուհետև մուտքագրել ձեր գաղտնաբառը: :-)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
երբ ես ներմուծում եմ կոդը, հայտնվում է «run time error 1004??»՝ նշելով հետևյալը դեղինով... s.Պաշտպանել գաղտնաբառը:=անցել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հանկարծ 1004-ի սխալն էլ եմ ունենում: Ես ամիսներ շարունակ օգտագործում եմ մակրոն, բայց հիմա այն չի աշխատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես նույնպես ունեի այս խնդիրը: Պարզվում է, որ այն չի կարող աշխատել, եթե աշխատանքային գրքում ընտրված եք բոլոր թերթերը: Փորձեք ընտրել ընդամենը մեկ թերթ, այնուհետև գործարկել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես հանկարծ 1004 սխալի խնդիր ունեմ: Արդեն ամիսներ շարունակ օգտագործում եմ մակրո, այն պատահականորեն ձախողվում է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հանկարծ ես էլ եմ ունենում 1004 սխալ: Որևէ մեկը լուծում գտնո՞ւմ է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
երբ ես ակտիվացրի այս VBA-ն, Գերկապի չի աշխատում: ինչպես կարող եմ ստիպել դրանք աշխատել: tnx :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն! Սա հիանալի է, ես նույնիսկ կարողացա փոփոխել VBA կոդը, որպեսզի կարողանամ միանգամից չպաշտպանել բոլոր թերթերը: :) Sub unprotect_all_sheets() վերև՝ pass = InputBox("գաղտնաբառ?") repass = InputBox("Ստուգել գաղտնաբառը") Եթե ոչ (pass = repass) Այնուհետև MsgBox "դու բուռն խաբեցիր" GoTo վերև Ավարտ Եթե For i = 1 To Worksheets.Count Next For Every s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox «Կարծում եմ, որ դուք ունեք որոշ թերթեր, որոնք արդեն պաշտպանված են: Խնդրում ենք հեռացնել բոլոր թերթերը, որոնք աշխատում են այս մակրոյով: Վերջ Ենթ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հեյ, ես օգնության կարիք ունեմ, վերը նշված կոդը շատ օգտակար էր, բայց այն կողպում է տեսակավորումը (նաև ավտոմատ զտիչ), կարո՞ղ եք տրամադրել կոդը այդ խնդիրը լուծելու համար, ինչպես նաև այն տեղը, որտեղ այն կտեղադրվի: Նախապես շնորհակալություն.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ գծապատկերների ներդիրներ և աշխատաթերթեր իմ Excel 2013 աշխատանքային գրքում: Վերևում VBA կոդավորումն աշխատում է աշխատաթերթերը պաշտպանելու համար, բայց ոչ առանձին գծապատկերների ներդիրները: Ինչպե՞ս կարող եմ գաղտնաբառով պաշտպանել իմ աշխատանքային գրքույկի բազմաթիվ գծապատկերների ներդիրները և բազմաթիվ աշխատաթերթերը: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես օգտագործել եմ այս կոդը հիմա, ես չեմ ընդունում իմ գաղտնաբառը՝ իմ աղյուսակը վերադառնալու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ ծածկել գաղտնաբառը՝ օգտագործելով VBA մեթոդը: Ես չեմ կարող գտնել այս տեղեկատվությունը Google-ի կամ F1 օգնության ֆայլերի միջոցով: Նախապես շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն հրաշալի գործիքի համար՝ բոլոր թերթերը միաժամանակ պաշտպանելու և չպաշտպանելու համար: Խնդրում եմ, ուղղորդեք ինձ, ես կարող եմ միանգամից հեռացնել բոլոր թերթերը իմ աշխատանքային գրքում, բայց երբ ես գործարկում եմ պաշտպանել բոլոր թերթերը VBA Code, ապա միայն առաջին 4 թերթերն են պաշտպանված և հանգստանում կամ մնում են անպաշտպան: Խնդրում եմ օգնեք ինձ լուծել խնդիրը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձում եմ սա օգտագործել ընդհանուր աշխատանքային գրքում, բայց ստանում եմ Microsoft Visual Basic-ի սխալ «Գործարկման ժամանակի սխալ «1004». հավելվածի կողմից սահմանված կամ օբյեկտի կողմից սահմանված սխալ»: օգնությունը կգնահատվի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Առաջանում է, երբ թերթիկը արդեն կողպված է
Առայժմ ոչ մի մեկնաբանություն չկա

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից