如何从Windows注册表的REG_SZ字符串中恢复Ribbon句柄？

核心思路 #

你已经通过ObjPtr(Ribbon)把Ribbon对象的内存地址转成数值，再存成字符串到注册表。要反转这个过程，需要把字符串转回对应数值类型，再通过内存复制将数值还原成对象指针。VBA没有直接的ObjPtr逆函数，得用Windows API的CopyMemory（即RtlMoveMemory）实现。

步骤与代码实现 #

1. 声明必要的API（兼容32/64位Office）

在模块顶部添加API声明，区分32位和64位环境：

#If VBA7 Then
    Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
        ByRef Destination As Any, _
        ByRef Source As Any, _
        ByVal Length As LongPtr _
    )
    Private Type RibbonObj
        ptr As LongPtr
    End Type
#Else
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
        ByRef Destination As Any, _
        ByRef Source As Any, _
        ByVal Length As Long _
    )
    Private Type RibbonObj
        ptr As Long
    End Type
#End If

2. 读取注册表字符串并转换为Ribbon对象

假设已从注册表读取到存储的字符串strRibbonPtr，用以下函数转成Ribbon对象：

Function GetRibbonFromRegistryPtr(strRibbonPtr As String) As IRibbonUI
    Dim obj As RibbonObj
    Dim ptrValue As Variant
    
    ' 把字符串转成对应位数的数值
    #If VBA7 Then
        ptrValue = CLngPtr(strRibbonPtr)
    #Else
        ptrValue = CLng(strRibbonPtr)
    #End If
    
    ' 将数值写入自定义类型的ptr字段
    obj.ptr = ptrValue
    
    ' 内存复制，把指针转成IRibbonUI对象
    CopyMemory GetRibbonFromRegistryPtr, obj, Len(obj)
End Function

3. 使用示例

Sub RetrieveRibbon()
    Dim storedPtr As String
    Dim myRibbon As IRibbonUI
    
    ' 替换成你读取注册表的代码，比如用GetSetting或API读取
    storedPtr = "123456789012" ' 示例字符串，实际从注册表获取
    
    On Error Resume Next ' 防止指针失效导致崩溃
    Set myRibbon = GetRibbonFromRegistryPtr(storedPtr)
    On Error GoTo 0
    
    If Not myRibbon Is Nothing Then
        ' 成功获取Ribbon对象，执行后续操作
        MsgBox "Ribbon句柄恢复成功"
        ' 例如调用myRibbon.Invalidate()刷新Ribbon
    Else
        MsgBox "无法恢复Ribbon句柄，可能指针已失效"
    End If
End Sub

关键注意事项 #

• 位数兼容：必须区分32位和64位Office，用#If VBA7 Then分支处理，否则会出现类型不匹配或内存错误。
• 指针有效性：Ribbon对象的指针仅在当前Excel实例有效，关闭再打开后，之前存储的指针会失效，恢复时会报错，必须在同一次运行中存储和读取。
• 错误处理：一定要加错误捕获，无效指针会直接导致Excel崩溃。

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