'--------------------------- Suppression barres d'outils -----------------------
Dim Cbar As CommandBar
Dim i As Byte
'ici une boucle pour remettre enabled toutes les CommandBar d'origine
For Each Cbar In Application.CommandBars
If Cbar.BuiltIn = True Then
If Cbar.Enabled = False Then Cbar.Enabled = True
End If
Next Cbar
'ici on Remets Visible et de l'ordre (et on remets enabled dans la Foulée au cas où !!)
On Error Resume Next
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = False
.EnableEvents = True
With .CommandBars("Worksheet Menu Bar")
.Enabled = False
.Visible = False
End With
With .CommandBars("Standard")
.Enabled = False
.Visible = False
End With
With .CommandBars("Formatting")
.Enabled = False
.Visible = False
End With
With .CommandBars("Cell")
.Enabled = False
End With
End With
On Error GoTo 0
'-------------------------------------------------------------------------------