Empêcher le changement de nom d'une feuille

[zephir94]

Bonjour à tous,

Je suis arrivé à empêcher la possibilité de supprimer une feuille de mon classeur en ne laissant pas la possibilité de faire apparaitre le menu sur l'onglet comme ceci

Private Sub Workbook_Open()
Application.CommandBars("Ply").Enabled = False
End sub

Mais je voudrais maintenant empêcher de changer le nom d'une feuille.

Après recherches j'ai trouvé ceci à placer dans chaque feuilles concernées:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If ActiveSheet.Name <> "toto" Then
         ActiveSheet.Name = "toto"
     End If
End Sub

Mais cela ne fonctionne pas !

quelqu'un a t'il une autre idée ?
Merci par avance de vos aides

 

[gilbert_RGI]

Re : Empêcher le changement de nom d'une feuille

pour neutraliser renommer il y a

'A METTRE DANS THISWORKBOOK
Private Sub Workbook_Open()
For Each c In Application.CommandBars.FindControls(ID:=889) 'Commande "Rename"
c.Enabled = False
Next c
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each c In Application.CommandBars.FindControls(ID:=889) 'Commande "Rename"
c.Enabled = True
Next c

End Sub

 

[zephir94]

Re : Empêcher le changement de nom d'une feuille

Je viens de le voir merci à toi job75 je ne connaissais pas merci à vous trois