替代CopyMemory API恢复Excel IRibbonUI的方案咨询

你遇到的问题本质是直接通过CopyMemory操作COM对象指针违反了VBA的对象模型规则：Excel的内存管理机制可能会移动或回收IRibbonUI对象的内存空间，导致你存储的指针失效，触发随机崩溃。以下是两种安全的替代方案：

方案一：用类模块持有强引用（最推荐） #

通过创建类模块来持有IRibbonUI的引用，只要类实例存在，IRibbonUI对象就会被VBA的引用计数机制保留，不会被垃圾回收，从根源避免引用丢失。

步骤1：创建类模块 #

新建一个类模块，命名为RibbonHolder，写入以下代码：

Private m_ribbon As IRibbonUI

' 获取功能区引用
Public Property Get Ribbon() As IRibbonUI
    Set Ribbon = m_ribbon
End Property

' 设置功能区引用
Public Property Set Ribbon(ByVal value As IRibbonUI)
    Set m_ribbon = value
End Property

步骤2：修改标准模块代码 #

替换原有的全局变量和回调代码，用类实例来管理引用：

' 全局类实例，只要加载项处于活跃状态，这个实例就会保留
Public g_RibbonHolder As New RibbonHolder

Public Sub CallbackOnLoad(ribbon As IRibbonUI)
    ' 将功能区引用存入类实例
    Set g_RibbonHolder.Ribbon = ribbon
    ribbon.ActivateTab "TemplateTab"
    ' 无需再存储指针到命名区域
End Sub

Sub TryToRetrieveRibbon()
    ' 直接从类实例获取引用
    If g_RibbonHolder.Ribbon Is Nothing Then
        MsgBox "功能区引用已丢失，请重新加载插件恢复"
    End If
End Sub

方案二：排查全局变量丢失的根源 #

如果你的Template_Rib全局变量频繁丢失，先排查以下场景：

• 加载项是否被Excel意外卸载后重新加载
• 代码中是否有其他逻辑错误导致Set Template_Rib = Nothing被意外执行
• Excel是否触发了重置VBA项目的操作（比如编辑代码后未保存就运行）

如果能解决变量丢失的根源，甚至不需要额外的恢复逻辑。

为什么CopyMemory会导致崩溃 #

ObjPtr(ribbon)返回的是对象当前的内存地址，但Excel的内存管理器在运行时可能会移动对象内存（比如内存碎片整理），或者当对象被回收后，指针指向的是无效内存。此时用CopyMemory将无效指针强制转换为对象，会直接触发内存访问错误，导致Excel崩溃。

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