'###########################################################
'--- Constante à adapter par le CodeName de la feuille ---
'--- Dans le VBE, affichez l'Explorateur de projets pour ---
'--- y voir le CodeName de la feuille. Dans l'exemple, ---
'--- CodeName = Feuil2 alors que Name = zaza ---
Private Const FEUILLE_CODENAME As String = "Feuil2"
'###########################################################
Private WithEvents CBBEvents As CommandBarButton
Private Sub CBBEvents_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
If Ctrl.ID = 847 Then
If ActiveSheet.CodeName = FEUILLE_CODENAME Then
CancelDefault = True
MsgBox "Interdiction de supprimer la feuille " & ActiveSheet.Name
End If
End If
End Sub
Private Sub Workbook_Open()
Set CBBEvents = Application.CommandBars.FindControl(ID:=847)
End Sub