Show Full Menu in Access

I have a access database that has startup options set to open my own form and menu. I have disabled all other menus. If an administrator logs on and chooses to edit the database. How would I show all menus except the one I have created Maybe there is a way to load them

Here is the code I have tried and doesn't successfully work.

ChangeProperty "AllowFullMenus", DB_BOOLEAN, True

'Show commandbars except "Time"
Dim i As Integer
For i = 1 To CommandBars.count
CommandBars.Item(i).Enabled = Not (CommandBars.Item(i).Name = "Time")
Next i
'Remove all forms
i = 0
Do While Forms.count - 1 >= i
DoCmd.Close acForm, Forms.Item(i).Name, acSaveNo
Loop
'Show the DB Window
DoCmd.SelectObject acTable, , True

But... the Database Window does show up I just don't get any other menus that normally come up when I am editing the database