Ahogy a munkafüzeteket és a munkalapokat is jelszóval védheti, úgy megteheti jelszóval védi a makrót ban ben Excel attól, hogy megnézzék (és kivégezzék).
Helyezzen el egy parancsgombot a munkalapon, és adja hozzá a következő kódsorokat:
1. Először hozzon létre egy egyszerű makrót, amelyet védeni szeretne.
Tartomány ("A1"). Value = "Ez titkos kód"
2. Ezután kattintson az Eszközök, VBAProject tulajdonságai elemre.
3. A Védelem lapon jelölje be a "Projekt zárolása a megtekintéshez" lehetőséget, és írja be kétszer a jelszót.
4. Kattintson az OK gombra.
5. Mentse, zárja be és nyissa meg újra az Excel fájlt. Próbálja megnézni a kódot.
A következő párbeszédpanel jelenik meg:
A kódot továbbra is végrehajthatja a parancsgombra kattintva, de a kódot már nem tekintheti meg vagy szerkesztheti (hacsak nem ismeri a jelszót). A letölthető Excel fájl jelszava "egyszerű".
6. Ha jelszóval szeretné megvédeni a makrót a végrehajtástól, adja hozzá a következő kódsorokat:
Jelszó halványítása változatként
password = Application.InputBox ("Jelszó megadása", "Jelszóval védett")
Válassza a Case jelszó lehetőséget
Eset = hamis
'ne csinálj semmit
Az eset = "könnyű"
Tartomány ("A1"). Value = "Ez titkos kód"
Más eset
MsgBox "Helytelen jelszó"
Vége Kiválasztás
Eredmény, ha rákattint a parancsikonra a lapon:
Magyarázat: A makró az Application objektum InputBox módszerét használja. Ha a felhasználók a Mégse gombra kattintanak, ez a módszer hamis értéket ad vissza, és semmi sem történik (az InputBox eltűnik). A titkos kód csak akkor hajtódik végre, ha a felhasználó ismeri a jelszót (ismét "könnyű"). Ha a megadott jelszó helytelen, megjelenik egy MsgBox. Ne feledje, hogy a felhasználó nem nézheti meg a jelszót a Visual Basic Editorban, mert a projekt védett a megtekintéstől.
