... aus einer beliebigen ADP Tabelle

Erstellen Sie eine neue Tabelle Namens z.B.:"Ribbons" mit folgenden Feldern:

Im Feld "RibbonName" erfassen Sie einen eindeutigen Namen für den Ribbon. Das entsprechende XML tragen Sie im Feld "RibbonXML" ein.

Erstellen Sie in einem neuen Modul ein Function Names: "LoadRibbons":

Public Function LoadRibbons()
'Läd die Ribbons in die Datenbank
On Error GoTo Error1
    Dim strSQL As String
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    strSQL = "SELECT * FROM [Ribbons]; "
    ' [Ribbons] müssen Sie durch Ihren Tabellennamen ersetzen.
   
    cnn.Open CurrentProject.Connection
    rst.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
    Do Until rst.EOF
        Application.LoadCustomUI _
        rst("RibbonName").Value, rst("RibbonXml").Value
        strRibbon = rst("RibbonName").Value
        rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing
    cnn.Close
    Set cnn = Nothing
Error1_Exit:
    On Error Resume Next
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    Exit Function
Error1:
    Select Case Err
        Case 32609
        ' Ribbon schon geladen
    Case Else
        MsgBox "Error: " & Err.Number & vbCrLf & _
               Err.description, vbCritical, _
               "Error", Err.HelpFile, Err.HelpContext
    End Select
    Resume Error1_Exit
End Function

Erstellen Sie ein Makro namens "Autoexec" dieses wir bei Datenbankstart automatisch geladen:

Starten Sie die Datenbank neu

Stellen Sie den Ribbon für die Datenbank ein:

Unter "Office Button" / Button "Access-Optionen" / "Aktuelle Datenbank" / "Multifunktionsleisten- und Symbolleistenoptionen" / "Name der Multifunktionsleiste" wählen Sie den Ribbon aus, welchen Sie beim Start der Datenbank laden wollen.

Nach einem Datenbank Neustart wird Ihr Ribbon angezeigt.