求Access 2019中显示自定义快速访问工具栏并隐藏功能区的VBA代码

之前的代码会同时隐藏Ribbon框架和QAT，要实现只隐藏主功能区（文件、开始等选项卡）但保留自定义快速访问工具栏，需要通过自定义Ribbon UI的方式实现，具体步骤如下：

• 创建一个标准模块，添加以下VBA代码：

Sub HideMainRibbonTabsKeepQAT()
    ' 定义自定义Ribbon的XML配置
    Dim ribbonConfigXml As String
    ribbonConfigXml = "<customUI xmlns=""http://schemas.microsoft.com/office/2006/01/customui"">" & _
                      "<ribbon startFromScratch=""true""/>" & _
                      "</customUI>"
    
    ' 加载自定义配置，覆盖默认Ribbon
    Application.LoadCustomUI "KeepQATHideRibbon", ribbonConfigXml
End Sub

• 让代码在数据库启动时自动执行：
  1. 创建名为AutoExec的宏（Access会自动执行此宏）
  2. 在宏中添加RunCode操作，调用上述HideMainRibbonTabsKeepQAT过程

自定义说明 #

如果需要保留特定的功能区选项卡（比如不想隐藏“文件”选项卡），可以修改XML配置，单独设置选项卡的可见性：

ribbonConfigXml = "<customUI xmlns=""http://schemas.microsoft.com/office/2006/01/customui"">" & _
                  "<ribbon startFromScratch=""false"">" & _
                  "<tabs>" & _
                  '< 隐藏不需要的选项卡 >
                  "<tab idMso=""TabHome"" visible=""false""/>" & _
                  "<tab idMso=""TabCreate"" visible=""false""/>" & _
                  "<tab idMso=""TabExternalData"" visible=""false""/>" & _
                  "<tab idMso=""TabDatabaseTools"" visible=""false""/>" & _
                  '< 保留“文件”选项卡 >
                  "<tab idMso=""TabFile"" visible=""true""/>" & _
                  "</tabs>" & _
                  "</ribbon>" & _
                  "</customUI>"

注意事项 #

• 确保数据库被Access信任（可将其放入信任位置，或启用宏/VBA）
• 自定义QAT的设置会被保留，不受此代码影响

内容的提问来源于stack exchange，提问作者hossein1