Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

Ինչպե՞ս ինքնաբերաբար պաշտպանել բոլոր աշխատանքային թերթերը Excel աշխատանքային տետրը փակելիս:

Սովորաբար, Excel- ում Protect Sheet- ի կամ Protect Workbook- ի առանձնահատկությամբ գաղտնաբառով կարող եք ձեռքով պաշտպանել աշխատանքային թերթը կամ ամբողջ աշխատանքային գիրքը: Բայց եթե աշխատանքային գրքի փակվելուն պես ցանկանում եք գաղտնաբառով ավտոմատ կերպով պաշտպանել բոլոր աշխատաթերթերը, ապա ի՞նչ կարող ես անել: Այս հոդվածը ձեզ ցույց կտա VBA մեթոդը դրան հասնելու համար:

Պաշտպանեք բոլոր աշխատաթերթերը Excel աշխատանքային գիրքը VBA կոդով փակելու ժամանակ


Պաշտպանեք բոլոր աշխատաթերթերը Excel աշխատանքային գիրքը VBA կոդով փակելու ժամանակ


Աշխատագիրքը փակելու ժամանակ բոլոր աշխատանքային թերթերն ավտոմատ կերպով պաշտպանելու համար խնդրում ենք կիրառել հետևյալ VBA կոդը:

1. Աշխատանքային գրքում ցանկանում եք պաշտպանել բոլոր աշխատանքային թերթերը ֆայլը փակելիս, սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք այն Այս գործառույթը ձախ պատուհանում և այնուհետև պատճենեք ներքևում գտնվող VBA կոդը կոդի պատուհանում: Տեսեք,

VBA կոդ. Պաշտպանեք բոլոր աշխատանքային թերթերը աշխատանքային գիրքը փակելու ժամանակ

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Extendoffice 2018/1/24
    Dim xSheet As Worksheet
    Dim xPsw As String
    xPsw = ""
    For Each xSheet In Worksheets
        xSheet.Protect xPsw
    Next
End Sub

Tips:

1) Կոդում խնդրում ենք նշել ձեր գաղտնաբառը xPsw = ”” տողում:
2) Եթե դուք պարզապես ցանկանում եք ավտոմատ կերպով պաշտպանել նշված աշխատանքային թերթը աշխատանքային գիրքը փակելու ժամանակ, ստորև ներկայացված VBA կոդը կարող է օգնել ձեզ:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Sheet1").Protect "123"
    ActiveWorkbook.Save
End Sub

3. Այնուհետեւ սեղմեք ալտ + Q Microsoft Visual Basic ծրագրերի համար պատուհանը փակելու ստեղներ:

Վերոհիշյալ քայլից հետո աշխատանքային տետրը փակելու ժամանակ բոլոր աշխատանքային թերթերը կամ նշված աշխատանքային թերթը ավտոմատ կերպով պաշտպանված կլինեն:

Notes:

1. Աշխատանքային գիրքը պետք է պահեք որպես Excel մակրոտնտեսական աշխատանքային գրքի ֆայլի ձևաչափ:
2. Խնդրում ենք անցնել որոշակի աշխատանքային թերթ, սեղմել տեսություն > Անպաշտպանեք թերթ, Եվ ապա մուտքագրեք VBA կոդում ձեր նշած գաղտնաբառը ՝ այս աշխատանքային թերթը պաշտպանելու համար:

Առնչվող հոդվածներ քանակը:


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

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

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50% -ով և նվազեցնում է ձեզ համար ամեն օր մկնիկի հարյուրավոր կտտոցներ:
officetab ներքևում
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.

Be the first to comment.