Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Событие по Enter в форме!
 
#1
07.10.2008 17:09:05
Доброго всем времени суток.  
Подскажите пожалуйста мне по следующему вопросу: у меня есть форма, которая отображается при открытии файла и которая предлагает просмотреть открываемый файл или отредактировать. Для возможности редактирования предлагается ввести пароль в TextBox и нажать кнопку ОК. Но рука по привычке после ввода пароля жмет на Enter, а это приводит к закрытию формы и соответственно к просто просмотру файла без возможности редактирования. Подскажите, что добавить в код макроса, чтобы при нажатии Enter после ввода пароля это нажатие отрабатывалось как нажатие кнопки ОК.  
 
Private Sub ButtonOK_Click()  
   If TextBox.Text <> "123" Then  
   MsgBox "Вы ввели неправильный пароль!   "  
   GoTo dd  
   Else  
   Range("B7,B11,B13,B15").Locked = False  
   Unload Me  
   End If  
dd:  
   TextBox.Text = ""  
End Sub
 
 
 
#2
07.10.2008 17:15:31
попробуйте при инициализации формы ввести  
ButtonOK.default=true  
должно помочь
 
 
 
#3
07.10.2008 17:24:34
{quote}{login=kaa}{date=07.10.2008 05:15}{thema=}{post}попробуйте при инициализации формы ввести  
ButtonOK.default=true  
должно помочь{/post}{/quote}  
 
Не помогло. Форма раскрывающаяся. Для редактирования нажимается кнопка на форме "Редактирование" и форма увеличивается в размере вниз и появляется поле для ввода пароля.
 
 
 
#4
07.10.2008 17:28:45
хм...  
у меня все работает
 
 
 
#5
07.10.2008 17:35:56
Может быть так:  
 
Private Sub ButtonOK_Click()  
   Do While TextBox.Text <> ""  
       If TextBox.Text <> "123" Then  
           MsgBox "Вы ввели неправильный пароль! "  
       Else  
           Range("B7,B11,B13,B15").Locked = False  
           Unload Me  
       End If  
   Loop  
   TextBox.Text = ""  
End Sub
 
 
 
#6
07.10.2008 20:58:21
Меня научили вот так:  Если у Вас CommandButton1_Click это «ОК», то  
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)  
  CommandButton1_Click  
End Sub  
И всё по Enter вводится
 
 
 
#7
08.10.2008 10:41:32
Да спасибо, с кодом Юрия заработало, но не совсем так как хотелось бы. Теперь после ввода правильного пароля все так как должно быть. А вот если пароль был введен не правильно, появляется сообщение о неправильно введенном пароле и по моей задумке тест бокс для ввода должен очищаться и форма остается на экране для второй попытки, по после нажатия ОК на сообщении о неправильном пароле форма закрывается. Как это поправить?  
 
Private Sub UserForm_Initialize()  
   Me.Height = 198  
End Sub  
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)  
   ButtonOK_Click  
End Sub  
 
Нажатие кнопки редактирования.  
Private Sub ButtonEdit_Click()  
   If Me.Height = 198 Then  
   TextBox1.PasswordChar = "*"  
   TextBox1.SetFocus  
   Me.Height = 228  
   metka_pass = False  
   ButtonOK.Default = True  
   ElseIf Me.Height = 228 Then  
   Me.Height = 198  
   End If  
End Sub  
 
Нажатие кнопки ОК после ввода пароля.  
Private Sub ButtonOK_Click()  
   If TextBox1.Text = "16155161" Then  
       Range("B7,B11,B13,B15").Locked = False  
       Sheets("Лист3").Activate  
       metka_pass = True  
       Unload Me  
   Else  
       MsgBox "Вы ввели неправильный пароль!   "  
       TextBox1 = ""  
       TextBox1.SetFocus  
   End If  
End Sub
 
 
 
#8
08.10.2008 13:42:38
Никто не поможет?
 
 
 
#9
08.10.2008 13:55:55
я выкладывал файл. там реализавано то, что ты хочешь
 
 
 
#10
08.10.2008 13:59:19
Давйте ваш фал с формой - посмотрим. Не рисовать же самому неизвестно что
 
 
 
#11
08.10.2008 17:04:24
Файл с формой. Пароль на все 123
 
 
 
#12
08.10.2008 17:17:33
ну вот, все работает
 
 
 
#13
08.10.2008 17:36:39
Ну не работает: вводим неправильный пароль нажимаем энтер и форма закрывается без всяких сообщений.
 
 
 
#14
08.10.2008 18:59:16
ща домучаем... :о)
 
 
 
#15
08.10.2008 21:00:25
вот.  
 
вставил твой код в свою форму - все заработало. чудеса...
 
 
 
#16
08.10.2008 21:51:44
Если пароль 123 верный, то почему все время MsgBox талдычит, что пароль НЕВЕРНЫЙ?
 
 
 
#17
09.10.2008 09:23:40
а если в код глянуть? видно я на "1" поменял....
 
 
 
#18
13.10.2008 16:48:14
kaa может я тупой, но все же. В Вашем файле все работает.  
Я беру код из Вашего файла копирую весь целиком, вставляю в свой файл, который я здесь выкладывал выше и НЕ РАБОТАЕТ, т.е. форма при неправильном пароле закрывается. Что не так?????? Может вы еще чего в свойствах элементов формы меняли или еще чего????
 
 
 
#19
13.10.2008 17:01:07
я же говорю - чудеса. это не я, это, скорее всго, вы что-нить поменяли, потому что я брал "новые" объекты.  
выход из положения - сохраняйте мою форму (правой кнопкой на форму - Экспорт файл) и всавляйте ее в свой проект. ну и красоту под себя наводите... ну или удалите свою и создайте все по новой.
 
 
 
#20
13.10.2008 17:17:46
Да, спасибо каа я нашел, у меня в параметре кнопок формы стоял Default True, а у Вас False, я поменял и все работает! Ура!
 
 
 
Страницы: 1
Читают тему
Наверх