避免Excel Ribbon CustomUI的IRibbonUI变量丢失状态

IRibbonUI指针依赖CustomUI的OnLoad事件初始化，代码崩溃导致变量丢失后，原生Excel无直接重启该事件的机制，以下是几种可行的恢复方案：

方法1：通过窗口状态切换触发Ribbon重载 #

在ThisWorkbook模块中监听窗口激活事件，检测到指针为空时，通过切换窗口状态强制Ribbon重新加载：

Public gRibbon As IRibbonUI

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    If gRibbon Is Nothing Then
        Application.WindowState = xlMinimized
        Application.WindowState = xlNormal
    End If
End Sub

' CustomUI的OnLoad回调函数
Sub RibbonOnLoad(ribbon As IRibbonUI)
    Set gRibbon = ribbon
End Sub

原理：窗口状态变更会触发Excel重新渲染功能区，进而再次调用OnLoad事件初始化指针。

方法2：修改CustomUI XML强制重载 #

通过微调CustomUI的XML内容并重新导入，触发Ribbon重新加载：

Sub RefreshRibbon()
    Dim customUIContent As String
    customUIContent = ThisWorkbook.CustomUI
    ' 添加无意义空格避免重复修改导致无效
    customUIContent = Replace(customUIContent, "</customUI>", " </customUI>")
    ThisWorkbook.CustomUI = customUIContent
End Sub

注意：此操作会导致功能区短暂闪烁，需确保工作簿已启用宏。

方法3：封装容错逻辑自动恢复 #

在所有调用gRibbon的代码前添加检查，发现指针为空时自动触发恢复：

Sub UpdateRibbonControl(controlId As String, newValue As Variant)
    If gRibbon Is Nothing Then
        RefreshRibbon
        Application.Wait Now + TimeValue("00:00:01") ' 等待Ribbon加载完成
    End If
    gRibbon.InvalidateControl controlId
End Sub

优势：无需用户手动操作，代码层面自动处理状态丢失场景。

关键注意事项 #

• 将gRibbon声明为全局变量（标准模块或ThisWorkbook中），确保全项目可访问。
• 避免在OnLoad事件中执行复杂逻辑，防止初始化阶段崩溃导致指针无法赋值。
• 测试时模拟代码崩溃场景（如手动触发错误），验证恢复逻辑有效性。

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