Так же, как вы можете защитить паролем книги и рабочие листы, вы можете пароль защитить макрос в Excel от просмотра (и исполнения).
Поместите командную кнопку на свой рабочий лист и добавьте следующие строки кода:
1. Сначала создайте простой макрос, который вы хотите защитить.
Диапазон ("A1"). Значение = "Это секретный код"
2. Затем щелкните Инструменты, Свойства VBAProject.
3. На вкладке «Защита» установите флажок «Заблокировать проект для просмотра» и дважды введите пароль.
4. Щелкните ОК.
5. Сохраните, закройте и снова откройте файл Excel. Попробуйте просмотреть код.
Появится следующее диалоговое окно:
Вы по-прежнему можете выполнить код, нажав кнопку команды, но вы больше не можете просматривать или редактировать код (если вы не знаете пароль). Пароль для загружаемого файла Excel "простой".
6. Если вы хотите защитить паролем макрос от выполнения, добавьте следующие строки кода:
Тусклый пароль как вариант
password = Application.InputBox ("Введите пароль", "Защищено паролем")
Выберите пароль для обращения
Case Is = False
'ничего не делать
Case Is = "легкий"
Диапазон ("A1"). Значение = "Это секретный код"
Case Else
MsgBox «Неверный пароль»
Конец Выбрать
Результат при нажатии кнопки команды на листе:
Объяснение: Макрос использует метод InputBox объекта Application. Если пользователь нажимает кнопку «Отмена», этот метод возвращает значение «Ложь», и ничего не происходит (поле ввода исчезает). Только когда пользователь знает пароль (снова «легко»), секретный код будет выполнен. Если введенный пароль неверен, отображается MsgBox. Обратите внимание, что пользователь не может взглянуть на пароль в редакторе Visual Basic, поскольку проект защищен от просмотра.
