Formula Bar Hidden

[ub]

Hi
I have written a VBA code to hide formula bar in the Workbook open event.
The code is :
If Application.DisplayFormulaBar = True then
Application.DisplayFormulaBar = False
End if

To bring the formula bar back once I exit out of this workbook, I wrote a
code in workbook before close event and the code is
If Application.DisplayFormulaBar = False then
Application.DisplayFormulaBar = True
End if

I am able to hide the formula bar, but it never brings the formula bar
visible for the application. Every time, after using this sheet, I have to
manualy add the formula bar.

Please advise, how can I correct this problem

 

[JLGWhiz]

Try deleting the If statement and just use:

Application.DisplayFormulaBar = True

No error is generated if the Formula Bar is already displayed.

 

[ub]

Hi
Thanks for the reply

I tried with removing the if statement and it still does not work.

Please advise

 

[JLGWhiz]

After thought. You will also need to save the workbook after you re-instate
the Formula Bar, otherwise it will open in the last saved state.

 

[ub]

I added code
activeworkbook.save
after the Application.DisplayFormulaBar = True statement.
But it still does not work.

Please advise, if I need to change the save statement

 

[Gord Dibben]

Works for me.

Could be done with a few less lines.

Private Sub Workbook_Open()
Application.DisplayFormulaBar = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFormulaBar = True
End Sub


Gord Dibben MS Excel MVP

 

[ub]

Hi Gord

Thanks for the reply.

I have a an Exit button on one of the sheets that closes the workbook.
I put the code [application.DisplayFormulaBar = True ] in the code of this
exit button before the [activeworkbook.save ] and it works now.

Thanks to all