Visual Basic for Applications. Практика. Нагина Е.К - 37 стр.

      Задание 10. Написать процедуру с именем Proc10_IfThenElseIf, вы-
полняющую действия по следующему алгоритму:
   1. Оформить в виде процедуры функции с именем GetPassword ввод
      пароля, используя для этого окно ввода InputBox и функцию Lcase(),
      которая преобразует все буквы переданной в нее строки в строчные.
   2. После написания заголовка процедуры Proc10_IfThenElseIf выпол-
      нить описание переменных strPassword как текстовой и переменной
      Sheet как объектной с помощью оператора Dim.
   3. Выполнить вызов функции GetPassword и присвоить переданное
      функцией значение переменной strPassword.
   4. С помощью управляющей структуры If-Then-ElseIf проверить вве-
      денное через окно ввода значение пароля. Если введенное значение
      пароля равно “P555”, то перебрать все листы активной рабочей кни-
      ги и с каждым из них с помощью управляющей структуры (For Each
      Sheet In ActiveWorkbook.WorkSheets….Next Sheet) выполнить два
      действия: снять защиту с листа паролем, сделать лист видимым в
      случае, если он скрыт. Если значение пароля равно “P444”, то пер-
      вый лист активной рабочей книги сделать видимым и снять защиту с
      него. Если значение пароля равно “P333”, то первый лист рабочей
      книги сделать видимым.
   5. Если пароль введен неправильный, то выдать сообщение о повтор-
      ном вводе пароля с помощью функции MsgBox.

      Задание 11. Написать процедуру с именем Proc11_SelectCase, вы-
полняющую действия по следующему алгоритму:
   1. Оформить в виде процедуры функции с именем GetPassword ввод
      пароля, используя для этого окно ввода InputBox и функцию Lcase(),
      которая преобразует все буквы переданной в нее строки в строчные.
   2. После написания заголовка процедуры Proc33_SelectCase выполнить
      описание переменных strPassword как текстовой и переменной Elem
      как объектной с помощью оператора Dim.
   3. Выполнить вызов функции GetPassword и присвоить переданное
      функцией значение переменной strPassword.
   4. С помощью управляющей структуры Select Case strPassword прове-
      рить введенное через окно ввода значение пароля (Case <значение
      пароля>). Если введенное значение пароля равно “P555”, то каждому
      элементу управления формы с именем Form1 с помощью управляю-
      щей структуры (For Each Elem In Form1….Next Elem) установить
      следующие атрибуты шрифта: имя шрифта – “Ms Sans Serif ”, размер
      шрифта – 14, начертание шрифта – курсив. Если значение пароля
      равно “P444”, то каждому элементу управления формы установить
      следующие атрибуты шрифта: имя шрифта – “MT Extra”, размер
      шрифта – 10, начертание шрифта – полужирное. Если значение па-
                                  37