如何实现UserForm关闭时自动关闭关联Excel工作簿

核心逻辑是通过窗体的QueryClose事件拦截非验证流程的关闭操作，配合工作簿打开时的窗口隐藏逻辑，彻底堵上绕过验证的入口。 #

1. 为密码验证窗体添加关闭拦截逻辑 #

打开你的密码输入UserForm的代码编辑界面，按如下方式编写代码：

• 首先在模块所有过程的最顶部定义模块级验证标记，用来区分关闭窗体的操作是验证通过后的正常操作，还是用户强制关闭
• 在验证通过的逻辑分支里把标记置为True，再执行卸载窗体的操作
• 编写QueryClose事件，只要检测到用户通过右上角X、Alt+F4等方式关闭窗体、且未通过验证，就直接关闭工作簿

示例代码如下：

' 模块级验证标记，必须写在所有Sub/Function外面
Dim isPassVerified As Boolean

Private Sub UserForm_Initialize()
    ' 窗体启动时默认标记为未通过验证
    isPassVerified = False
End Sub

' 你的密码确认按钮点击逻辑，替换成你实际的控件名和密码规则
Private Sub cmdConfirmPwd_Click()
    Dim inputPwd As String
    inputPwd = Trim(Me.txtPwdInput.Value)
    
    ' 原有密码判断逻辑，根据你的需求调整
    Select Case inputPwd
        Case "你的完整访问密码"
            ' 这里写你原来开放完整编辑权限的代码
            isPassVerified = True
            Unload Me
        Case "你的受限访问密码"
            ' 这里写你原来开放只读/部分权限的代码
            isPassVerified = True
            Unload Me
        Case Else
            MsgBox "密码输入错误，请重试", vbCritical
            Me.txtPwdInput.Value = ""
            Me.txtPwdInput.SetFocus
    End Select
End Sub

' 核心：拦截所有非验证通过的窗体关闭操作
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ' vbFormControlMenu 对应用户点击右上角X、按Alt+F4触发的关闭
    If CloseMode = vbFormControlMenu And Not isPassVerified Then
        Cancel = True ' 先取消默认的关闭动作，避免残留可操作窗口
        ' 关闭当前工作簿，不保存任何更改，防止用户篡改内容
        ThisWorkbook.Close SaveChanges:=False
        ' 如果需要直接退出整个Excel程序，把上一行替换为 Application.Quit 即可
    End If
End Sub

2. 补全工作簿启动防护，避免用户切窗绕过 #

在VBA编辑器左侧找到ThisWorkbook模块，添加如下启动逻辑，确保文件打开时只能操作密码验证窗体，碰不到工作表内容：

Private Sub Workbook_Open()
    ' 先隐藏Excel主程序窗口，只显示密码验证窗体
    Application.Visible = False
    ' 模态显示密码窗体，替换成你实际的UserForm名称
    frmPwdCheck.Show vbModal
    ' 只有验证通过、窗体正常卸载后，才显示主窗口
    Application.Visible = True
End Sub

3. 额外加固建议 #

• 给VBA工程本身加密码：在VBA编辑器点击「工具-VBAProject 属性-保护」，勾选「锁定工程」，设置工程查看密码，避免用户直接打开编辑器修改或跳过你的验证代码
• 防宏禁用绕过：在工作簿BeforeClose事件里把所有工作表设置为xlSheetVeryHidden（深度隐藏，普通取消隐藏操作看不到），只有验证通过后才根据权限把对应工作表设为可见，这样就算用户禁用宏打开文件，也看不到任何有效内容
• 不要在输错密码的分支里卸载窗体，只清空输入框提示重输即可，避免误触发关闭逻辑

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