Excel ActiveX复选框点击后不更新、无响应的问题求助

问题场景 #

Windows 10 64位系统 + Office 2019，编写含ActiveX控件的VBA代码时，复选框点击响应异常，测试代码如下：

Private Sub CheckBox1_Click()

    'Toggle state when clicked
    If Range("a1") = "State ONE" Then
        Range("a1") = "State TWO"
    Else
        Range("a1") = "State ONE"
    End If
    
    'Write if box is checked or not in cell A2
    If CheckBox1 = True Then
        Range("a2") = "box1 is checked"
    Else
        Range("a2") = "box1 is unchecked"
    End If
    
End Sub

测试现象 #

• 首次点击CheckBox1，工作表无变化；
• 再次点击，A1切换状态、A2显示勾选状态，但复选框无勾选标记；
• 每次双击复选框，A2状态持续切换，但复选框仍无标记；
• 双击后点击任意单元格，复选框勾选标记才更新。

异常总结 #

• 复选框勾选标记需点击其他单元格才更新；
• 需双击才能改变控件勾选状态。

排查步骤 #

1. 检查Application.EnableEvents状态
   按Alt+F11打开VBA编辑器，打开立即窗口（Ctrl+G），输入?Application.EnableEvents回车。若返回False，说明Excel事件被禁用，输入Application.EnableEvents = True恢复事件触发。

2. 确认控件是否处于设计模式
   切换到「开发工具」选项卡，查看「设计模式」按钮是否处于选中状态。若处于设计模式，控件无法正常响应点击，取消设计模式后再测试。

3. 检查控件的LinkedCell属性
   右键复选框→「属性」，查看LinkedCell项是否设置了无效单元格或与代码逻辑冲突的单元格。若有设置，尝试清空该属性后重新测试。

4. 修复或重建ActiveX控件

   • 删除当前复选框，重新插入新的ActiveX复选框，绑定原Click事件代码测试；
   • 将文件另存为.xlsm格式（若当前为其他格式），关闭后重新打开。

5. 检查Office信任中心的ActiveX设置
   打开「文件」→「选项」→「信任中心」→「信任中心设置」→「ActiveX设置」，确保未设置为“禁用所有控件且不通知”，建议选择“禁用所有控件，除非单击确定启用”或更宽松的选项，避免控件运行被限制。

6. 修复Office安装
   打开控制面板→「程序和功能」，找到Office 2019，点击「更改」→「快速修复」，修复可能损坏的Office组件。

7. 优化代码避免控件状态冲突
   修改Click事件代码，明确引用控件的Value属性，并添加强制刷新逻辑：

   Private Sub CheckBox1_Click()
       'Toggle state when clicked
       If Range("a1") = "State ONE" Then
           Range("a1") = "State TWO"
       Else
           Range("a1") = "State ONE"
       End If
       
       'Write if box is checked or not in cell A2
       If Me.CheckBox1.Value = True Then
           Range("a2") = "box1 is checked"
       Else
           Range("a2") = "box1 is unchecked"
       End If
       
       '强制刷新控件状态
       Me.CheckBox1.Object.Value = Me.CheckBox1.Value
       Me.Repaint
   End Sub
   

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