多文件同时打开时如何恢复RibbonUI？解决崩溃与回调异常

一、CopyMemory导致崩溃的原因与修复 #

• 崩溃根源：每个工作簿的IRibbonUI是独立实例，指针仅在当前工作簿的进程上下文有效。你用命名范围存储原文件的指针，副本打开后复用这个无效指针，CopyMemory直接访问非法内存，导致Excel崩溃。
• 修复步骤：
  1. 将Template_Rib和指针存储变量改为工作簿级私有变量（放在ThisWorkbook模块），避免跨工作簿共享指针。
  2. 移除命名范围存储指针的逻辑，直接用模块变量保存当前工作簿的Ribbon指针。

二、Ribbon回调仅调用首个文件函数的修复 #

• 问题根源：如果回调函数放在标准模块且用全局名称，Excel会优先加载第一个文件的同名函数，导致后续文件的按钮调用错误。
• 修复步骤：
  1. 将所有回调函数移到ThisWorkbook模块，声明为Public。
  2. 在Ribbon XML的回调属性中，明确指定工作簿实例，例如：onAction="ThisWorkbook.CustomButton_Click"，确保按钮调用当前文件的回调。

修复后的完整代码（ThisWorkbook模块） #

#If VBA7 Then
  Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDest As Any, lpSource As Any, ByVal cBytes&)
#Else
  Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDest As Any, lpSource As Any, ByVal cBytes&)
#End If
Private Template_Rib As IRibbonUI
Private m_RibbonPointer As Variant ' 仅存储当前工作簿的Ribbon指针

Public Sub CallbackOnLoad(ribbon As IRibbonUI)
#If VBA7 Then
  Dim StoreRibbonPointer As LongPtr
#Else
  Dim StoreRibbonPointer As Long
#End If
    Set Template_Rib = ribbon
    Template_Rib.ActivateTab "TemplateTab"
    StoreRibbonPointer = ObjPtr(ribbon)
    m_RibbonPointer = StoreRibbonPointer ' 本地存储，不跨文件共享
End Sub

Public Sub TryToRetrieveRibbon()
    On Error GoTo ErrorHandler
    If Template_Rib Is Nothing Then
        If Not IsEmpty(m_RibbonPointer) Then
            Set Template_Rib = GetRibbon(m_RibbonPointer)
        End If
    End If
ErrorHandler:
    Err.Clear
End Sub

#If VBA7 Then
  Private Function GetRibbon(ByVal lRibbonPointer As LongPtr) As Object
#Else
  Private Function GetRibbon(ByVal lRibbonPointer As Long) As Object
#End If
    Dim objRibbon As Object
    CopyMemory objRibbon, lRibbonPointer, LenB(lRibbonPointer)
    Set GetRibbon = objRibbon
    Set objRibbon = Nothing
End Function

' 自定义按钮回调示例
Public Sub CustomButton_Click(control As IRibbonControl)
    MsgBox "当前操作的工作簿：" & Me.Name
End Sub

对应调整的Ribbon XML片段 #

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="ThisWorkbook.CallbackOnLoad">
  <ribbon>
    <tabs>
      <tab id="TemplateTab" label="自定义标签">
        <group id="grpCustom" label="自定义组">
          <button id="btnCustom" label="Custom Button" onAction="ThisWorkbook.CustomButton_Click"/>
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

关键注意事项 #

• 绝对不要跨工作簿复用IRibbonUI指针，每个工作簿的Ribbon实例独立，指针仅在自身上下文有效。
• CopyMemory是底层内存操作，必须确保传入的指针是当前工作簿有效Ribbon实例的地址，否则必然触发崩溃。
• 工作簿级变量比命名范围更安全，避免了副本文件引用原文件指针的错误。

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