Kaip ir jūs galite slaptažodžiu apsaugoti darbo knygas ir darbalapius, galite apsaugoti makrokomandą slaptažodžiu į „Excel“ nuo žiūrėjimo (ir įvykdymo).
Įdėkite komandų mygtuką į savo darbalapį ir pridėkite šias kodo eilutes:
1. Pirmiausia sukurkite paprastą makrokomandą, kurią norite apsaugoti.
Diapazonas ("A1"). Reikšmė = "Tai slaptas kodas"
2. Tada spustelėkite Įrankiai, VBAProject Properties.
3. Skirtuke Apsauga pažymėkite „Užrakinti projektą peržiūrai“ ir du kartus įveskite slaptažodį.
4. Spustelėkite Gerai.
5. Išsaugokite, uždarykite ir vėl atidarykite „Excel“ failą. Pabandykite peržiūrėti kodą.
Bus parodytas toks dialogo langas:
Vis tiek galite įvykdyti kodą spustelėdami komandos mygtuką, bet nebegalite jo peržiūrėti ar redaguoti (nebent žinote slaptažodį). Atsisiunčiamo „Excel“ failo slaptažodis yra „lengvas“.
6. Jei norite apsaugoti makrokomandą nuo vykdymo slaptažodžiu, pridėkite šias kodo eilutes:
Pritemdyti slaptažodį kaip variantą
password = Application.InputBox („Įveskite slaptažodį“, „Apsaugota slaptažodžiu“)
Pasirinkite atvejo slaptažodį
Byla yra = klaidinga
'nieko nedaryk
Byla = "lengva"
Diapazonas ("A1"). Reikšmė = "Tai slaptas kodas"
Kita byla
„MsgBox“ neteisingas slaptažodis
Pabaiga Pasirinkite
Rezultatas, kai lape spustelėsite komandų mygtuką:
Paaiškinimas: Makrokomandoje naudojamas programos objekto „InputBox“ metodas. Jei vartotojai spustelės Atšaukti, šis metodas grąžins klaidingą ir nieko neįvyks („InputBox“ dingsta). Tik tada, kai vartotojas žinos slaptažodį (vėl „lengva“), slaptas kodas bus įvykdytas. Jei įvestas neteisingas slaptažodis, rodoma „MsgBox“. Atminkite, kad vartotojas negali pažvelgti į slaptažodį „Visual Basic“ redaktoriuje, nes projektas yra apsaugotas nuo peržiūros.
