Nii nagu saate töövihikuid ja töölehti parooliga kaitsta, saate seda teha parooliga kaitsta makro sisse Excel vaatamisest (ja hukkamisest).
Asetage oma töölehele käsunupp ja lisage järgmised koodiridad:
1. Esmalt looge lihtne makro, mida soovite kaitsta.
Vahemik ("A1"). Value = "See on salajane kood"
2. Seejärel klõpsake Tools, VBAProject Properties.
3. Märkige vahekaardil Kaitse "Lukusta projekt vaatamiseks" ja sisestage kaks korda parool.
4. Klõpsake nuppu OK.
5. Salvestage, sulgege ja avage uuesti Exceli fail. Proovige koodi vaadata.
Ilmub järgmine dialoogiboks:
Saate koodi siiski käivitada, klõpsates käsunuppu, kuid te ei saa enam koodi vaadata ega muuta (kui te ei tea parooli). Allalaaditava Exceli faili parool on "lihtne".
6. Kui soovite makro täitmise eest parooliga kaitsta, lisage järgmised koodiridad:
Hämarda parool variandina
parool = Application.InputBox ("Sisesta parool", "Parooliga kaitstud")
Valige Juhtumi parool
Juhtum on = vale
'ära tee midagi
Juhtum on = "lihtne"
Vahemik ("A1"). Value = "See on salajane kood"
Juhtum muidu
MsgBox "Vale parool"
Lõpp Vali
Tulemus, kui klõpsate lehel käsunuppu:
Selgitus: Makro kasutab rakenduse objekti meetodit InputBox. Kui kasutajad klõpsavad nupul Tühista, tagastab see meetod väärtuse Väär ja midagi ei juhtu (InputBox kaob). Alles siis, kui kasutaja teab parooli ("lihtne"), käivitatakse salakood. Kui sisestatud parool on vale, kuvatakse MsgBox. Pange tähele, et kasutaja ei saa Visual Basic Editoris parooli vaadata, kuna projekt on vaatamise eest kaitstud.
