Введение в информатику. Хамухин А.А. - 197 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

196
оставаться невидимым, а лист 3 – защищен от записи в ячейки), пароля ‖LEVEL3‖ –
лист 1 появляется только для чтения ячеек. Любой другой пароль не должен
показывать листы с «секретной» информацией.
Занятие 2 (Уровень А)
4. Изменить программу доступа к листам по паролям в соответствии с
вариантом индивидуального задания и добиться правильности работы программы,
проверяя ее в соответствии с п. 3.
(Уровень B)
5. Заменить инструкцию IF-THEN-ELSE на инструкцию SELECT CASE и
добиться такой же работы программы.
6. Изменить пароли “LEVEL1”, “LEVEL2”, “LEVEL3” на свои собственные
и поставить пароль на саму программу. В отчете представить блок-схему
разветвления программы по своему индивидуальному заданию.
Пример программы
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

Страницы