Ribbon

 tabs

"TabHomeAccess"

 tabs

ribbon

backstage   : button & Tab

  "FileSaveAsCurrentFileFormat"

  "FileOpen" visible="false"

  "FileCloseDatabase"

  "TabInfo"

  "FileSave"

  "TabPrint"

  "TabHelp"

  "ApplicationOptionsDialog"

DoCmd.ShowToolbar "Ribbon", acToolbarNo

    DoCmd.NavigateTo("acNavigationCategoryObjectType")
    'select the navigation pange
    'hide the selected object
    DoCmd.RunCommand(acCmdWindowHide)




Hide کردن تب Home اگر Group داخلش باشه Group باید اضافه شده و Disable شود 

Public Function CustomRibbon()
    Dim customXML As String

    customXML = "<customUI xmlns=""http://schemas.microsoft.com/office" _
                & "/2009/07/customui"">" _
                & "  <ribbon startFromScratch=""false"">" _
                & "    <tabs>" _
                & "      <tab idMso=""TabHomeAccess"" visible=""false"" />" _
                & "    </tabs>" _
                & "  </ribbon>" _
                & "</customUI>"

    Application.LoadCustomUI "HideHome", customXML
End Function