Сделал что-то типа пароля, вылазит окно формы,юзерок водит циферки или слова пароля. Если верно открывается лист (показать лист)
Работает, если пароль задан в самом коде VBA, но если его пароль задать в ячейке каком-нить листе, тот что он вводит в форуму и тот что в листе не сходятся,даже если они одинаковые. Я так понимаю форматы не верные?пробовал и "текст" и "общий " задать ячейке но это не помогло.2) Как скрыть точками или звездочками символы в окошке?
форма сделана InputBox .вот код:
Скрытый текст |
---|
Код |
---|
Private Sub Workbook_Open()
Sheets("Лист1").Visible = False 'List pokazat (vidimyj)
Sheets("Лист2").Visible = False 'List pokazat (vidimyj)
Sheets("Лист3").Select
'Windows("start.xlsm").Activate
If Sheets("nastr").Range("n14").Value <> Sheets("nastr").Range("n13").Value Then
'форма пароля
UserName = InputBox("Введите код аутентификации:")
pasw2 = UserName
If UserName <> "1234" Then GoTo WrongName
' -верно
Sheets("nastr").Range("n14") = Sheets("nastr").Range("n13")
Sheets("Лист1").Visible = True 'List pokazat (vidimyj)
Sheets("Лист2").Visible = True 'List pokazat (vidimyj)
Sheets("Лист1").Select
Exit Sub
WrongName:
MsgBox "Аутентификация отменена или провалена"
ActiveWindow.Close '-??????? ??????? ?????
ActiveWindow.Close '-??????? ??????? ?????
ActiveWindow.Close '-??????? ??????? ?????
Else
Sheets("Лист1").Visible = True 'List pokazat (vidimyj)
Sheets("Лист2").Visible = True 'List pokazat (vidimyj)
Sheets("Лист1").Select
End If
End Sub
|
|