В прошлом году на открытие файла был добавлен следующий код:
[vba]
Код
Private Sub Workbook_Open() Dim zdate As Date zdate = #1/1/2016# If Date > zdate Then MsgBox "Данные этой книги актуальны для 2016 года!" UserForm1.Show If pswd <> "12345" Then MsgBox "Введен неверный пароль!" ThisWorkbook.Close End If End If End Sub
[/vba]
Сейчас появилась необходимость проверить данные... Но вот беда - пароль не принимает! С чем может быть проблема? Пароль знаю точно - проблема в другом.
В прошлом году на открытие файла был добавлен следующий код:
[vba]
Код
Private Sub Workbook_Open() Dim zdate As Date zdate = #1/1/2016# If Date > zdate Then MsgBox "Данные этой книги актуальны для 2016 года!" UserForm1.Show If pswd <> "12345" Then MsgBox "Введен неверный пароль!" ThisWorkbook.Close End If End If End Sub
[/vba]
Сейчас появилась необходимость проверить данные... Но вот беда - пароль не принимает! С чем может быть проблема? Пароль знаю точно - проблема в другом.Stork4ever
Открыть файл я могу. Открываю, вижу пароль, понимаю, что он правильный. Проблема не в этом. Я хочу понять, почему обычный пользователь зная пароль не может открыть файл?
Полагаю, что данный пароль прописывается в параметры безопасности. Но почему не проходит проверку. Ведь, когда этот код вводился я его тестировал и все работало, а сейчас, когда срок настал - не работает :( [moder]Кладите сюда файл с макросом и юзерформой. Остальное можно поубивать
Открыть файл я могу. Открываю, вижу пароль, понимаю, что он правильный. Проблема не в этом. Я хочу понять, почему обычный пользователь зная пароль не может открыть файл?
Полагаю, что данный пароль прописывается в параметры безопасности. Но почему не проходит проверку. Ведь, когда этот код вводился я его тестировал и все работало, а сейчас, когда срок настал - не работает :( [moder]Кладите сюда файл с макросом и юзерформой. Остальное можно поубиватьStork4ever
Сообщение отредактировал _Boroda_ - Четверг, 21.01.2016, 12:46
Да, на момент проверки pswd пустой. Почему? Код формы таков: [vba]
Код
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then pswd = TextBox1.Text Unload UserForm1 End If End Sub
[/vba]
Да, на момент проверки pswd пустой. Почему? Код формы таков: [vba]
Код
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then pswd = TextBox1.Text Unload UserForm1 End If End Sub
Private Sub Workbook_Open() Dim zdate As Date zdate = #1/1/2016# If Date > zdate Then MsgBox "Срок действия программы истек!" UserForm1.Show End If End Sub
[/vba] [vba]
Код
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Dim pswd As String If KeyCode = 13 Then pswd = TextBox1.Text If pswd = "12345" Then MsgBox pswd Unload UserForm1 Else MsgBox "Введен не верный пароль!" ' ThisWorkbook.Close End If End If End Sub
[/vba]
[vba]
Код
Private Sub Workbook_Open() Dim zdate As Date zdate = #1/1/2016# If Date > zdate Then MsgBox "Срок действия программы истек!" UserForm1.Show End If End Sub
[/vba] [vba]
Код
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Dim pswd As String If KeyCode = 13 Then pswd = TextBox1.Text If pswd = "12345" Then MsgBox pswd Unload UserForm1 Else MsgBox "Введен не верный пароль!" ' ThisWorkbook.Close End If End If End Sub