bloquer suppression feuille

[angoul]

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

 

[jeanpierre]

Re : bloquer suppression feuille

Bonsoir angoul,

Question bête, as-tu retiré tous les :   ????

Bonne soirée.

Jean-Pierre

 

[angoul]

Re : bloquer suppression feuille

merci de ton aide
je doit etre trop con, car cela fonctionne toujour pas chez moi
peut etre une feuille avec le code dedant m'aiderait ou est mon connerie

merci

 

[jeanpierre]

Re : bloquer suppression feuille

Re, Salut CC,

C'est plutôt à toi de fournir le fichier qui ne fonctionne pas... Non ???

Si l'on te donne un fichier qui fonctionne cela ne solutionnera pas forcément ton problème alors que sur ton fichier on pourra te dire la source de l'erreur.

Bonne nuit bientôt.

Jean-Pierre

 

[Staple1600]

Re : bloquer suppression feuille

Bonsoir à tous

Pour faire plaisir au requin

L'auteur était bien au chaud dans les archives du forum

https://www.excel-downloads.com/thr...ats-de-football-domicile-et-exterieur.139620/

Ps: je laisse le soin à angoul d'éditer son message pour indiquer son nom

 

[jeanpierre]

Re : bloquer suppression feuille

Re,

Oui, préciser l'origine c'est bien, mais une autre question :

Y-a-t'il un auteur spécifique et unique sur un tel code ????

Jean-Pierre

 

[angoul]

Re : bloquer suppression feuille

bonjour,

voici ma feuille excel ou j'ai mis mon code, mais helas cela fonctionne pas.

Je pense faire une betise, mais je trouve pas

merci de votre aide

 

[Staple1600]

Re : bloquer suppression feuille

Bonjour

c'est ici (entre autres...) que cela coince

Private Sub 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

Modifier comme ci dessous:

Dans ThisWorkBook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
RetablirSupprFeuille
End Sub

Private Sub Workbook_Open()
DesactiverSupprFeuille
End Sub

Dans un module

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

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

 

[angoul]

Re : bloquer suppression feuille

merci mais j'ai toujour des erreurs, et comme je comprend se que je fait
alors je suis bloquer
cordialement

 

[Fo_rum]

Re : bloquer suppression feuille

salut

attention aux espaces superflus !

Dans ThisWorkBook

Private Sub Workbook_Open()
  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
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  With Application
    .CommandBars("Ply").Reset
    .CommandBars("Built-in Menus").Reset
  End With
End Sub

Il faut savoir que cette façon de procéder peut être trop radicale si on ouvre d'autres fichiers en parallèle; donc tu aurais intérêt à voir ceci (didier09)

 

[angoul]

Re : bloquer suppression feuille

merci sa marche dans les modules
super