Application VisualBasic Script

Sub UnhideMenu()
    CommandBars(1).Controls("yourControl").Visible = True
End Sub
Sub HideMenu()
    CommandBars(1).Controls("yourControl").Visible = False
End Sub