Excel 2016中OLE复选框触发VBA后键盘锁定的原因

这种OLE复选框点击后锁死单元格输入的问题我之前碰过好几次，大概率是控件焦点残留或者Excel的编辑模式状态紊乱导致的——毕竟切换工作表能恢复，说明只是当前工作表的状态出了临时异常，不是全局设置的问题。咱们一步步来排查和解决：

• OLE控件焦点未释放：点击OLE复选框时，它会获取焦点，事件执行完后Excel没自动把焦点切回工作表单元格，导致单元格看起来能选中，但编辑焦点还在看不见的控件上，自然没法输入。
• 编辑模式异常：VBA执行过程中可能意外打乱了Excel的内部编辑状态，比如Application.EditMode的值异常，切换工作表相当于强制重置了这个状态，所以恢复正常。
• 工作表保护的隐性冲突：哪怕单元格未保护，控件所在工作表的保护设置可能在交互时触发了临时锁定逻辑。

1. 强制把焦点切回单元格 #

在你的Check_Group_Click子程序末尾，添加代码强制转移焦点到可编辑单元格，同时重置编辑状态：

Private Sub Check_Group_Click()
    ' 你的原有业务逻辑：修改目标单元格的值
    Sheets("FA 2.0 Risk Checklist").Range("UI_GROUP_RISK").Value = IIf(Me.Check_Group.Value, "Yes", "No")
    
    ' 强制释放控件焦点，重置编辑状态
    With ThisWorkbook.Sheets("FA 2.0 Pricing Worksheet")
        .Range("A1").Select ' 选一个你确认未保护的单元格（可以换成常用的输入单元格）
        Application.SendKeys "{F2}" ' 模拟进入编辑模式
        Application.SendKeys "{ESC}" ' 退出编辑模式，彻底重置状态
    End With
End Sub

这个方法相当于手动帮Excel完成焦点切换，从根源解决焦点残留问题。

2. 关闭控件的“点击获取焦点”属性 #

右键这个OLE复选框→打开属性窗口，找到TakeFocusOnClick属性，把它改成False。这样点击控件时，它不会抢走工作表的焦点，自然就不会出现锁定问题了——这是最彻底的预防方案。

3. 检查并重置EditMode状态 #

如果上面的方法没用，可以在事件末尾加一段代码，强制退出异常的编辑模式：

' 在原有代码末尾添加
If Application.EditMode Then
    Application.SendKeys "{ESC}"
End If

有时候VBA执行过程中会让Excel处于半编辑状态，手动触发ESC就能重置回来。

4. 排查工作表保护的隐性影响 #

如果你的工作表有保护（哪怕是部分单元格保护），可以尝试在事件执行前后临时解除保护再恢复，避免控件交互触发锁定：

Private Sub Check_Group_Click()
    Dim wsPricing As Worksheet
    Set wsPricing = ThisWorkbook.Sheets("FA 2.0 Pricing Worksheet")
    Dim hasProtection As Boolean
    
    ' 记录保护状态并临时解除
    hasProtection = wsPricing.ProtectContents
    If hasProtection Then
        wsPricing.Unprotect Password:="你的工作表密码" ' 如果没密码就去掉Password参数
    End If
    
    ' 你的原有业务逻辑
    Sheets("FA 2.0 Risk Checklist").Range("UI_GROUP_RISK").Value = IIf(Me.Check_Group.Value, "Yes", "No")
    
    ' 恢复保护（UserInterfaceOnly=True让VBA能修改单元格，不影响用户保护）
    If hasProtection Then
        wsPricing.Protect Password:="你的工作表密码", UserInterfaceOnly:=True
    End If
    
    ' 再加焦点重置代码
    wsPricing.Range("A1").Select
End Sub

UserInterfaceOnly参数很关键，它能让VBA在保护状态下正常修改单元格，同时保持用户界面的保护。

5. 临时禁用事件递归 #

虽然你说EnableEvents是开启的，但有时候控件事件可能触发其他连锁事件导致状态紊乱。可以在事件开头临时禁用，执行完再开启：

Private Sub Check_Group_Click()
    Application.EnableEvents = False
    
    ' 你的原有业务逻辑
    
    Application.EnableEvents = True
    ' 焦点重置代码
    ThisWorkbook.Sheets("FA 2.0 Pricing Worksheet").Range("A1").Select
End Sub

每次修改后，直接点击复选框然后尝试输入，不要切换工作表。如果还是锁定，就把事件里的代码逐步注释，定位到是哪一行触发的问题——有时候看似无关的代码也可能影响Excel的内部状态。

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