Сделайте свою строку меню и скройте все остальные. Куски кода:
' Удаление пользовательских меню, добавленных при запуске системы
For Each ctl In menu.Controls
If InStr(ctl.Tag, "UserMenu") > 0 Then
ctl.Delete
End If
Next ctl
If modUser.IsSuperUser() Then
Application.CommandBars("Меню системы").Visible = False
Application.CommandBars("Menu bar").Visible = True
SetupProperty "StartUpMenuBar", ""
Application.CommandBars("Панель системы").Visible = True
Set menu = Application.CommandBars.item("Menu bar")
Else
Dim bar As Office.CommandBar
For Each bar In Application.CommandBars
bar.Visible = False
Next bar
Application.CommandBars("Меню системы").Visible = True
Application.CommandBars("Панель системы").Visible = True
SetupProperty "StartUpMenuBar", "Меню системы"
DoCmd.ShowToolbar "Панель системы", acToolbarYes
Set menu = Application.CommandBars.item("Меню системы")
End If