Sub Masquer()
Dim CmdB As CommandBar
Dim y As Integer
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.DisplayFullScreen = True
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With
' y = 2
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
' Cells(y, 1).Value = CmdB.Name
' y = y + 1
Next CmdB
End Sub
Sub Afficher()
Dim CmdB As CommandBar
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayOutline = True
.DisplayZeros = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
With Application
.DisplayFullScreen = False
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
End Sub