如何禁用VBA UserForm复选框的非预期_Click()触发？

核心思路是用一个模块级布尔变量作为事件触发的开关，在代码修改复选框状态时暂时禁用事件响应，修改完成后恢复。

具体实现步骤： #

1. 在UserForm的代码窗口顶部（声明区域）添加变量：

Dim blnDisableEvents As Boolean

2. 给每个复选框的_Click事件添加开关判断，以CheckBox1为例：

Private Sub CheckBox1_Click()
    ' 如果事件被禁用，直接退出，不执行后续代码
    If blnDisableEvents Then Exit Sub
    
    ' 这里写你原本要执行的预设代码
    Debug.Print "执行CheckBox1的预设逻辑"
    
    ' 开始清空其他复选框，先开启禁用开关
    blnDisableEvents = True
    ' 逐一设置其他复选框为未勾选状态
    CheckBox2.Value = False
    CheckBox3.Value = False
    ' 这里可以继续添加其他需要清空的复选框
    ' 清空完成后关闭禁用开关，恢复正常事件响应
    blnDisableEvents = False
End Sub

3. 其他复选框的_Click事件复制同样的逻辑，比如CheckBox2_Click：

Private Sub CheckBox2_Click()
    If blnDisableEvents Then Exit Sub
    
    Debug.Print "执行CheckBox2的预设逻辑"
    
    blnDisableEvents = True
    CheckBox1.Value = False
    CheckBox3.Value = False
    blnDisableEvents = False
End Sub

原理说明： #

这个布尔变量blnDisableEvents就像一个"暂停键"：当我们通过代码修改复选框状态时，先按下暂停键（设为True），此时复选框状态变化触发的_Click事件会直接退出，不会执行预设代码；修改完成后松开暂停键（设为False），后续用户手动操作复选框时，事件就能正常响应了。

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