input文本框的密码后如何启用文本框内容？

我正试图在文本框Txttravel上禁用事件GotFocus（）。 我希望如果我们要编辑这个文本框，我们必须input密码，然后文本框被启用，我们可以编辑它。 帮助实现它。 我尝试了下面的代码。 但是，当文本框处于禁用状态时，它不会激怒。

 Private Sub Txttravel_GotFocus() Dim Password As String Password = InputBox("Enter password to edit this field:", "Password") If Password = "Cloudbu@hcl" Then Txttravel.Enabled = True Me.Range("A1").Select End If Txttravel.Enabled = False End Sub 

Answer 1

首先，只有微软在这里 可以看到并启用控件，控件才能获得焦点 。

---

scheme1：select另一个控件

作为替代scheme，我build议您只要在表单中select另一个控件，如果密码错误并且不禁用文本框。

尝试改变你的代码

 Private Sub Txttravel_Enter() Dim Password As String Password = InputBox("Enter password to edit this field:", "Password") If Password = "Cloudbu@hcl" Then Txttravel.SetFocus Else 'Select another control in your form here TextBox2.SetFocus End If End Sub 

---

由@KostasK提出的备选scheme2：使用locking属性

由KostasK在评论中提出，您可以locking文本框。

 Private Sub Txttravel_Enter() Dim Password As String Password = InputBox("Enter password to edit this field:", "Password") If Password = "Cloudbu@hcl" Then Txttravel.Locked = False Else Txttravel.Locked = True End If End Sub 

注意：请确保将此代码放置在您的表单中：右键单击您的表单>查看代码