Makro abil paroolikaitse loomine
Kas soovite tagada, et kõik teie valitud kausta töölehed oleksid makro abil parooliga kaitstud? See võib olla kasulik, kui teil on liiga palju probleeme töölehtede individuaalse kaitsmisega või kui soovite automaatselt kaitsta kõiki kataloogi töövihikuid. Kasutage järgmist makro, et määrata parool "kaitsta" kõigile aktiivse kausta töölehtedele:
Sub AllSchuetzen ()
Tume leht töölehena
Iga lehe jaoks ActiveWorkbookis. Töölehed
Blatt.Protect ("kaitse")
Järgmine leht
End Sub
Teksti "Schutz" asemel kasutage oma valitud parooli. Muidugi on sellel programmikoodil mõtet ainult siis, kui sisestate selle väljaspool töövihikut, milles kaitset loote. Vastasel juhul saab iga kasutaja VBA lähtetekstist parooli ette lugeda.
Selleks, et saaksite kaitstud töölehtedel midagi muuta, peate kaitse eemaldama. Seda saate teha käsitsi käsuga EXTRAS - PROTECTION - CANCEL LEAF PROTECTION. See käsk on saadaval ainult siis, kui praegune tööleht on tegelikult kaitstud.
Kui soovite kõik kaitstud töölehed uuesti makro abil vabastada, kasutage järgmist programmikoodi:
Sub AllExposure ()
Tume leht töölehena
Iga lehe jaoks ActiveWorkbookis. Töölehed
Blatt.Unprotect ("kaitse")
Järgmine leht
End Sub
