Private Sub Workbook_Open()
With Application
.CommandBars("Ply").Controls("&Supprimer").Enabled = False
.CommandBars("Built-in Menus").Controls("&Edition").Controls("Suppri&mer une feuille").Enabled = False
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.CommandBars("Ply").Reset
.CommandBars("Built-in Menus").Reset
End With
End Sub