Страницы: 1
RSS
Ввод пароля в TextBox
 
Всем привет!
Собственно, имеется лист, а-ля авторизация пользователя. На лист помещен TextBox и кнопка, на кнопку завязан макрос "Auth", который проверяет чтоб в текстбоксе было значение 123, если там что - то другое выкидывает сообщение. Но, проблема в том, макрос как - будто не видит этот самый текстбокс. Чтоб я туда не ввел он всегда выкидывает MsgBox. Прикладываю пример файла.
P.S - делать авторизацию через UserForm не хотелось бы, не красиво оно как - то)
 
Приветствую.
Код
Sub Auth()
    If Лист1.TextBox1 = "123" Then
        Sheets("Авторизация").Visible = 2
        Sheets("Параметры").Visible = -1
    Else
        MsgBox "Неверный пароль"
    End If
End Sub
 
Цитата
написал:
Приветствую.
Здравствуйте!
Все оказалось так просто)
Спасибо большое, все работает)
 
Код
If ActiveSheet.TextBox1.Text = "123" Then
Страницы: 1
Наверх