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

Лабораторная работа №10. Условные операторы и программирование разветвления программы на VBA

Цель работы: научиться на VBA: программировать разветвляющиеся вычисления с помощью инструкций IF-THEN-ELSE и SELECT CASE, а также устанавливать выборочный доступ к листам Excel по паролям

Порядок работы:

Уровень Примечание

А 1.На первых трех листах набрать «секретную» информацию. Защитить эти листы от записи в ячейки с помощью команд меню «Сервис» - «Защита» - «Защитить лист» и скрыть три первых листа (перед этим добавить лист 4) с помощью команд меню «Формат» - «Лист» - «Скрыть». Сохранить файл с «секретной» информацией на диске под именем LAB10ФИО.xls (при его открытии первые 3 листа должны быть не видны)

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 баллов, если пройден уровень А

Индивидуальное задание: LEVEL1 – все три листа видимы, но защищены от записи, LEVEL2 – все три листа видимы и доступны для записи, LEVEL3 – видим, но защищен от записи только 3 лист

Пример программы:

Sub Auto_Open()

PassWord

End Sub

Sub PassWord()

Dim PassW As String

PassW = GetPassWord

If PassW = \"level1\" Then

For Each Sheet In ActiveWorkbook.Sheets

Sheet.Visible = True

Sheet.Unprotect

Next

MsgBox \"Вы получили полный доступ\"

ElseIf PassW = \"level2\" Then

ActiveWorkbook.Worksheets(1).Visible = True

ActiveWorkbook.Worksheets(1).Unprotect

MsgBox \"Вы получили полный доступ к листу1\"

ElseIf PassW = \"level3\" Then ActiveWorkbook.Worksheets(1).Visible = True

MsgBox \" Вы получили доступ на чтение к листу1\"

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?