未打开VBA编辑器时Excel嵌入图表崩溃的原因及解决问询

核心问题 #

你的问题是Excel的已知时序/编译bug：当受保护工作表中的图表在工作簿刚加载完成时就绑定事件，Excel的UI引擎和VBA引擎会出现交互冲突，导致崩溃；而打开VBA编辑器或通过宏窗口运行初始化代码时，VBA项目会被强制完成编译/初始化，冲突被规避，事件就能正常工作。

解决方案 #

方案1：延迟事件绑定（推荐，无需额外权限）

通过Application.OnTime延迟执行事件绑定代码，给Excel足够时间完成图表和工作表的完全加载，避免时序冲突。

1. 修改ThisWorkbook模块代码：

' 不要用New提前实例化，避免初始化时序问题
Dim modChartEvents As clsChartEvents

Private Sub Workbook_Open()
    Dim chtObj As ChartObject
    Set chtObj = Worksheets("Sheet1").ChartObjects("MyChart")
    
    ' 启动时先恢复图表默认属性，防止直接触发崩溃
    chtObj.Locked = True
    chtObj.Chart.ProtectSelection = False
    chtObj.ProtectChartObject = False
    Set modChartEvents = Nothing
    
    ' 延迟1秒执行初始化（可根据实际调整时长，最低可设为00:00:00.5）
    Application.OnTime Now + TimeValue("00:00:01"), "InitChartEvents"
End Sub

2. 创建一个标准模块（比如Module1），添加初始化子程序：

Public Sub InitChartEvents()
    Dim chtObj As ChartObject
    Set chtObj = Worksheets("Sheet1").ChartObjects("MyChart")
    
    Worksheets("Sheet1").Unprotect
    
    chtObj.Locked = False
    chtObj.Chart.ProtectSelection = True
    chtObj.ProtectChartObject = True
    
    ' 实例化类并绑定图表事件
    Set ThisWorkbook.modChartEvents = New clsChartEvents
    Set ThisWorkbook.modChartEvents.ChartClass = chtObj.Chart
    
    Worksheets("Sheet1").Protect UserInterfaceOnly:=True
End Sub

方案2：强制编译VBA项目（需权限设置）

通过强制编译VBA项目，确保绑定事件前VBA引擎已完全初始化，但需要开启"信任访问VBA项目对象模型"权限：

• 打开Excel选项 → 信任中心 → 信任中心设置 → 宏设置 → 勾选"信任对VBA项目对象模型的访问"

修改ThisWorkbook模块代码：

Dim modChartEvents As New clsChartEvents

Private Sub Workbook_Open()
    On Error Resume Next ' 防止编译菜单找不到的情况
    ' 强制编译VBA项目
    Application.VBE.CommandBars("Menu Bar").Controls("Tools").Controls("Compile VBAProject").Execute
    On Error GoTo 0
    
    Dim chtObj As ChartObject
    Set chtObj = Worksheets("Sheet1").ChartObjects("MyChart")
    
    Worksheets("Sheet1").Unprotect
    
    chtObj.Locked = False
    chtObj.Chart.ProtectSelection = True
    chtObj.ProtectChartObject = True
    Set modChartEvents.ChartClass = chtObj.Chart
    
    Worksheets("Sheet1").Protect UserInterfaceOnly:=True
End Sub

注意事项 #

• 确保类模块名称为clsChartEvents，且ChartClass声明为Public WithEvents ChartClass As Chart
• UserInterfaceOnly:=True参数能让VBA代码在不解锁工作表的情况下修改属性，避免反复解锁/锁定的麻烦
• 测试时必须保存工作簿并重新打开，不能在VBA开发环境中直接运行Workbook_Open测试

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