Условные операторы и программирование разветвления программы на VBA

.

 

Цель работы: научиться на VBA: программировать разветвляющиеся вычисления с помощью инструкций IFTHENELSE и SELECTCASE, а также устанавливать выборочный доступ к листам Excel по паролям.

 

Ход работы:

1.     На первый трех листах набрал “секретную” информацию. Защитил эти листы от записи в ячейки с помощью команд меню «Сервис» – «Защита» – «защитить лист» и скрыл три первых листа, перед этим создав 4 лист.

2.     С помощью команд меню «Формат» – «Лист» – «Скрыть». И сохранил этот файл под именем LAB10КАО.xls.

3.     Через меню «Сервис – Макрос» вызвал редактор VBA, вставил модуль и набрал программу проверки пароля при автозагрузке файла с помощью функции IFTHENELSE.

4.     Поочередно открывая «секретный» файл с «секретной» информацией, автоматически запрашивается пароль. При наборе пароля level1 все 3 листа становятся видимыми с доступом к записи ячейки. При наборе пароля level2 – становится видимым 1 лист с доступом записи в этот лист (при этом лист 2 – остается не видимым, а лист 3 – защищенным от записи). При наборе пароля level3 – лист 1 появляется только для чтения ячеек. Любой другой пароль не показывает листы с записанной на них «секретной» информацией.

5.      Изменил программу доступа к листам по паролям согласно индивидуальному заданию и добился правильности работы программы, проверяя ее в соответствии с пунктом 4

6.     Изменил  пароли “level1”, “level2”,  level3” на свои собственные и поставил пароль на саму программу.

 

Вывод: Научился на VBA: программировать разветвляющиеся вычисления с помощью инструкций IFTHENELSE и SELECTCASE, а также устанавливать выборочный доступ к листам Excel по паролям.

Ссылка на основную публикацию