关闭Desconexion窗体后返回主窗体，VBA宏仍执行的解决方法

核心问题：公共变量作用域错误 #

你遇到的变量不生效问题，根源是VarDesconexion的作用域设置错误。如果在窗体模块里声明公共变量，其他窗体无法直接访问同一个变量实例，必须在标准模块中声明全局公共变量。

具体修正步骤 #

1. 创建/修改标准模块，声明全局变量 #

插入一个标准模块（右键VBA工程→插入→模块），在模块中添加：

Public VarDesconexion As Boolean

2. 修正主窗体按钮代码 #

显式指定子窗体以模态方式显示（默认即为模态，显式声明更稳妥），并重置初始标志位避免历史状态干扰：

Private Sub runPlexButton_Click()
    ' 重置标志位，避免上次操作的状态影响本次逻辑
    VarDesconexion = False
    ' 以模态方式显示子窗体，代码会暂停执行直到子窗体关闭
    Desconexion.Show vbModal
    
    If VarDesconexion Then
        VarDesconexion = False
        Exit Sub
    End If
    
    ' 这里保留你原来的后续代码
End Sub

3. 子窗体代码无需修改 #

子窗体的QueryClose事件赋值逻辑本身没问题，直接保留即可：

Private Sub UserForm_Activate()
    CheckBox_ML.Value = True
    CheckBox_P.Value = True
    CheckBox_S.Value = True
    CheckBox_B.Value = True
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    VarDesconexion = True
End Sub

额外说明 #

• 模态窗体（vbModal）会暂停主窗体代码执行，直到子窗体关闭，完全匹配你“关闭子窗体后再判断是否继续执行主逻辑”的需求。
• 全局变量必须放在标准模块中，若放在窗体模块里，不同模块访问的是变量的不同副本，会导致赋值后无法同步生效。

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