Tāpat kā jūs varat ar paroli aizsargāt darbgrāmatas un darblapas, jūs varat aizsargāt makro ar paroli iekšā Excel no skatīšanās (un izpildīšanas).
Ievietojiet komandas pogu savā darblapā un pievienojiet šādas koda rindiņas:
1. Vispirms izveidojiet vienkāršu makro, kuru vēlaties aizsargāt.
Diapazons ("A1"). Vērtība = "Šis ir slepenais kods"
2. Pēc tam noklikšķiniet uz Rīki, VBAProject Properties.
3. Cilnē Aizsardzība atzīmējiet "Bloķēt projektu apskatei" un divreiz ievadiet paroli.
4. Noklikšķiniet uz Labi.
5. Saglabājiet, aizveriet un atkārtoti atveriet Excel failu. Mēģiniet apskatīt kodu.
Parādīsies šāds dialoglodziņš:
Jūs joprojām varat izpildīt kodu, noklikšķinot uz komandas pogas, bet vairs nevarat to skatīt vai rediģēt (ja vien nezināt paroli). Lejupielādējamā Excel faila parole ir “vienkārša”.
6. Ja vēlaties ar paroli aizsargāt makro no izpildes, pievienojiet šādas koda rindiņas:
Aptumšot paroli kā variantu
parole = Application.InputBox ("Ievadiet paroli", "Aizsargāts ar paroli")
Atlasiet Lietu parole
Lieta ir = nepatiesa
'neko nedarīt
Lieta = "viegli"
Diapazons ("A1"). Vērtība = "Šis ir slepenais kods"
Cita lieta
MsgBox "Nepareiza parole"
Beigas Atlasīt
Rezultāts, noklikšķinot uz komandas pogas lapā:
Paskaidrojums: Makro izmanto lietojumprogrammas objekta InputBox metodi. Ja lietotāji noklikšķina uz Atcelt, šī metode atgriež False un nekas nenotiek (InputBox pazūd). Tikai tad, kad lietotājs zina paroli (atkal "viegli"), slepenais kods tiks izpildīts. Ja ievadītā parole nav pareiza, tiek parādīta MsgBox. Ņemiet vērā, ka lietotājs nevar apskatīt paroli Visual Basic redaktorā, jo projekts ir aizsargāts no skatīšanās.
