Вопрос № 139981: Уважаемые господа эксперты, (VBA) не могу сообразить, как при наборе пароля заменить демонстрацию текста в диалоговом окне звездочками. Какой стандартный (очевидно) прием? Благодарю за терпение! Ф. Зыков
..
Вопрос № 139.981
Уважаемые господа эксперты, (VBA) не могу сообразить, как при наборе пароля заменить демонстрацию текста в диалоговом окне звездочками. Какой стандартный (очевидно) прием? Благодарю за терпение! Ф. Зыков
Отвечает: ualife
Здравствуйте, Зыков Феликс Никанорович!
К сожалению у вас не получится воспользоваться таким способом. Есть другой вариант - создать форму, а на ней textbox.
Открываете редактор макросов, меню insert - userform.
Добавляете на форму textbox, в опциях textbox находите параметр PasswordChar и пишите символ звездочки.
Добавите кнопку, при нажатии на кнопку окно закрывается (используйте userform1.hide, где userform1 - название окна) и выполняется процедура sub проверка_пароля()
If Пароль <> "ABC" Then GoTo Неправильно
d = InputBox("Введите № листа из списка Задания.", "Например", "6")
Range("A55").Select
ActiveCell.FormulaR1C1 = d 'формула в А55
Exit Sub
Неправильно:
MsgBox "Обратитесь к преподавателю"
end sub
Окно открываете с помощью userform1.show, где userform1 - название окна
Удачи!
Ответ отправил: ualife (статус: 9-ый класс)
Ответ отправлен: 14.07.2008, 20:24 Оценка за ответ: 5 Комментарий оценки: Но...Тяжела ты шапка Мономаха. Не забывайте, что Ваших трудных "пациентов" иногда желательно вести за (под) ручку.