この人とブロともになる
Sub FullScreenAndHideMenu() Application.DisplayFullScreen = True CommandBars("Worksheet Menu Bar").Enabled = FalseEnd SubSub NormalScreenAndShowMenu() Application.DisplayFullScreen = False CommandBars("Worksheet Menu Bar").Enabled = TrueEnd Sub