Baš kao što možete zaštititi radne knjige i radne listove lozinkom, možete makro zaštitite lozinkom u Excel od gledanja (i izvršenja).
Postavite naredbeni gumb na radni list i dodajte sljedeće retke koda:
1. Prvo, stvorite jednostavnu makronaredbu koju želite zaštititi.
Raspon ("A1"). Vrijednost = "Ovo je tajni kod"
2. Zatim kliknite Alati, VBAProject svojstva.
3. Na kartici Zaštita označite "Zaključaj projekt za pregled" i dvaput unesite lozinku.
4. Pritisnite U redu.
5. Spremite, zatvorite i ponovno otvorite Excel datoteku. Pokušajte pogledati kôd.
Pojavit će se sljedeći dijaloški okvir:
Kôd možete izvršiti klikom na naredbeni gumb, ali ga više ne možete pregledavati niti uređivati (osim ako ne znate lozinku). Lozinka za Excel datoteku koja se može preuzeti je "laka".
6. Ako želite zaštititi makronaredbu od izvođenja, dodajte sljedeće retke koda:
Zatamni lozinku kao varijantu
lozinka = Application.InputBox ("Unesite lozinku", "Zaštićeno lozinkom")
Odaberite Lozinka slučaja
Slučaj je = Netačno
'ne radi ništa
Slučaj je = "lako"
Raspon ("A1"). Vrijednost = "Ovo je tajni kod"
Drugi slučaj
MsgBox "Neispravna lozinka"
Kraj Odaberite
Rezultat kada pritisnete naredbeni gumb na listu:
Objašnjenje: Makro koristi metodu InputBox objekta Application. Ako korisnici kliknu Odustani, ova metoda vraća vrijednost False i ništa se ne događa (InputBox nestaje). Tek kad korisnik zna lozinku ("lako" ponovno), tajni kôd će se izvršiti. Ako je unesena lozinka netočna, prikazuje se MsgBox. Imajte na umu da korisnik ne može pogledati lozinku u uređivaču programa Visual Basic jer je projekt zaštićen od pregleda.
