Masquer toutes les barres

Bonjour ,

je suis a la recherche d'un code vba pour ne laisser paraitre que ma feuille de calcul

Toutes les barres seraient masquées

Je vous remercie

Bonjour

Dans thisworkbook

Private Sub Workbook_Activate()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = Not Application.DisplayStatusBar
ActiveWindow.DisplayWorkbookTabs = False
End Sub

Private Sub Workbook_Deactivate()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub

A+ François

Bonjour François

Merci pour ton aide

Bonne AM