隐藏Excel工作簿启动时出现ActiveX无法创建组件问题求助

问题根源 #

直接用ThisWorkbook.Close关闭隐藏了应用窗口的工作簿时，Excel进程可能因窗口处于隐藏状态无法正常退出，后台残留的进程会导致下次启动时UserForm（ActiveX组件）无法正常初始化，触发"ActiveX component can't create object"错误。而Application.Quit会关闭所有Excel窗口，不符合多工作簿同时打开的需求。

核心修复方案 #

关闭UserForm时先恢复Excel应用窗口的可见性，再关闭当前工作簿，确保进程能正常清理：

修正后的UserForm关闭代码

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ' 恢复Excel应用窗口可见，避免进程残留
    Application.Visible = True
    ' 保存当前工作簿
    ThisWorkbook.Save
    ' 关闭工作簿（已保存，无需重复提示）
    ThisWorkbook.Close SaveChanges:=False
End Sub

优化后的工作簿打开代码（可选，简化冗余逻辑）

Private Sub Workbook_Open()
    Dim ws As Worksheet
 
    ' 批量设置工作表可见性，仅保留"MODULE BUTTON"可见
    For Each ws In ThisWorkbook.Sheets
        ws.Visible = (ws.Name = "MODULE BUTTON")
    Next ws
    ThisWorkbook.Worksheets("MODULE BUTTON").Activate

    Application.Visible = False
    Mark1.Show vbModeless
End Sub

增强版逻辑（可选） #

如果需要在仅当前工作簿打开时自动退出Excel，避免后台残留进程，可添加判断逻辑：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Application.Visible = True
    ThisWorkbook.Save
    
    ' 仅当当前Excel实例只有这一个工作簿时，才退出应用
    If Application.Workbooks.Count = 1 Then
        Application.Quit
    Else
        ThisWorkbook.Close SaveChanges:=False
    End If
End Sub

关键注意事项 #

• 原关闭代码中存在拼写错误：ThisWorbook → ThisWorkbook，这会导致运行时错误，也是引发异常的潜在诱因。
• 恢复应用可见性是核心：让Excel能正确识别工作簿关闭后的状态，避免后台进程残留。

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