Excel VBA密码输入窗体易被绕过，Userform_Terminate引发死循环求助

我太懂你这个糟心的问题了——之前帮好几个做Excel工具的朋友踩过这个坑，直接在Terminate事件里跳回窗体确实会触发无限循环，因为关闭新弹出的窗体又会触发Terminate，简直是死循环套娃。下面给你一套亲测有效的解决方案：

核心思路：用QueryClose替代Terminate拦截关闭操作 #

Terminate事件是窗体完全卸载后才触发的，这时候你再弹出新窗体，用户关闭它又会触发Terminate，自然循环。而QueryClose是窗体关闭前触发的，我们可以在这里拦截用户点击关闭按钮的操作，直接取消关闭，从根源避免循环。

步骤1：改造密码输入窗体的关闭拦截逻辑 #

在密码输入Userform的代码窗口中，删除原来的UserForm_Terminate事件，添加以下QueryClose事件代码：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ' 判断是否是用户点击右上角关闭按钮触发的关闭
    If CloseMode = vbFormControlMenu Then
        Cancel = True ' 取消本次关闭操作
        MsgBox "请输入正确密码以继续，无法绕过验证！", vbExclamation
        ' 将焦点放回密码输入框，引导用户输入
        Me.txtPassword.SetFocus
    End If
End Sub

步骤2：完善工作簿启动与验证逻辑 #

在ThisWorkbook的代码窗口中，设置工作簿打开时的流程，确保只有验证通过才能进入数据输入界面：

Private Sub Workbook_Open()
    ' 以模态方式显示密码窗体，用户必须处理完才能操作Excel主界面
    UserFormPassword.Show vbModal
    
    ' 验证未通过则直接关闭工作簿，彻底阻止绕过
    If Not gblnPasswordVerified Then
        Me.Close SaveChanges:=False
    Else
        ' 验证通过，显示数据输入窗体
        UserFormDataEntry.Show
    End If
End Sub

步骤3：添加验证标记与密码确认逻辑 #

1. 新建一个标准模块（比如命名为mdlGlobal），声明全局验证标记：

Public gblnPasswordVerified As Boolean

2. 在密码窗体的确认按钮（比如cmdConfirm）中添加验证逻辑：

Private Sub cmdConfirm_Click()
    ' 替换成你的实际密码
    If Me.txtPassword.Text = "YourSecurePassword" Then
        gblnPasswordVerified = True
        Unload Me ' 验证通过后正常关闭密码窗体
    Else
        MsgBox "密码错误，请重试！", vbCritical
        Me.txtPassword.Text = ""
        Me.txtPassword.SetFocus
    End If
End Sub

额外优化建议 #

• 把密码输入框的PasswordChar属性设为*，避免输入的密码明文显示；
• 可以添加尝试次数限制，比如输错3次就自动关闭工作簿，增强安全性；
• 不要把密码硬编码在代码里（虽然VBA代码本身容易被破解，但至少可以简单加密一下，比如用字符替换的方式隐藏明文）。

这样处理后，用户既没法通过点击关闭按钮绕过验证，也不会出现无限循环的问题，完美解决你的痛点！

内容的提问来源于stack exchange，提问作者Barbaaz