300 Примера

Заштитите макро

Protect Macro

Баш као што можете заштитити радне свеске и радне листове лозинком, можете заштитите макро лозинком у Екцел од гледања (и извршења).





Поставите а командно дугме на радном листу и додајте следеће линије кода:

како заокружити вредности у екцелу

1. Прво, направите једноставан макро који желите да заштитите.





Опсег ('А1'). Вредност = 'Ово је тајни код'

2. Затим кликните на Тоолс, ВБАПројецт Пропертиес.

Кликните на Тоолс, ВБАПројецт Пропертиес.



3. На картици Заштита означите 'Закључај пројекат за преглед' и двапут унесите лозинку.

да бисте прихватили предлог за самодовршавање притисните тастер

Двапут унесите лозинку

4. Притисните ОК.

5. Сачувајте, затворите и поново отворите Екцел датотеку. Покушајте да видите код.

Појавиће се следећи дијалог:

Лозинка заштићена од гледања

Код и даље можете извршити кликом на командно дугме, али више не можете да видите или мењате код (осим ако не знате лозинку). Лозинка за Екцел датотеку која се може преузети је „лака“.

како израчунати пораст у екцелу

6. Ако желите да заштитите макро лозинком од извршавања, додајте следеће редове кода:

НиједанЛозинкаКао Варијанта
пассворд = Апплицатион.ИнпутБок ('Унесите лозинку', 'Заштићено лозинком')

Изаберите СлучајЛозинка
Случај Ис=Нетачно
'не ради ништа
Случај Ис= 'лако'
Опсег ('А1'). Вредност = 'Ово је тајни код'
Случај Иначе
МсгБок „Нетачна лозинка“
Крај Изаберите

Резултат када притиснете командно дугме на листу:

Лозинка заштићена од извршавања

Објашњење: Макро користи ИнпутБок методу објекта Апплицатион. Ако корисници кликну на Откажи, овај метод враћа Фалсе и ништа се не дешава (ИнпутБок нестаје). Тек када корисник зна лозинку (поново „лако“), тајни код ће бити извршен. Ако је унета лозинка нетачна, приказује се МсгБок. Имајте на уму да корисник не може погледати лозинку у уређивачу Висуал Басиц -а јер је пројекат заштићен од гледања.

9/9 Завршено! Сазнајте много више о креирању макроа>
Идите на следеће поглавље: МсгБок



^