Adelso quando eu aplico este código ele oculta, porém se eu gravar o excel e abrir fica novamente visível.

Tem como ao abrir a planilha já esteja oculto?

Boa tarde!!
Use dentro de EstaPasta_de_Trabalho

Private Sub Workbook_Open()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = Not Application.DisplayStatusBar
    ActiveWindow.DisplayWorkbookTabs = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    ActiveWindow.DisplayWorkbookTabs = True
End Sub

Valeu mesmo pela dica, simples fácil e funciona perfeitamente.
Obrigado