Excel工作表未激活或窗口最小化时无法设置OLEObjects属性怎么办

ActiveX控件（即代码中操作的OLE Objects）的界面属性读写存在Excel内置限制：当控件所属工作表未处于激活状态，或Excel窗口为最小化状态时，控件的UI实例不会被加载到内存中，直接通过工作表控件名访问Enabled、Visible等界面属性时就会触发1004运行时错误。

方案1（兼容原有写法）：临时调整环境状态后操作 #

先保存当前的活动工作表、窗口状态，临时把窗口改为正常状态、激活目标工作表，操作完成后再还原原有状态，搭配关闭屏幕刷新避免闪屏：

Sub InitUserViewSheet()
    ' 保存当前环境状态
    Dim originalActiveSheet As Worksheet
    Dim originalWindowState As XlWindowState
    Set originalActiveSheet = ActiveSheet
    originalWindowState = Application.WindowState
    
    ' 临时调整状态规避访问限制
    Application.ScreenUpdating = False
    If originalWindowState = xlMinimized Then
        Application.WindowState = xlNormal
    End If
    ThisWorkbook.Worksheets("UserView").Activate
    
    ' 原有初始化逻辑，增加筛选状态判断避免额外报错
    With ThisWorkbook.Worksheets("UserView")
        .btnShowAllItems.Enabled = False
        .btnShowAllItems.Visible = False
        .btnAvailableOnly.Enabled = True
        .btnAvailableOnly.Visible = True
        If .AutoFilterMode Then
            .AutoFilter.ShowAllData
        End If
    End With
    
    ' 还原原有环境状态
    originalActiveSheet.Activate
    Application.WindowState = originalWindowState
    Application.ScreenUpdating = True
End Sub

方案2（更推荐）：通过OLEObjects集合访问属性 #

无需激活工作表、无需修改窗口状态，直接通过工作表的OLEObjects集合定位控件修改属性，性能更好无闪屏：

Sub InitUserViewSheet()
    With ThisWorkbook.Worksheets("UserView")
        ' 通过OLEObjects集合访问控件属性，无激活要求
        .OLEObjects("btnShowAllItems").Enabled = False
        .OLEObjects("btnShowAllItems").Visible = False
        .OLEObjects("btnAvailableOnly").Enabled = True
        .OLEObjects("btnAvailableOnly").Visible = True
        If .AutoFilterMode Then
            .AutoFilter.ShowAllData
        End If
    End With
End Sub

• 方案2适配绝大多数场景，无需切换用户当前的操作状态，只要保证括号内的控件名称和工作表中控件的名称一致即可正常运行。
• 若极小概率下窗口最小化时方案2仍报错，可搭配方案1中临时修改窗口状态的逻辑使用，无需激活工作表仅调整窗口状态即可。

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