Ինչպե՞ս ինքնաբերաբար պաշտպանել բոլոր աշխատանքային թերթերը 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:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").Protect "123"
ActiveWorkbook.Save
End Sub
3. Այնուհետեւ սեղմեք ալտ + Q Microsoft Visual Basic ծրագրերի համար պատուհանը փակելու ստեղներ:
Վերոնշյալ քայլից հետո բոլոր աշխատաթերթերը կամ նշված աշխատաթերթը ավտոմատ կերպով կպաշտպանվեն աշխատանքային գիրքը փակելիս:
Notes:
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս օգտագործել բացվող ցուցակը Excel- ում պաշտպանված աշխատանքային թերթում:
- Ինչպե՞ս կողպել նշված բջիջները ՝ առանց Excel- ի ամբողջ աշխատանքային թերթը պաշտպանելու:
- Ինչպե՞ս թաքցնել բանաձևը, բայց արդյունքը ցուցադրել առանց Excel- ում աշխատաթերթը պաշտպանելու:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel հմտությունները Kutools for Excel, և փորձիր արդյունավետություն, ինչպես երբեք: Kutools for Excel Առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab Ներդիրներով ինտերֆեյսը Office է բերում և ձեր աշխատանքը շատ ավելի հեշտացնում
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
