300 Piemēri

Aizsargājiet makro

Protect Macro

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).



Novietojiet a komandu pogu darblapā un pievienojiet šādas koda rindiņas:

kā lietot formulas programmā Excel

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.

Noklikšķiniet uz Rīki, VBAProject Properties.



3. Cilnē Aizsardzība atzīmējiet “Bloķēt projektu apskatei” un divreiz ievadiet paroli.

Excel, kā izveidot tabulu

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ņš:

Parole aizsargāta pret skatīšanos

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”.

kādu funkciju jūs izmantotu, lai parādītu pašreizējo datumu un laiku?

6. Ja vēlaties ar paroli aizsargāt makro no izpildes, pievienojiet šādas koda rindiņas:

Navparole Variants
parole = Application.InputBox ('Ievadiet paroli', 'Aizsargāts ar paroli')

Izvēlieties Lietaparole
Lieta Ir=Nepatiess
'neko nedarīt
Lieta Ir= 'viegli'
Diapazons ('A1'). Vērtība = 'Šis ir slepenais kods'
Lieta Citādi
MsgBox 'Nepareiza parole'
Beigas Izvēlieties

Rezultāts, noklikšķinot uz komandas pogas lapā:

Parole aizsargāta pret izpildi

Paskaidrojums: Makro izmanto lietojumprogrammas objekta metodi InputBox. Ja lietotāji noklikšķina uz Atcelt, šī metode atgriež False un nekas nenotiek (InputBox pazūd). Tikai tad, kad lietotājs zinās paroli (atkal “viegli”), slepenais kods tiks izpildīts. Ja ievadītā parole nav pareiza, tiek parādīts ziņojums MsgBox. Ņemiet vērā, ka lietotājs nevar apskatīt paroli Visual Basic redaktorā, jo projekts ir aizsargāts no skatīšanās.

9/9 Pabeigts! Uzziniet daudz vairāk par makro izveidi>
Doties uz nākamo nodaļu: MsgBox



^