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