Ribbon Hyperlink 'menBtxx_getVisible''

Habe eine sehr große Exceltabelle, welche schon seit vielen Jahren bisher einwandfrei funktioniert hat.
Darin wird ein extra Ribbon-Blatt eingeblendet (beim Aktivieren der Mappe) bzw. beim Deaktivieren der Mappe dieses wieder ebenfalls deaktiviert wird.
Je nach aktivem Sheet ändert sich das Menü. So weit so gut.
Jetzt plötzlich gibt es nach dem Anklicken eines Hyperlinks (und damit Öffnen der entsprechenden Excel-Datei) die folgende Fehlermeldung:
Das Makro 'menBtDatensatz_einfuegen_getVisible' kann nicht ausgeführt werden.
Für jeden möglichen Ribbon-Befehl (mehr als 30), welche alle eine Prozedur haben der Art:


Sub menBtDatensatz_einfuegen_getVisible(control As IRibbonControl, ByRef returnedVal)
returnedVal = var_menBtDatensatz_loeschen_getVisible
End Sub

kommt nun diese Fehlermeldung!
Wohlgemerkt hat die aufgerufene Mappe gar keine Makros.
Es gab vor kurzem einen Forumsbeitrag vom 19.01.21 (Fehler Ribbon GetVisible), welcher aber nicht weiter bearbeitet wurde.
Es scheint, dass das Ereignis Workbook_Deactivate plötzlich doppelt aufgerufen wird. Wenn die Makros Schritt für Schritt durchläuft kommt aber keine Fehlermeldung.
Hat jemand eine Ahnung wie man das beheben könnte?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Code: [Cc][+][-] Option Explicit Dim objRibbon As IRibbonUI Private Declare PtrSafe Sub RtlMoveMemory Lib "kernel32" ( _ Destination As Any, Source As Any, ByVal Length As LongPtr) '----- Ribbon initialisieren ----- '------ Diese Funktion ist im Ribbon für OnLoad="RibbonInit" angegeben ----- Private Sub RibbonInit(lpRibbon As IRibbonUI) Set objRibbon = lpRibbon 'globalen Pointer setzen und in einem Namen sichern ThisWorkbook.Names.Add Name:="MyRibbon", _ RefersTo:=CStr(ObjPtr(lpRibbon)), Visible:=False End Sub Sub RefreshRibbon(Optional sID As String) ' Das angegebene Control oder der ganze Ribbon wird neu berechnet Dim lpRibbon As LongPtr If objRibbon Is Nothing Then ' Ribbon-Pointer aus Namen wiederherstellen On Error Resume Next lpRibbon = CLngPtr(Mid$(ThisWorkbook.Names("MyRibbon").RefersTo, 2)) RtlMoveMemory objRibbon, lpRibbon, LenB(lpRibbon) End If If sID <> "" Then objRibbon.InvalidateControl sID Else objRibbon.Invalidate End If End Sub

Private Sub RibbonInit(lpRibbon As IRibbonUI) Set objRibbon = lpRibbon 'globalen Pointer setzen und in einem Namen sichern ThisWorkbook.Names.Add Name:="MyRibbon", _ RefersTo:=CStr(ObjPtr(lpRibbon)), Visible:=False End Sub

Hallo Markus,
hier die Änderungen:
Und natürlich die objRibbon.Invalidate austauschen mit Call RefreshRibbon....

Code:


[Cc][+][-]




	
	
	
	


' ----- In "DieseArbeitsmappe" -----
Private Sub Workbook_Open()
' KHV: Ist nötig weil zuerst Wb.Open und Wb.Activate abgearbeitet werden
' und dann erst Ribbon.onload
' Hierbei wird der falsche (alte) Ribbonpointer verwendet =>daher Absturzgefahr
   ThisWorkbook.Names.Add Name:="MyRibbon", RefersTo:=0, Visible:=False
End Sub


' ----- Im Modul 1 -----
' ------------ Ribbon-Aktionen ----------------
Dim objRibbon As IRibbonUI

Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
       Destination As Any, Source As Any, ByVal Length As LongPtr)
       
Private Sub onload(lpRibbon As IRibbonUI)
    'Dieses Sub ist notwendig, damit die Ribbon-Inhalt zur Laufzeit manipuliert werden können
    Set objRibbon = lpRibbon       'globalen Pointer setzen und in einem Namen sichern
    ThisWorkbook.Names.Add Name:="MyRibbon", _
        RefersTo:=CStr(ObjPtr(lpRibbon)), Visible:=False
    
    var_menBtGehe_zu_getVisible = True          'ist IMMER sichtbar
    var_menFormatieren_getVisible = True        'ist IMMER sichtbar
    var_menSpezielle_Makros_getVisible = True   'ist IMMER sichtbar
End Sub

Sub RefreshRibbon(Optional sID As String)
' Das angegebene Control oder der ganze Ribbon wird neu berechnet
  Dim lpRibbon As LongPtr

  If objRibbon Is Nothing Then
' Ribbon-Pointer aus Namen wiederherstellen
     On Error Resume Next
     lpRibbon = CLngPtr(Mid$(ThisWorkbook.Names("MyRibbon").RefersTo, 2))
     If lpRibbon <> 0 Then
        CopyMemory objRibbon, lpRibbon, LenB(lpRibbon)
     End If
  End If
  If sID <> "" Then
     objRibbon.InvalidateControl sID
  Else
     objRibbon.Invalidate
  End If
End Sub
' ------------ Ende Ribbon-Aktionen ----------------

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

Ribbon Hyperlink 'menBtxx_getVisible''

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread