suppresion"supprimer feuille"

[jean michel]

bonjour a tous

j'aimerais avoir le code a mettre dans mon workbook_open pour bloquer la fonction "supprimer la feuille"

merci et bonne journee

 

[jean michel]

rebonsoir le forum

ou comment empecher la suppression d'une feulle dans un classeur

merci de votre aide

 

[myDearFriend]

Bonsoir Jean-Michel, le Forum.


Dans Workbook_Open(), tu peux essayer :

Sub DesactiverSupprFeuille()
   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

Sans oublier, à la fin :

Sub RetablirSupprFeuille()
   With Application
      .CommandBars("Ply").Reset
      .CommandBars("Built-in Menus").Reset
   End With
End Sub


Cordialement.

Didier_mDF

 

[jean michel]

Merci DIDIER et bonne journee

 

[Linne]

Merci