Условные операторы и программирование разветвления программы на VBA
Цель работы: научиться на VBA: программировать разветвляющиеся вычисления с помощью инструкций IF—THEN—ELSE и SELECTCASE, а также устанавливать выборочный доступ к листам Excel по паролям.
Ход работы:
1. На первый трех листах набрал “секретную” информацию. Защитил эти листы от записи в ячейки с помощью команд меню «Сервис» – «Защита» – «защитить лист» и скрыл три первых листа, перед этим создав 4 лист.
2. С помощью команд меню «Формат» – «Лист» – «Скрыть». И сохранил этот файл под именем LAB10КАО.xls.
3. Через меню «Сервис – Макрос» вызвал редактор VBA, вставил модуль и набрал программу проверки пароля при автозагрузке файла с помощью функции IF – THEN – ELSE.
4. Поочередно открывая «секретный» файл с «секретной» информацией, автоматически запрашивается пароль. При наборе пароля level1 все 3 листа становятся видимыми с доступом к записи ячейки. При наборе пароля level2 – становится видимым 1 лист с доступом записи в этот лист (при этом лист 2 – остается не видимым, а лист 3 – защищенным от записи). При наборе пароля level3 – лист 1 появляется только для чтения ячеек. Любой другой пароль не показывает листы с записанной на них «секретной» информацией.
5. Изменил программу доступа к листам по паролям согласно индивидуальному заданию и добился правильности работы программы, проверяя ее в соответствии с пунктом 4
6. Изменил пароли “level1”, “level2”, “level3” на свои собственные и поставил пароль на саму программу.
Вывод: Научился на VBA: программировать разветвляющиеся вычисления с помощью инструкций IF—THEN—ELSE и SELECTCASE, а также устанавливать выборочный доступ к листам Excel по паролям.
