Точно както можете да защитите с парола работни книги и работни листове, можете защита на макрос с парола в Excel от гледане (и изпълнение).
Поставете команден бутон на работния си лист и добавете следните кодови редове:
1. Първо, създайте прост макрос, който искате да защитите.
Диапазон ("A1"). Стойност = "Това е секретен код"
2. След това щракнете върху Инструменти, VBAProject Свойства.
3. В раздела Защита поставете отметка в „Заключване на проекта за преглед“ и въведете парола два пъти.
4. Щракнете върху OK.
5. Запазете, затворете и отворете отново Excel файла. Опитайте се да видите кода.
Ще се появи следният диалогов прозорец:
Все още можете да изпълните кода, като щракнете върху командния бутон, но вече не можете да преглеждате или редактирате кода (освен ако не знаете паролата). Паролата за файла за изтегляне на Excel е „лесна“.
6. Ако искате да защитите макроса с парола от изпълнение, добавете следните кодови редове:
Затъмнете паролата като вариант
парола = Application.InputBox ("Въведете парола", "Защитени с парола")
Изберете Парола на случая
Случаят е = невярно
'не прави нищо
Делото е = "лесно"
Диапазон ("A1"). Стойност = "Това е секретен код"
Дело иначе
MsgBox „Неправилна парола“
Край Изберете
Резултат, когато щракнете върху командния бутон на листа:
Обяснение: Макросът използва метода InputBox на обекта Application. Ако потребителите щракнат върху Отказ, този метод връща False и нищо не се случва (InputBox изчезва). Само когато потребителят знае паролата ("лесно" отново), секретният код ще бъде изпълнен. Ако въведената парола е неправилна, се показва MsgBox. Имайте предвид, че потребителят не може да погледне паролата в редактора на Visual Basic, защото проектът е защитен от гледане.
