Баш као што можете заштитити радне свеске и радне листове лозинком, можете заштитите макро лозинком у Екцел од гледања (и извршења).
Поставите командно дугме на свој радни лист и додајте следеће редове кода:
1. Прво креирајте једноставан макро који желите да заштитите.
Опсег ("А1"). Вредност = "Ово је тајни код"
2. Затим кликните на Тоолс, ВБАПројецт Пропертиес.
3. На картици Заштита означите "Закључај пројекат за преглед" и двапут унесите лозинку.
4. Притисните ОК.
5. Сачувајте, затворите и поново отворите Екцел датотеку. Покушајте да видите код.
Појавиће се следећи дијалог:
Код и даље можете извршити кликом на командно дугме, али више не можете да прегледате или уређујете код (осим ако не знате лозинку). Лозинка за Екцел датотеку која се може преузети је „лака“.
6. Ако желите да заштитите макро лозинком од извршавања, додајте следеће редове кода:
Затамните лозинку као варијанту
пассворд = Апплицатион.ИнпутБок ("Унесите лозинку", "Заштићено лозинком")
Изаберите Лозинка случаја
Случај је = Нетачно
'не ради ништа
Случај је = "лако"
Опсег ("А1"). Вредност = "Ово је тајни код"
Цасе Елсе
МсгБок "Нетачна лозинка"
Крај Изаберите
Резултат је када притиснете командно дугме на листу:
Објашњење: Макро користи ИнпутБок методу објекта Апплицатион. Ако корисници кликну на Откажи, овај метод враћа Фалсе и ништа се не дешава (ИнпутБок нестаје). Тек када корисник поново зна лозинку („лако“), тајни код ће бити извршен. Ако је унета лозинка нетачна, приказује се МсгБок. Имајте на уму да корисник не може погледати лозинку у уређивачу Висуал Басиц -а јер је пројекат заштићен од гледања.
