Access 从2007后取消了菜单，改用了功能区，这便于命令与操作的查找，提高了效率，但功能区也占据的不小屏幕空间，此时我们可以将功能区最小化。

新建一个函数：

Public Function MiniRibbon()
    If CommandBars("ribbon").Height > 100 Then
        CommandBars.ExecuteMso "MinimizeRibbon"
    End If
End Function

然后再建一个名为 Autoexec的宏，在宏中用RunCode宏命令调用上面的MiniRibbon函数就可以了。