Stundum þarftu að senda Excel vinnubókina þína út í heiminn með sérstökum vinnublöðum varin. Ef þú kemst að því að þú ert stöðugt að vernda og taka af vörn blöð áður en þú dreifir vinnubókunum þínum, getur fjölvi hér hjálpað þér.
Hvernig macro virkar
Kóðinn er ræstur af BeforeClose atburði vinnubókarinnar. Þegar þú reynir að loka vinnubókinni kviknar þetta atvik og keyrir kóðann innan. Fjölvi verndar sjálfkrafa tilgreint blað með uppgefnu lykilorði og vistar síðan vinnubókina:
Private Sub Workbook_BeforeClose(Hætta við sem Boolean)
'Skref 1: Verndaðu blaðið með lykilorði
Sheets("Sheet1"). Vernda lykilorð:="RAUTT"
'Skref 2: Vistaðu vinnubókina
ActiveWorkbook.Save
End Sub
Í skrefi 1 tilgreinirðu sérstaklega hvaða blað á að vernda - Sheet1, í þessu tilviki. Þú gefur einnig upp lykilorðsrök, Password:=“RED”, sem skilgreinir lykilorðið sem þarf til að fjarlægja vernd.
Þessi lykilorðsrök eru valfrjáls. Ef þú sleppir því verður blaðið samt varið, en þú þarft ekki lykilorð til að taka það úr vörn.
Excel lykilorð eru hástöfum og hástöfum, svo þú þarft að borga eftirtekt til nákvæmlega lykilorð og hástafir sem þú notar.
Skref 2 segir Excel að vista vinnubókina. Ef þú vistar ekki vinnubókina mun blaðavörnin sem þú notaðir nýlega ekki vera í gildi næst þegar vinnubókin er opnuð.
Hvernig á að nota macro
Til að útfæra þetta fjölvi þarftu að afrita og líma það inn í Workbook_BeforeClose atburðakóðagluggann. Með því að setja makróið hér getur það keyrt í hvert skipti sem þú reynir að loka vinnubókinni:
Virkjaðu Visual Basic Editor með því að ýta á Alt+F11.
Í verkefnaglugganum, finndu nafn verkefnisins/vinnubókarinnar og smelltu á plúsmerkið við hliðina á því til að sjá öll blöðin.
Smelltu á This Workbook.
Í fellilistanum Atburður skaltu velja BeforeClose viðburðinn.
Sláðu inn eða límdu kóðann í nýstofnaða einingu, breyttu nafni blaðsins (ef nauðsyn krefur) og lykilorðinu.
Sláðu inn kóðann þinn í Workbook BeforeClose atburðinum.
Athugaðu að þú getur verndað viðbótarblöð með því að bæta viðbótaryfirlýsingum á undan Activeworkbook.Save yfirlýsingunni.