Mõnikord peate oma Exceli töövihiku konkreetsete kaitstud töölehtedega maailma saatma. Kui leiate, et kaitsete lehti pidevalt ja eemaldate nende kaitse enne töövihikute levitamist, võib siinne makro teid aidata.
Kuidas makro töötab
Koodi käivitab töövihiku sündmus BeforeClose. Kui proovite töövihikut sulgeda, käivitub see sündmus, käivitades sees oleva koodi. Makro kaitseb määratud lehte antud parooliga automaatselt ja salvestab seejärel töövihiku:
Privaatne alamtöövihik_BeforeClose (Tühista kui Boolean)
1. samm: kaitske lehte parooliga
Sheets("Leht1").Kaitske parooli:="PUNANE"
2. samm: salvestage töövihik
ActiveWorkbook.Save
Lõpeta alam
1. sammus määrate selgelt, millist lehte kaitsta – antud juhul leht1. Esitage ka parooliargument Password:="PUNANE", mis määrab kaitse eemaldamiseks vajaliku parooli.
See parooliargument on valikuline. Kui jätate selle vahele, on leht endiselt kaitstud, kuid selle eemaldamiseks pole parooli vaja.
Exceli paroolid on tõstutundlikud, seega peaksite pöörama tähelepanu täpselt kasutatavale paroolile ja suurtähtedele.
2. samm käsib Excelil töövihik salvestada. Kui te töövihikut ei salvesta, ei kehti äsja rakendatud lehekaitse järgmisel töövihiku avamisel.
Kuidas makrot kasutada
Selle makro rakendamiseks peate selle kopeerima ja kleepima sündmuse koodi aknasse Workbook_BeforeClose. Makro siia paigutamine võimaldab seda käivitada iga kord, kui proovite töövihikut sulgeda.
Aktiveerige Visual Basic Editor, vajutades Alt+F11.
Leidke projektiaknas oma projekti/töövihiku nimi ja klõpsake kõigi lehtede nägemiseks selle kõrval olevat plussmärki.
Klõpsake nuppu See töövihik.
Valige ripploendist Sündmus sündmus BeforeClose.
Tippige või kleepige kood vastloodud moodulisse, muutes lehe nime (vajadusel) ja parooli.
Sisestage oma kood sündmusele Workbook BeforeClose.
Pange tähele, et saate täiendavaid lehti kaitsta, lisades enne Activeworkbook.Save avaldust lisalaused.