Sub MasquerBarres()
Application.ScreenUpdating = False
Dim nb, i As Integer
With Application
.CommandBars("Worksheet Menu Bar").Enabled = False
.CommandBars("Standard").Enabled = False
.CommandBars("Formatting").Enabled = False
.CommandBars("Drawing").Enabled = False
'Désactive la barre de formule
.DisplayFormulaBar = False
'Désactive la barre d'état
.DisplayStatusBar = False
End With
nb = ThisWorkbook.Sheets.Count
For i = 1 To nb
Sheets(i).Select
With ActiveWindow
'Désactive les en-têtes de ligne et de colonne
.DisplayHeadings = False
'Désactive le quadrillage
.DisplayGridlines = False
'Désactive la barre de défilement horizontale
.DisplayHorizontalScrollBar = False
'Désactive la barre de défilement verticale
.DisplayVerticalScrollBar = False
'Désactive les onglets du classeur
.DisplayWorkbookTabs = False
End With
Next
Sheets("Menu").Select
Application.ScreenUpdating = True
End Sub