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

[ChrisBester]

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

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

 

[mole999]

maybe > Application.DisplayFullScreen Property (Excel)

 

[ChrisBester]

maybe > Application.DisplayFullScreen Property (Excel)

Thanks mole, that's the code I'm using in line 7.. followed by "Application.DisplayFormulaBar = False" and its not working, it works in other versions of excel but not in the 2013 version.

 

[mole999]

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

 

[ChrisBester]

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]

 

[thisoldman]

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:

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.

 

[ChrisBester]

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:

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

 

[XLRATOR]

I am experiencing exactly the same thing with Excel 2013, just can't get rid of the formula bar.
here is my code:

Application.OnKey "{Esc}", ""
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
Application.DisplayScrollBars = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = False