Can't get rid of formula bar in fullscreen mode in Excel 2013

ChrisBester

New Member
Joined
Aug 14, 2017
Messages
4
Dear All
I recently upgraded to Excel 2013 and have this problem that when I run the Application.DisplayFormulaBar = False statement, it does not hide the Formula Bar. The code worked perfectly in 2010 and 2007 versions. It seems like a bug in Excel 2013.

Please help.. See code below
Code:
Sub Auto_Open()
 Dim wbBook As Workbook
 Dim wsSheet As Worksheet
  Application.ScreenUpdating = False         ' <-- prevent screen screen flicker as sheets are updated
  Set wbBook = ThisWorkbook
  Application.WindowState = xlMaximized
  Application.DisplayFullScreen = True       ' <-- to force full screen display
  Application.DisplayFormulaBar = False      ' <-- to hide the formula bar
 
  Application.OnKey "{ESC}", ""              ' <-- to disable "ESC" Key


    For Each wsSheet In wbBook.Worksheets
        If Not wsSheet.Name = "Blank" Then
            wsSheet.Activate
            With ActiveWindow
                .DisplayHeadings = False     ' <-- to disable row & column headings
                .DisplayWorkbookTabs = False ' <-- to disable worksheet tabs
                .DisplayHorizontalScrollBar = False
                .DisplayFormulas = False
            End With
        End If
    Next wsSheet
  Sheets("HomePage").Select                  ' <-- To select homepage by default on opening
  Application.ScreenUpdating = True
  End Sub
Thanks in advance
 
Last edited by a moderator:

Excel Facts

Show numbers in thousands?
Use a custom number format of #,##0,K. Each comma after the final 0 will divide the displayed number by another thousand
maybe a thought

Application.WindowState = xlMaximized
Application.DisplayFullScreen = True ' <-- to force full screen display

change the window state to further down the code

I can't test with 2013 as 2016 strips it out totally
 
Upvote 0
Thanks Mole,
tried that, still no luck. :-(




Application.WindowState = xlMaximized
Application.DisplayFullScreen = True ' <-- to force full screen display

change the window state to further down the code

I can't test with 2013 as 2016 strips it out totally[/QUOTE]
 
Upvote 0
I can't duplicate the bug with Office Home and Student 2013, the .msi version. Office version number is 15.0.4953.1001 from August 1, 2017.

With 2013, Toggle Full Screen View is not available as a ribbon command. I added it to the Quick Access Toolbar from "Commands not in the Ribbon". Toggling Full Screen View using the QAT button hides the QAT, the ribbon, the formula bar, the headers, and the status bar, and maximizes the window. Worksheet tabs and scroll bars remain visible.

The recorded macro from using the QAT button and then pressing ESC to reverse it was this:
Code:
Sub Macro1()
    Application.DisplayFullScreen = True
    Application.WindowState = xlNormal
End Sub

Using Application.DisplayFullScreen = True from the Immediate window works correctly, here. I have no Add-ins active.
 
Upvote 0
I can't duplicate the bug with Office Home and Student 2013, the .msi version. Office version number is 15.0.4953.1001 from August 1, 2017.

With 2013, Toggle Full Screen View is not available as a ribbon command. I added it to the Quick Access Toolbar from "Commands not in the Ribbon". Toggling Full Screen View using the QAT button hides the QAT, the ribbon, the formula bar, the headers, and the status bar, and maximizes the window. Worksheet tabs and scroll bars remain visible.

The recorded macro from using the QAT button and then pressing ESC to reverse it was this:
Code:
Sub Macro1()
    Application.DisplayFullScreen = True
    Application.WindowState = xlNormal
End Sub

Using Application.DisplayFullScreen = True from the Immediate window works correctly, here. I have no Add-ins active.


Thanks OldMan, much appreciated but still no success :-(
 
Upvote 0
I am experiencing exactly the same thing with Excel 2013, just can't get rid of the formula bar.
here is my code:

Code:
Application.OnKey "{Esc}", ""
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
Application.DisplayScrollBars = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = False
 
Last edited by a moderator:
Upvote 0

Forum statistics

Threads
1,223,098
Messages
6,170,106
Members
452,302
Latest member
TaMere

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
Back
Top