excel - 验证完成后自动关闭用户表单

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 语句上的 TextBox。

尝试包括该行

Exit For

之后 Unload Me