Access/VBA Library

Private Function ChangeRibbon(XML As String) As String
    Dim pos As Long
    Dim bsXML As String
    ' Changing the value of the startFormScratch attribute from false to true
    ' makes sure the standard Access-ribbons will disappear
    XML = Replace(XML, _
                  "startFromScratch=" & Chr(34) & "false" & Chr(34), _
                  "startFromScratch=" & Chr(34) & "true" & Chr(34) & "")
    ' Check if some backstage logic is added to the Ribbon XML.
    ' If not then add an almost empty backstage to the XML.
    pos = InStr(XML, "<backstage")
    
    If pos = 0 Then
        ' Make sure only Print and Exit are available on the backstage
        bsXML = "<backstage>" & _
                ribbonBackstageTab("TabPrint", "true") & _
                ribbonBackstageButton("ApplicationOptionsDialog", "false") & _
                ribbonBackstageButton("FileExit", "true") & _
                "</backstage>"
        ' Add Backstage XML by replacing the closing tag of the Ribbon itself
        XML = Replace(XML, "</customUI>", bsXML & "</customUI>")
    End If
    
    ChangeRibbon = XML
End Function