Kako z makrom ustvariti zaščito z geslom
Ali želite zagotoviti, da so vsi delovni listi v izbrani mapi z makrom zaščiteni z geslom? To je lahko koristno, če imate preveč težav pri individualni zaščiti delovnih listov ali če želite samodejno zaščititi vse delovne zvezke v imeniku. Z naslednjim makrom dodelite geslo "zaščita" vsem delovnim listom v aktivni mapi:
Sub AllSchuetzen ()
Zatemni list kot delovni list
Za vsak list v ActiveWorkbook.Worksheets
Blatt.Protect ("zaščita")
Naslednji list
End Sub
Namesto besedila "Schutz" uporabite geslo po vaši izbiri. Seveda je ta programska koda smiselna le, če jo vnesete izven delovnega zvezka, v katerem ustvarjate zaščito. V nasprotnem primeru lahko vsak uporabnik prebere geslo v izvornem besedilu VBA.
Če želite na zaščitenih delovnih listih kaj spremeniti, morate odstraniti zaščito. To lahko storite ročno z ukazom EXTRAS - PROTECTION - CANCEL LIFT PROTECTION. Ta ukaz je na voljo samo, če je trenutni delovni list dejansko zaščiten.
Če želite z makrom znova izdati vse zaščitene delovne liste, uporabite naslednjo programsko kodo:
Sub AllExposure ()
Zatemni list kot delovni list
Za vsak list v ActiveWorkbook.Worksheets
Blatt.Unprotect ("zaščita")
Naslednji list
End Sub