Bonsoir,
j'ai recuperer dans les archives le code realiser par "Didier_mDF" pour bloquer la suppression d'une feuille
Dans Workbook_Open()
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
mais helas cela ne fonctionne pas, quelqu'un a t'il une idée pourquoi
merci
j'ai recuperer dans les archives le code realiser par "Didier_mDF" pour bloquer la suppression d'une feuille
Dans Workbook_Open()
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
mais helas cela ne fonctionne pas, quelqu'un a t'il une idée pourquoi
merci
Dernière édition: