Sub HideAll()

' Hide the Horizontal Scroll Bar

' ActiveWindow.DisplayHorizontalScrollBar = False

' Hide the Vertical Scroll Bar

' ActiveWindow.DisplayVerticalScrollBar = False

' Hide the Row/Column Headings

' ActiveWindow.DisplayHeadings = False

' Hide the Worksheet Tabs

' ActiveWindow.DisplayWorkbookTabs = False

' Hide the Status Bar (bottom of the window)

Application.DisplayStatusBar = False

' Hide the Formula Bar' Application.DisplayFormulaBar = False

' Hide the Ribbon Menu and Quick Access Toolbar

Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"

' Display Full Screen

'Application.DisplayFullScreen = True

End Sub

Sub ShowAll()

' Just reverse the options in the previous macro -> False becomes True' and True becomes False.

' Exit Full Screen' - If this was used to show full screen after other display settings

' were changed, then put it before those settings are changed back.

' Full-screen mode and normal mode maintain separate settings for

' these.

'Application.DisplayFullScreen = False

' Show the Horizontal Scroll Bar

ActiveWindow.DisplayHorizontalScrollBar = True

' Show the Vertical Scroll Bar

ActiveWindow.DisplayVerticalScrollBar = True

' Show the Row/Column HeadingsActiveWindow.DisplayHeadings = True

' Show the Worksheet Tabs

ActiveWindow.DisplayWorkbookTabs = True

' Show the Status Bar (bottom of the window)

Application.DisplayStatusBar = True

' Show the Formula Bar

Application.DisplayFormulaBar = True

' Show the Ribbon Menu and Quick Access Toolbar

Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)"

End Sub

Удаления всех пустых строк и столбцов на листе можно добиться следующим макросом:

Read more: Удаление пустых строк/столбцов