Исправить процедуру авторизации пользователя

@Palo4 · Регистрация: 18.12.2012

Author24 — интернет-сервис помощи студентам

Visual Basic

Private Sub UserForm_Initialize()
For j = 3 To 1 Step -1
login = InputBox("Введите Логин, осталось  " + CStr(j) + " попыток")
Password = InputBox("Введите Пароль, осталось  " + CStr(j) + " попыток")
Do
i = i + 1
Loop Until Worksheets("База данных").Cells(i, 1).Value = "" Or Worksheets("База данных").Cells(i, 1).Value = login
If Worksheets("База данных").Cells(i, 1).Value = login And Worksheets("База данных").Cells(i, 11).Value = Password Then
 
 
MsgBox "Здравствуйте," + Worksheets("База данных").Cells(i, 3)
L = 1
Exit For
End If
i = 0
Next j
If L = 1 Then
updatelists (1)
Else
MsgBox "Нет попыток"
End If
End Sub

отрывок.суть в том что программа должна запрашивать логин и пароль сотрудника организации.логин и пароль содержатся в ячейках.но вместо разового запроса, в случае правильного ответа, она запрашивает три раза.но так и не определяет пользователя

@Alex77755 · 24.12.2012, 02:12

Может пароль у тебя не в 11 столбце, а во втором?
Без файла ничего не скажешь

@Palo4 · 24.12.2012, 02:48 **[ТС]**

проверила.в 11 пароль
даже не представляю что делать.может есть какие нибудь книги для чайников про это дело
без зачета остаться не хочется

@Alex77755 · 24.12.2012, 09:46

выложи файл

Добавлено через 5 минут
если пароли цифровые, то сделай так:

Visual Basic

1	And Worksheets("База данных").Cells(i, 11).Value = CStr(Password) Then

Добавлено через 2 минуты
И не стоит отказываться от Option Explicit в верху модуля: помогает избежать некоторых ошибок

@Palo4 · 24.12.2012, 16:31 **[ТС]**

файл
поменяла.никаких изменений

@Alex77755 · 24.12.2012, 16:40

Не в той строке и не в той ячейке ищешь

Visual Basic

1	If Worksheets("База данных").Cells(i - 1, 2).Value = login And CStr(Worksheets("База данных").Cells(i - 1, 11).Value) = Password Then

@Palo4 · 24.12.2012, 20:28 **[ТС]**

не работает все равно(((

@Alex77755 · 24.12.2012, 21:08

Значит не всё исправила! У меня тот файл что прицеплен работает. Скопипасть блок

Visual Basic

Do
i = i + 1
Loop Until Worksheets("База данных").Cells(i, 1).Value = "" Or Worksheets("База данных").Cells(i, 1).Value = login
If Worksheets("База данных").Cells(i - 1, 2).Value = login And CStr(Worksheets("База данных").Cells(i - 1, 11).Value) = Password Then
MsgBox "Здравствуйте," + Worksheets("База данных").Cells(i, 3)
L = 1
Exit For
End If

@Palo4 · 24.12.2012, 21:16 **[ТС]**

добавила
и все равно!три раза запрашивает пароль и логин.потом все равно не определяет пользователя
может у меня что то не так работает?

@Alex77755 11509 / 3795 / 681 Регистрация: 13.02.2009 Сообщений: 11,204
	24.12.2012, 02:12	2
	Может пароль у тебя не в 11 столбце, а во втором? Без файла ничего не скажешь 0

@Palo4 0 / 0 / 0 Регистрация: 18.12.2012 Сообщений: 6
	24.12.2012, 02:48 [ТС]	3
	проверила.в 11 пароль даже не представляю что делать.может есть какие нибудь книги для чайников про это дело без зачета остаться не хочется 0

@Palo4 0 / 0 / 0 Регистрация: 18.12.2012 Сообщений: 6
	24.12.2012, 20:28 [ТС]	7
	не работает все равно((( 0

@Palo4 0 / 0 / 0 Регистрация: 18.12.2012 Сообщений: 6
	24.12.2012, 21:16 [ТС]	9
	добавила и все равно!три раза запрашивает пароль и логин.потом все равно не определяет пользователя может у меня что то не так работает? 0