多UserForm关闭逻辑：最后一个Done按钮触发Save函数方案

核心思路 #

用全局计数器跟踪当前打开的UserForm数量，每次打开表单时计数加1，关闭（无论通过Done按钮还是右上角叉号）时计数减1，当计数归0时调用Save函数。

具体实现步骤 #

1. 声明全局计数器
   在标准模块中声明公共变量，用于统计打开的表单数量：

Public g_OpenFormCount As Integer

2. 表单打开时更新计数
   在每个UserForm的Initialize事件中，将计数器加1：

Private Sub UserForm_Initialize()
    g_OpenFormCount = g_OpenFormCount + 1
End Sub

3. Done按钮的关闭逻辑
   每个表单的Done按钮点击事件中，先卸载自身，再更新计数器，判断是否触发Save：

Private Sub cmdDone_Click()
    Unload Me
    g_OpenFormCount = g_OpenFormCount - 1
    If g_OpenFormCount = 0 Then
        SaveOutputWorksheet ' 调用你的保存函数
    End If
End Sub

4. 处理用户点击叉号关闭的情况
   为每个UserForm添加QueryClose事件，防止用户通过右上角叉号关闭时跳过计数逻辑：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = True ' 取消默认关闭动作
        Unload Me ' 手动卸载表单
        g_OpenFormCount = g_OpenFormCount - 1
        If g_OpenFormCount = 0 Then
            SaveOutputWorksheet
        End If
    End If
End Sub

边界场景适配 #

• 仅打开1个表单：关闭时计数器从1变为0，直接触发Save函数
• 打开2个或3个表单：无论关闭顺序如何，最后一个表单关闭后计数器归0，触发Save函数

注意事项 #

• 全局变量必须在标准模块中声明，不能放在UserForm模块内，否则无法跨表单共享
• 确保所有需要统计的UserForm都添加了Initialize和QueryClose事件处理
• 你的SaveOutputWorksheet函数需要保证逻辑独立，不受表单关闭状态的影响

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