Excel运行宏时报1004错误：无法设置CheckBox类的Caption属性的原因是什么？

错误诱因 #

• 界面线程冲突：你已经设置了Application.ScreenUpdating = False，原本会暂停所有界面渲染逻辑，但你手动操作Excel窗口（拖动、切换工作表、切换窗口焦点等）时，会强制触发Excel的UI重绘逻辑，此时刚调用CheckBoxes.Add创建的复选框对象还没有被UI线程完全初始化完成，处于无效的中间状态，直接修改Caption属性就会触发1004报错。
• 工作表焦点丢失：创建表单控件时Excel要求目标工作表处于激活状态，如果你操作窗口时刚好在CheckBoxes.Add执行的瞬间，工作表失去了焦点，Add方法返回的cb对象会是未完成注册的无效对象，后续访问任何属性都会失败。
• 对象集合锁定：手动操作如果触发了工作表的隐式事件（比如选区变更、工作表重绘事件），会临时锁定工作表的Shapes/Controls对象集合，此时修改控件属性会被拒绝。

修复方案 #

• 先强制激活目标工作表再创建控件，在Set cbRange = .Cells(2, 2)之前添加ws.Activate，确保创建控件时目标工作表处于激活状态。
• 给控件属性设置逻辑添加重试机制，示例代码：

Dim retryCount As Integer
retryCount = 0
On Error Resume Next
With cb
    Do
        Err.Clear
        .Caption = "A Checkbox"
        If Err.Number = 0 Then Exit Do
        retryCount = retryCount + 1
        DoEvents
        If retryCount > 3 Then
            On Error GoTo 0
            Err.Raise Err.Number, , "设置复选框属性失败，已重试3次"
        End If
    Loop
    .Value = xlOff
    .LinkedCell = cbRange.Address
    .Name = "aCheckbox"
End With
On Error GoTo 0

• 可以在宏运行开头临时禁用用户交互，运行结束后恢复，注意要加错误捕获确保异常时也能恢复交互权限：

Sub YourMacro()
    Application.Interactive = False
    On Error GoTo ErrHandler
    ' 原有宏逻辑
ErrHandler:
    Application.Interactive = True
    Application.ScreenUpdating = True
    If Err.Number <> 0 Then Err.Raise Err.Number
End Sub

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