arage, is this what you are looking for?
'To Show Database Window
Private Sub cmdShowDbWindow_Click()
DoCmd.SelectObject acTable, , True
End Sub
'To Hide Database Window
Private Sub cmdHideDbWindow_Click()
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide
End Sub
'To Show Access Default Menu
Private Sub cmdShowDefaultMenu_Click()
CommandBars.Item(32).Enabled = True
End Sub
'To Hide Access Default Menu
Private Sub cmdHideDefaultMenu_Click()
CommandBars.Item(32).Enabled = False
End Sub
I am not sure how it works with a MDE though.