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

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

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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
1
2
3
4
5
6
7
8
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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

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

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

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

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