fomrula bar will not popup even though VB was done to show.

[countryfan_nt]

Hello friends, Hope all is well.

Both below codes work fine, but the second code is not taking effect, I want the formula bar to show up when a new workbook opens.

thank you very much in advance!

Private Sub Workbook_Open()

Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayGridlines = False
ActiveWindow.Zoom = 130
ActiveWindow.DisplayWorkbookTabs = False

Range("A1").Select
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWindow.DisplayWorkbookTabs = True
Application.OnKey "{F1}", ""
ActiveWindow.DisplayHeadings = True
Application.DisplayFullScreen = True
ActiveWindow.Zoom = 100
ActiveWindow.DisplayGridlines = True
Application.DisplayFormulaBar = True


Range("A1").Select
End Sub

 

[Haluk]

In ThisWorkbook's code module;

Private Sub Workbook_Deactivate()
    'Place the needed code related with showing formula bar, here !
End Sub

Private Sub Workbook_Activate()
    'You may need some code here, also ! 
    'Such as, code related with removing the formula bar.
End Sub

 

[countryfan_nt]

Tashakur Adirm! but the formula bar is still not showing, after closing the workbook with the VB, and opening a fresh new workbook.
please help, thanks a lot

Private Sub Workbook_activate()
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayGridlines = False
ActiveWindow.Zoom = 125
ActiveWindow.DisplayWorkbookTabs = False


Range("A1").Select
End Sub

Private Sub Workbook_Deactivate()

ActiveWindow.DisplayWorkbookTabs = True
Application.OnKey "{F1}", ""
ActiveWindow.DisplayHeadings = True
Application.DisplayFullScreen = True
ActiveWindow.Zoom = 100
ActiveWindow.DisplayGridlines = True
Application.DisplayFormulaBar = True

Range("A1").Select
End Sub