Tako kot lahko zaščitite delovne zvezke in delovne liste z geslom, lahko zaščita makra z geslom v Excel od ogleda (in izvedbe).
Na delovni list postavite ukazni gumb in dodajte naslednje kodne vrstice:
1. Najprej ustvarite preprost makro, ki ga želite zaščititi.
Obseg ("A1"). Vrednost = "To je tajna koda"
2. Nato kliknite Orodja, Lastnosti VBAProject.
3. Na zavihku Zaščita potrdite polje »Zakleni projekt za ogled« in dvakrat vnesite geslo.
4. Kliknite V redu.
5. Shranite, zaprite in znova odprite datoteko Excel. Poskusite si ogledati kodo.
Prikaže se naslednje pogovorno okno:
Kodo lahko še vedno izvedete s klikom na ukazni gumb, vendar si kode ne morete več ogledati ali urediti (razen če poznate geslo). Geslo za prenosno datoteko Excel je "enostavno".
6. Če želite makro zaščititi pred izvedbo, dodajte naslednje kodne vrstice:
Zatemni geslo kot varianto
password = Application.InputBox ("Vnesite geslo", "Zaščiteno z geslom")
Izberite Geslo za primer
Primer je = napačen
'delati nič
Primer je = "enostavno"
Obseg ("A1"). Vrednost = "To je tajna koda"
Primer drugače
MsgBox "Napačno geslo"
Konec Izberite
Rezultat, ko kliknete ukazni gumb na listu:
Pojasnilo: Makro uporablja metodo InputBox za objekt Application. Če uporabniki kliknejo Prekliči, ta metoda vrne False in nič se ne zgodi (InputBox izgine). Šele ko bo uporabnik poznal geslo ("enostavno"), bo skrivna koda izvedena. Če vneseno geslo ni pravilno, se prikaže polje MsgBox. Upoštevajte, da uporabnik ne more pogledati gesla v urejevalniku Visual Basic, ker je projekt zaščiten pred ogledom.
