Formula Bar & Status Bar still showing while using VBA Code for hiding ribbon

[sauj99]

Hi,

I want to hide formula bar, status bar and ribbon in one of my workbooks.

I am using the following code in ThisWorkbook module to hide the formula bar, status bar & ribbon but the Formula Bar & Status Bar still shows.
Incase I hide the Formula bar in another workbook, its hidden in the workbook in question too but the status bar still shows.

Option Explicit


Private Sub Workbook_Open()
' Application.DisplayFormulaBar = False
' Application.DisplayStatusBar = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Application.DisplayFormulaBar = True
'Application.DisplayStatusBar = True
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub

I am using the following code to bring them back.

Option Explicit
Sub shwMenu()
 Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"


End Sub
Sub hideMenu()
 Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub

Where am I going wrong?
I would really appreciate if somebody could help.

 

[CeceR]

I may be missing something here, but I think you're just missing your Application.DisplayFormulaBar and DisplayStatusBar lines. They're commented out in the first two procedures, but if you uncomment them (remove the ') they work for me. You should be able to just add them to your shwMenu and hideMenu procedures.