验证完成后自动关闭用户窗体

Question

我创建了一个登录屏幕，以便在输入有效密码时对 excel 工作簿进行身份验证。

代码如下：

Private Sub CommandButton1_Click()
 name_selected = ComboBox1.Text
 pwd_entered = TextBox2.Text
 validation_sheet = "Z"
 act_p_col_num = 3
 Application.Visible = True
 For validation_check = 2 To Worksheets(validation_sheet).Cells(Rows.Count, 1).End(xlUp).Row - 1
    If (Worksheets(validation_sheet).Cells(validation_check, 1) = name_selected) Then
        bk_pd = Worksheets(validation_sheet).Cells(validation_check, act_p_col_num).Value
        If (bk_pd = pwd_entered) Then
            Worksheets("INDIVIDUAL_TRACKER").Select
            MsgBox ("Authentication successful")
            UserForm1.Hide
            'Set UserForm1.Visible = False
        Else
            Application.Visible = False
            MsgBox ("Please enter a valid password! Account will be locked after 3 tries")
            TextBox2.Text = ""
        End If
    End If
 Next validation_check
End Sub

但是，已经尝试使用此unload me命令和userform1.hide命令，这仍然给我抛出运行时错误424，需要对象。

我的目标是在身份验证通过后转到工作簿，并且userform应自动关闭。

有人可以帮助我解决这个问题吗？

Answer 1

我的猜测是 for 循环的下一次迭代是实际导致问题的原因。您尝试访问 if 语句上的文本框时，窗体已卸载。

尝试包括该行

Exit For

Unload Me后

Answer 2

重新

洗牌application.visible=True线已经解决了目的。在正确的地方使用它使它运行良好。使用Exit For是一个额外的优势。

Private Sub CommandButton1_Click()
 name_selected = ComboBox1.Text
 pwd_entered = TextBox2.Text
 validation_sheet = "Z"
 act_p_col_num = 3
 Application.Visible = True
 For validation_check = 2 To Worksheets(validation_sheet).Cells(Rows.Count, 1).End(xlUp).Row - 1
    If (Worksheets(validation_sheet).Cells(validation_check, 1) = name_selected) Then
        bk_pd = Worksheets(validation_sheet).Cells(validation_check, act_p_col_num).Value
        If (bk_pd = pwd_entered) Then
            Unload Me
            'UserForm1.Hide
            'Set UserForm1.Visible = False
            Application.Visible = True
            Worksheets("INDIVIDUAL_TRACKER").Select
            MsgBox ("Authentication successful")
            Exit For
        Else
            'Application.Visible = False
            MsgBox ("Please enter a valid password! Account will be locked after 3 tries")
            TextBox2.Text = ""
        End If
    End If
 Next validation_check
End Sub

感谢所有对这个问题有所了解的人。这是一次很好的头脑风暴。谢谢大家。该问题现已解决。