I recently posted how to manually Turn On Formula Bar – Turn Off Formula Bar. Here is how to do it with VBA:

Macro to turn off the formula bar:

Sub OffFormulaBar()
    Application.DisplayFormulaBar = False
End Sub

Macro to turn on the formula bar:

Sub OnFormulaBar()
    Application.DisplayFormulaBar = True
End Sub