Кнопка Отмена
Скройте все страницы книги не считая страницы 1. Для скрытия применяйте контекстное меню ярлыка страницы либо команду Основная – Формат – Скрыть либо отобразить – Скрыть лист. Включите защиту книги (Рецензирование – Обезопасисть книгу). В поле Пароль напишите собственную фамилию.
Удостоверьтесь в надежности наличие на ленте в Excelвкладки Разработчик, в случае если ее в том месте нет, то подключите ее (Файл – Параметры – Настройка ленты, в правой части экрана установите флажок наоборот вкладки Разработчик). Перейдите на вкладку разработчик, надавите кнопку
, в раскрывшемся перечне выберите элемент Кнопка и очертите контур кнопки в безлюдном месте страницы. В открывшемся окне введите имя макроса «Отмена», в спискеНаходится в: выберите вариант «Эта книга», надавите кнопку Записать.В окнеЗапись макросанажмитеOk.
Снимите защиту с книги (Рецензирование – Обезопасисть книгу). Перейдите на вкладку Основная –
– Скрыть либо отобразить – Отобразить лист – Результаты. Скройте лист 1. Включите защиту книги (Рецензирование – Обезопасисть книгу). В поле Пароль напишите собственную фамилию. Зайдите на вкладку разработчик и надавите кнопку
.
Снимите защиту с книги, отобразите лист 1и скройте лист Результаты. Напишите на кнопке слово Отмена.Включите защиту книги.
Дабы ознакомится с кодом макроса перейдем на вкладку Разработчик и надавим кнопку
(Alt+F11). В окне Projectsраскройте каталог Modulesи выберите Module1.
Код макроса будет иметь вид:
Сделаем кое-какие пояснения по этому коду.
Строка ActiveWorkbook.Unprotectобеспечивает снятие защиты с книги, но, при записи макроса пароль не записывается в его код и нам нужно будет дописать его вручную. Переместите курсор вконец строки, поставьте пробел и напишите пароль (дата вашего рождения, к примеру 010197) для снятия защиты с книги.
Sheets(Результаты) – говорит о объекте лист Результаты.
Visible – свойство объекта лист, может иметь два значения 0(False)и 1(True).Значение Trueделает объект видимым, False – скрывает объект.
Так, строка кодаSheets(“Результаты”).Visible=Trueобеспечивает отображение страницы Результаты.
Select – воздействие снабжающее выделение объекта.
Тогда строка Sheets(1).Selectможетбыть удалена из текста макроса, потому, что лист 1 итак будет в активном состоянии.
Строка ActiveWindow.SelectedSheets.Visible = Falseскрывает деятельный лист.
Строка ActiveWorkbook.ProtectStructure:=True, Windows:=Falseустанавливает защиту на книгу, запишите пароль по окончании слова Protect, отделив его пробелом. По окончании пробела поставьте запятую.
В случае если вкачестве пароля забрать число 12345, то код макроса должен иметь следующий вид:
По окончании оптимизации кода макроса его возможно будет применять на всех страницах, т.к. мы избавились от ссылки на конкретный страницу.
Кнопка Потом
Перейдите на страницу 1, создайте еще одну кнопку, включите защиту книги и начните запись макроса. Назовите егоДалее, в перечне Находится в: выберите вариант «Эта книга». Снимите защиту с книги,сделайте видимым лист 2, скройте лист 1, включите защиту книги и остановите запись макроса.
По окончании записи макроса отобразите лист 1, скройте лист 2 и включите защиту книги. Напишите на кнопке фразу «Потом».
Полученный макрос будет содержать следующий код
Sub потом()
ActiveWorkbook.Unprotect12345
Sheets(1).Select
Sheets(2).Visible = True
Sheets(1).Select
ActiveWindow.SelectedSheets.Visible = False
ActiveWorkbook.Protect 12345 Structure:=True, Windows:=False
EndSub
Урок №1. Макросы в Excel. запуск и Запись макросов
