Мини-курс "5 чудес Excel"

План действий.

1. Скачайте себе мой файл по кнопке ниже.

2. В файле уже живёт макрос, который вынуждает Вас при открытии файла включить макросы (нажмите ALT+F11 и перейдите в модуль ThisWorkbook либо ЭтаКнига, он там).

Логика следующая - при закрытии файла скрываются все рабочие листы и отображается служебный, предлагающий включить макросы.

При открытии файла, если макросы включены, то автоматически служебный лист скрывается, рабочие отображаются, но если макросы не включить, то и рабочих листов нет. В общем, выхода у пользователя нет, придётся нажать кнопку "Включить содержимое" ))

3. Попробуйте перейти на лист Секрет и файл запросит пароль. Пробуйте - при неверном вводе файл будет создавать новый лист и отправлять Вас туда. Но если ввести 111, то на листе Секрет Вы и останетесь.

4. В мой файл перебросьте листы из своей рабочей книги. Мой файл можете переименовать, как угодно, только расширение оставьте прежним.

5. Нажмите ALT+F11 и двойным щелчком по модулю листа Секрет перейдите в него. В правой части отобразится текст волшебного макроса.
Пароль измените на свой. Утешительный текст тоже можете переписать. Или же вообще выделите весь код этого макроса и скопируйте его в модуль того листа, который хотите заблокировать, а из текущего модуля удалите.

Вот и всё.
Файл с примером
Макросы на VBA c нуля