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

2.Через меню «Сервис-Макрос» вызвать редактор VBA, вставить модуль и набрать пример программы проверки пароля при автозагрузке файла с помощью инструкции IF-THEN-ELSE. Проверить и отладить ее работу в пошаговом режиме.

3. Поочередно открывать «секретный» файл LAB10ФИО.xls (при этом должен автоматически запрашиваться пароль). Показать, что при наборе пароля “LEVEL1” все три листа становятся видимыми с доступом к записи в ячейки, пароля” LEVEL2” – становится видимым лист 1 с доступом к записи в этот лист (лист 2 должен оставаться невидимым, а лист 3 – защищен от записи в ячейки), пароля” LEVEL3” – лист 1 появляется только для чтения ячеек. Любой другой пароль не должен показывать листы с «секретной» информацией. Максимум 30 баллов

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

В 5.Заменить инструкцию IF-THEN-ELSE на инструкцию SELECT CASE и добиться такой же работы программы. Пример найти в рекомендованной литературе (по ссылке, найденной в л.р.№2 и 3).

6.Изменить пароли “LEVEL1”, “LEVEL2”, “LEVEL3” на свои собственные и поставить пароль на саму программу. В отчете представить блок-схему разветвления программы по своему индивидуальному заданию. +40 баллов, если пройден уровень А

Else

MsgBox \"Пароль неверен\"

End If

End Sub

Function GetPassWord()

GetPassWord = LCase(InputBox(\"ВВЕДИ ПАРОЛЬ: \", \"PassWord\"))

End Function

Ход работы.

Задание А.

1.Для того, чтобы начать работу, необходимо открыть Excel, написать на первых трёх листах любую “секретную информацию”. (информацию, которую нужно будет скрыть и защитить)

Лист1 Лист 2 Лист 3

Рисунок 1.1. Запись информации на листах.

2. Защищаем эти листы от записи в ячейки с помощью команд меню «Сервис» - «Защита» - «Защитить лист».

Рисунок 1.2.Защита листов.

3. Добавить лист 4. После этого скрыть три первых листа, с помощью команд меню «Формат» - «Лист» - «Скрыть».

Рисунок 1.3.Скрытые листы.

4.Сохранить файл с «секретной» информацией на диске под именем LAB10КирилловаКС.xls (при его открытии первые 3 листа должны быть не видны)

5. Через меню «Сервис-Макрос» вызвать редактор VBA, вставить модуль

Рисунок 1.5.Вставка модуля.

6. Набираем пример программы проверки пароля при автозагрузке файла с помощью инструкции IF-THEN-ELSE.

Рисунок 1.6. Программа проверки пароля.

7. Проверить и отладить ее работу в пошаговом режиме.

Рисунок 1.7. Проверка работы.

8.Поочередно открывать «секретный» файл LAB10ФаттаховРР.xls (при этом должен автоматически запрашиваться пароль)

9. При наборе пароля “LEVEL1” все три листа становятся видимыми с доступом к записи в ячейки.

Рисунок 1.9. При пароле “LEVEL1”.

10. При наборе пароля” LEVEL2” – становится видимым лист 1 с доступом к записи в этот лист (лист 2 должен оставаться невидимым, а лист 3 – защищен от записи в ячейки).

Рисунок 1.10.При пароле “LEVEL2”.

11. При наборе пароля” LEVEL3” – лист 1 появляется только для чтения ячеек.

Рисунок 1.11. При пароле “LEVEL3”.

12. Любой другой пароль не должен показывать листы с «секретной» информацией.

Рисунок 1.12.Проверка другим паролем.

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

Рисунок 1.13.Изменение программы и её проверка.

Контрольные вопросы:

1.Какие управляющие структуры для разветвления программ VBA вы знаете?

Управляющими конструкциями языка программирования называются инструкции и группы инструкций, применение которых позволяет изменять по мере необходимости последовательность выполнения остальных инструкций программы.

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

2. Для чего предназначена структура ELSEIF?

Оператор ветвления (условный оператор) - это структура, которая представляет собой простую форму проверки заданных условий, впоследствии чего выполняются определенные операторы.

Оператор If…Then…Else…End if имеет следующий синтаксис:

If условие Then 1й_оператор Else 2й_оператор

1й_оператор выполняется в том случае, когда заданное условие является истиной, если же условие не равняется истине – тогда выполняется 2й_оператор.

3.Чем отличается структура IF от структуры SELECT CASE?