Interdire la suppression de feuilles

[Aimedjie]

Bonjour,

Je sais que ce sujet a été traité plusieurs fois, mais je ne trouve de réponses à mon problème. Je voudrais empêcher la supression de feuilles dans un classeur. Je ne peux passer par la protection du classeur puisque j'ai programmée des macros qui affichent ou masquent des feuilles. En protégeant la structure du classeur mes macros plantes toutes. J'ai également vu un fichier qui empêchait le click droit sur la feuille, mais elle n'empêche pas de passer par le menu "Édition".

Pouvez-vous m'aider?

 

[vbacrumble]

Re : Interdire la suppression de feuilles

Bjr

Sub supfnosupf()
Dim cmbo As CommandBar
Set cmbo = Application.CommandBars("Worksheet Menu Bar")
cmbo.Controls("Edition").Controls("Supprimer une feuille").Enabled = _
Not cmbo.Controls("Edition").Controls("Supprimer une feuille").Enabled
End Sub

@+

 

[job75]

Re : Interdire la suppression de feuilles

Bonjour à tous,

Pourquoi ne pas protéger le classeur ?

Pour les macros, il suffirait d'ôter - provisoirement - cette protection...

A+

 

[tototiti2008]

Re : Interdire la suppression de feuilles

Bonjour à tous,

d'accord avec job75, le plus simple est de déprotéger le classeur dans la macro, puis de le reprotéger...

ThisWorkbook.Unprotect Password:="toto"
'Ton code
ThisWorkbook.Protect Password:="toto", Structure:=True, Windows:=False

J'ai également vu un fichier qui empêchait le click droit sur la feuille

intéressant... tu peux nous poster le code qui empêche le clic droit sur un onglet ?

 

[noviceAG]

Re : Interdire la suppression de feuilles

Bonjour Aimedjie, vbacrumble, job75, tototiti2008, le Forum,
Je crois que c'est de ceci que parle Aimedjie :

'Pour désactiver le menu clic droit sur onglet
Application.CommandBars("Ply").Enabled = False

'Pour le rétablir
Application.CommandBars("Ply").Enabled = True

Bonne journée à tous

 

[tototiti2008]

Re : Interdire la suppression de feuilles

Re,
Bonjour NoviceAG,

Merci du tuyau