Autorisation suppression d'onglet

Bonjour,
j'ai utlisé le code suivant pour empecher l'utilisateur de supprimer des onglets d'un classeur :

Sub ModifierSupprimerFeuille()
Dim c As CommandBarControl
For Each c In Application.CommandBars.FindControls(ID:=847)
c.OnAction = "SupFeuil"
Next c
End Sub

Le problème est que même en ayant supprimer le code la suppression de feuille est impossible et également dans un nouveau classeur.

Comment autoriser de nouveau la suppression de feuille?

Merci de vos réponses