如何禁用MS Word报表场景下窗体X关闭触发的sub terminate？

一、禁用「X」按钮触发Terminate的输出逻辑 #

方法1：通过标志变量跳过输出 #

在窗体模块中添加一个模块级标志，判断关闭来源是「X」按钮时，跳过Terminate里的输出逻辑：

1. 在窗体模块顶部声明变量：

Private blnSkipOutput As Boolean

2. 编写QueryUnload事件判断关闭模式：

Private Sub UserForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    ' vbFormControlMenu 对应点击右上角X按钮的关闭模式
    If UnloadMode = vbFormControlMenu Then
        blnSkipOutput = True
    End If
End Sub

3. 修改Terminate过程，根据标志跳过输出：

Sub Terminate()
    ' 如果是点击X关闭，直接退出
    If blnSkipOutput Then Exit Sub
    
    ' 原来的报表输出逻辑代码
    ' ...
End Sub

方法2：直接禁用窗体的「X」按钮 #

如果业务允许，可以直接关闭窗体的控制菜单，强制用户通过指定按钮退出：

Private Sub UserForm_Initialize()
    ' 禁用右上角关闭按钮
    Me.ControlBox = False
End Sub

同时需要在窗体上添加一个「退出」按钮，点击按钮时按需执行逻辑：

Private Sub cmdExit_Click()
    ' 如果需要正常执行输出，就调用输出逻辑
    ' GenerateReport
    Unload Me
End Sub

二、旧项目将输出逻辑放在Terminate的原因 #

旧项目这么做通常是出于以下几种考虑：

• 兜底执行：Terminate是窗体对象销毁前的最后一个事件，无论窗体是通过按钮关闭、代码触发关闭还是意外报错关闭，都会触发该事件，开发者想确保报表输出逻辑一定能被执行。
• 早期开发习惯：部分老VBA开发者对事件流程理解不深，或者觉得Terminate是最“保险”的收尾事件，所以选择在这里放置关键的输出逻辑。
• 业务强制要求：当时的业务规则可能要求用户必须生成报表后才能退出程序，放在Terminate里可以避免用户绕过输出逻辑直接关闭窗体。

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