Désactiver la commande "supprimer" du clic droit

**mobiclick** · 13/09/2010, 23h26

Bonjour le forum,
Je souhaiterais ,si c'est possible ,désactiver (griser) la commande "supprimer" lorsque je clique droit sur l'onglet d'un classeur.Je sais que la protection du classeur permet cela mais elle empêche en même temps l'insertion d'une nouvelle feuille ,ce qui ne correspond pas à mes attentes.
Merci
PS: Je voudrais éviter la suppression involontaire d'une feuille de calcul.

**fring** · 14/09/2010, 01h40

Bonjour,

Code à insérer dans un Module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Sup_Feuille_Off()
CommandBars("Ply").Controls("&Supprimer").Enabled = False
End Sub

Que l'on exécute à l'ouverture du classeur, code à insérer dans ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
Sup_Feuille_Off
End Sub

**mobiclick** · 14/09/2010, 07h56

Bonjour
Merci pour la réponse
Le code fonctionne très bien mais le seul problème c'est qu'il ne se limite pas à un classeur spécifique.Désormais ,je n'arrive plus à supprimer les feuilles d'un autre classeur,pourtant le code n'y est pas inscrit.
Merci

**fring** · 14/09/2010, 09h06

Il suffit de réactiver la commande en quittant le classeur en question

Ce qui donne dans le Module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Sup_Feuille_Off()
CommandBars("Ply").Controls("&Supprimer").Enabled = False
End Sub
 
Sub Sup_Feuille_On()
CommandBars("Ply").Controls("&Supprimer").Enabled = True
End Sub

et dans ThisWorkbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sup_Feuille_On
End Sub
 
Private Sub Workbook_Open()
Sup_Feuille_Off
End Sub

**mobiclick** · 14/09/2010, 09h25

Merci Fring
Mais le classeur doit rester fermé pour que je puisse réutiliser la commande "supprimer".

**fring** · 14/09/2010, 09h52

Non, si tu veux pouvoir travailler avec plusieurs classeurs ouverts en même temps et ne désactiver cette commande que dans un seul classeur, au lieu de travailler avec les évènements "Open" et "BeforeClose", tu peux utiliser les évènements "Activate" et "Deactivate" de ce classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Activate()
Sup_Feuille_Off
End Sub
 
Private Sub Workbook_Deactivate()
Sup_Feuille_On
End Sub

**mobiclick** · 14/09/2010, 09h55

re-salut
J'ai teté ceci:
Au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sup_Feuille_On
End Sub
 
Private Sub Workbook_Open()
Sup_Feuille_Off
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Deactivate()
Sup_Feuille_On
End Sub
 
Private Sub Workbook_activate()
Sup_Feuille_Off
End Sub

ça marche à merveille...(un seul classeur est ciblé,en l'occurence celui qui contient les lignes de code) mais n'y aura-t-il pas d'autres incidences que j'ignore.