ActiveWindow to Entire Workbook

hey everyone,

I've got 2 subs I use to basically hide everything and go into full screen mode and another button to undo all the hiding.

Sub ShowAll()
Sheet 1.Activate
Application.DisplayFullScreen = False: DisplayFormula Bar = True: onKey "{ESC}"
ActiveWindow.DisplayWorkbookTabs= True: Displayheadings = True: DisplayGridlines = True
ActiveSheet.Scrollarea = ""
call UnprotectAll
End Sub


Sub Unprotectall()
dim wsheet as worksheet
for each wsheet in worksheets
wsheet.unprotect
next wsheet
end sub

everything has worked great, problem is we've added a navigational button that takes you to other sheets and displays the information on those sheets and sets custom scroll areas / zoomz / locked cells and protects the sheet.

so the macro I have only reverses some of the things that get hidden because the Active Window command, hopefully that makes sense, I wanted to copy and paste the code but the excel program is on a different computer.

Any help would be much apperciated!