Full Screen Macro

steve case

Well-known Member
Joined
Apr 10, 2002
Messages
815
An old set of macros that worked on Excel 97-2003 were used to completely clear the
screen of everything except the cells. I now have Excel 2013 and have transferred the
old file, and the macros do work except as shown below:
jkk12r.jpg

Here's my code:

Code:
Sub FullScreen()
'
' FullScreen Macro
' Macro recorded 2018-02-19 by Steve Case
'
' Keyboard Shortcut: Ctrl+f
'
    Application.DisplayFullScreen = True
    Application.CommandBars("Worksheet Menu Bar").Enabled = False
    Application.DisplayFormulaBar = False
    Application.CommandBars("Forms").Visible = False
    Application.CommandBars("Standard").Visible = False
    Application.CommandBars("Formatting").Visible = False
With ActiveWindow
        .DisplayHeadings = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
    ActiveSheet.DisplayPageBreaks = False
End Sub

And to restore tool bars here's that code:

Code:
Sub RestoreToolBars()
'
' RestoreToolBars Macro
' Macro recorded 2018-02-19 by Steve Case
'
' Keyboard Shortcut: Ctrl+u
'
   Application.DisplayFullScreen = False
    Application.CommandBars("Worksheet Menu Bar").Enabled = True
    Application.DisplayFormulaBar = True
    Application.CommandBars("Standard").Visible = True
    Application.CommandBars("Formatting").Visible = True


With ActiveWindow
        .DisplayHeadings = True
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
    End With
    ActiveSheet.DisplayPageBreaks = True
End Sub

Is there a line of code that I can add to make the unwanted
"(Excel Icon) MyFile[Compatability Mode] - Excel (View & Exit)"
disappear and reappear?

Background:

My hard drive crashed and Windows 2010 was reinstalled on a new hard drive with
my old office 2003 but the Excel 97-2003 that had been running now doesn't and I
have Excel 2013 now.* I am very unhappy about this as Excel 2013 does things I
don't need or want, and those things that used to take two clicks now take 3 or 4
and are renamed, relocated and in some cases aren't there, I.e., the "Forms" toolbar
with all the buttons which you see in the "My File" image above.

Oh! I use this feature with [Alt-Tab] "Print Screen" to paste into a 640x480 pixel blank
in a graphics program so that it always is located in the upper left corner. That unwanted
top bar ruins the the technique.

*I'm not exactly sure what I had before - my old files on a thumb drive say Excel 1997-2003
 

steve case

Well-known Member
Joined
Apr 10, 2002
Messages
815
If you remove that it wont work at all. His code was complete, as is...it doesn't go between Sub/End Sub. Paste it into a blank module and try running the macro "hide_menu".

Thanks - I figured out what to do shortly after my 10:11 post
 

Some videos you may like

Excel Facts

What is the shortcut key for Format Selection?
Ctrl+1 (the number one) will open the Format dialog for whatever is selected.

jproffer

Well-known Member
Joined
Dec 15, 2004
Messages
2,643
Good deal :) . I figured you would, but wanted to point it out just in case. Glad you got it working.
 

Watch MrExcel Video

Forum statistics

Threads
1,122,530
Messages
5,596,699
Members
414,088
Latest member
rodriboraun

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top