<button id="cmdMyButton" label="Моя кнопка" size="normal" imageMso="CreateReport" onAction="cmdMyButton_RibClick"/>

Sub cmdMyButton_RibClick(control As IRibbonControl)
   Msgbox "Моя кнопка нажата"
End Sub

Sub CallMyButton    
    'Вызываем
    Call cmdMyButton_RibClick
End Sub

Sub CallMyButton()
    'Задаем виртуальный IRibbonControl
    Dim ctlVirtualControl As IRibbonControl
    
    'Вызываем
    Call cmdMyButton_RibClick(ctlVirtualControl)
End Sub

lPointer = CLng([RibbonPointer])

Public objRib as IRibbonUI 

'Загрузочная запись ленты Ribbon
Sub Ribbon_OnLoad(ribbon As IRibbonUI)

    Set objRib = ribbon

    'Записываем IRibbonUI в пользовательское свойство RibbonPointer
    Call WriteRibbon(objRib)

End Sub


'Обновление состояния элементов управления на Ленте.
'Обработка ошибок нужна, если по какой-то причине id objRib не сохранится
Sub RefreshRibbon()
On Error GoTo Err_discr
    
    'Проверяем переменную objRib объекта IRibbonUI текущего проекта.
    If objRib Is Nothing Then
        'Если переменная пустая, пытаемся восстановить objRib
        Call RestoreRibbon(objRib)
        'Если восстановление не получилось, выводим сообщение Err_discr
        If objRib Is Nothing Then _
            GoTo Err_discr
    End If
    
    'обновляем состояние элементов Ленты
    objRib.Invalidate

Exit Sub

Err_discr:
    MsgBox "Ошибка при обращении к Ленте." & _
            vbNewLine & "Сохраните и перезагрузите файл", _
                                        vbCritical, "ошибки ленты"

End Sub

'Процедура создает id ссылку на объект objRibbon типа IRibbonUI,
'в пользовательских свойствах DocumentProperties с именем "RibbonPointer".
'Если такого свойства нет, то создает его.
Sub WriteRibbon(objRibbon As Object)
    Dim pr As DocumentProperty 'пользовательское свойство
    Dim prs As DocumentProperties 'коллекция пользовательских свойств
    Dim bExist As Boolean
    
    'Проверяем пользовательские свойства проекта.
    Set prs = ThisWorkbook.CustomDocumentProperties
    'Ищем существует ли свойство RibbonPointer.
    bExist = False
    
    For Each pr In prs
        'Если свойство существует, устанавливаем переменную bExist=True,
        'и выходим из цикла
        If pr.Name = "RibbonPointer" Then _
            bExist = True: _
            Exit For
    Next
    
    'Если свойство не существует, добавляем его в коллекцию DocumentProperties.
    'Т.к. тип данных DocumentProperty не поддерживает LongPtr (LongLong),
    'записываем id объекта objRib в строку, с последующим преобразованием CLongPtr.
    'Поэтому используем тип данных msoPropertyTypeString, а не msoPropertyTypeNumber
    If Not bExist Then
        prs.Add "RibbonPointer", False, msoPropertyTypeString, ObjPtr(objRib)
    Else
       ThisWorkbook.CustomDocumentProperties("RibbonPointer").Value = ObjPtr(objRib)
    End If


End Sub

'Восстанавливает объект IRibbonUI из RibbonPointer
Sub RestoreRibbon(objRibbon As Object)
    Dim llPointer As LongPtr
    
    'Считываем ссылку на id objRib из свойства RibbonPointer.
    'Преобразуем значение RibbonPointer из строки в число.
    llPointer = CLngPtr(ThisWorkbook.CustomDocumentProperties("RibbonPointer"))
    
    'Перемещаем ссылку llPointer в объект objRib с помощью API процедуры RtlMoveMemory
    Call RtlMoveMemory(objRibbon, llPointer, LenB(llPointer))
 
End Sub

А=1:В="чужой":С=3.14

#if Vba7 then 
'  Code is running in the new VBA7 editor 
     #if Win64 then 
     '  Code is running in 64-bit version of Microsoft Office 
     #else 
     '  Code is running in 32-bit version of Microsoft Office 
     #end if 
#else 
' Code is running in VBA version 6 or earlier 
#end if

Names("RibbonPointer").Value = ObjPtr(ribbon)

Names("RibbonPointer").Value =  33333333

 lPointer = CLng([RibbonPointer]) =CLng("=33333333")

lPointer = CLngPtr(Mid(ThisWorkbook.Names("RibbonPointer").Value, 2))

#If VBA7 Then
Public Declare PtrSafe Sub CopyMemory Lib "kernel32" _
    Alias "RtlMoveMemory" (ByRef destination As Any, ByRef Source As Any, ByVal length As LongPtr)
#Else
Public Declare Sub CopyMemory Lib "kernel32" _
    Alias "RtlMoveMemory" (ByRef destination As Any, ByRef Source As Any, ByVal length As Long)
#End If

Public Declare PtrSafe Sub CopyMemory Lib "kernel32"  Alias "RtlMoveMemory" (ByRef destination As Any, ByRef Source As Any, ByVal length As LongPtr)

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef destination As Any, ByRef Source As Any, ByVal length As Long)