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

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

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

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

Զարմանալի! Օգտագործելով արդյունավետ ներդիրներ Excel-ում, ինչպիսիք են Chrome-ը, Edge-ը, Firefox-ը և Safari-ն:
Խնայեք ձեր ժամանակի 50% -ը և ամեն օր կրճատեք մկնիկի հազարավոր կտտոցներ ձեզ համար:

Աշխատագիրքը փակելու ժամանակ բոլոր աշխատանքային թերթերն ավտոմատ կերպով պաշտպանելու համար խնդրում ենք կիրառել հետևյալ 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:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Sheet1").Protect "123"
    ActiveWorkbook.Save
End Sub

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

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

Notes:

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

• Ինչպե՞ս օգտագործել բացվող ցուցակը Excel- ում պաշտպանված աշխատանքային թերթում:
• Ինչպե՞ս կողպել նշված բջիջները ՝ առանց Excel- ի ամբողջ աշխատանքային թերթը պաշտպանելու:
• Ինչպե՞ս թաքցնել բանաձևը, բայց արդյունքը ցուցադրել առանց Excel- ում աշխատաթերթը պաշտպանելու:

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

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

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

Կարդալ ավելին... Անվճար ներբեռնում...

---

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

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

Կարդալ ավելին... Անվճար ներբեռնում...