Kartais jums reikia išsiųsti „Excel“ darbaknygę į pasaulį su specialiais apsaugotais darbalapiais. Jei pastebėsite, kad prieš platindami darbaknyges nuolat saugote ir panaikinate lapus, čia esanti makrokomanda gali jums padėti.
Kaip veikia makrokomandas
Kodą suaktyvina darbaknygės įvykis BeforeClose. Kai bandote uždaryti darbaknygę, šis įvykis suaktyvinamas, paleidžiant kodą. Makrokomandas automatiškai apsaugo nurodytą lapą su nurodytu slaptažodžiu, o tada išsaugo darbaknygę:
Privati antrinė darbo knyga_Prieš uždarymą (Atšaukti kaip Būlio)
„1 veiksmas: apsaugokite lapą slaptažodžiu
Skaičiuokliai („Sheet1“). Apsaugoti slaptažodį:="RED"
2 veiksmas: išsaugokite darbaknygę
ActiveWorkbook.Save
Pabaigos sub
1 veiksme jūs aiškiai nurodote, kurį lapą apsaugoti – šiuo atveju 1 lapą. Taip pat pateikiate slaptažodžio argumentą Password:="RED", kuris apibrėžia slaptažodį, reikalingą apsaugai pašalinti.
Šis slaptažodžio argumentas yra neprivalomas. Jei jo praleisite, lapas vis tiek bus apsaugotas, bet jums nereikės slaptažodžio, kad jį panaikintumėte.
„Excel“ slaptažodžiuose skiriamos didžiosios ir mažosios raidės, todėl turėtumėte atkreipti dėmesį į tikslų slaptažodį ir didžiąsias raides, kuriuos naudojate.
2 veiksmas nurodo „Excel“ išsaugoti darbaknygę. Jei neišsaugosite darbaknygės, kitą kartą atidarius darbaknygę, ką tik pritaikyta lapo apsauga nebegalios.
Kaip naudoti makrokomandą
Norėdami įdiegti šią makrokomandą, turite nukopijuoti ir įklijuoti ją į įvykio kodo langą Workbook_BeforeClose. Įdėjus makrokomandą čia, ji bus paleista kiekvieną kartą, kai bandote uždaryti darbaknygę:
Suaktyvinkite Visual Basic redaktorių paspausdami Alt + F11.
Projekto lange raskite savo projekto / darbaknygės pavadinimą ir spustelėkite šalia jo esantį pliuso ženklą, kad pamatytumėte visus lapus.
Spustelėkite ThisWorkbook.
Išskleidžiamajame sąraše Įvykis pasirinkite įvykį BeforeClose.
Įveskite arba įklijuokite kodą naujai sukurtame modulyje, pakeisdami lapo pavadinimą (jei reikia) ir slaptažodį.
Įveskite savo kodą į įvykį Workbook BeforeClose.
Atminkite, kad galite apsaugoti papildomus lapus pridėdami papildymo teiginius prieš Activeworkbook.Save sakinį.