[XL-2010] Empêcher ou détecter la suppression d'une cellule

[tambouri]

Bonjour,

Je suis à la recherche d'une méthode écrite en vba permettant :
- soit de bloquer l'utilisation de toutes les fonctions de suppression présentes dans le ruban(onglet "Accueil" - groupe "cellules")
- soit de détecter la suppression d'une cellule dans un onglet, le but étant d'annuler cette même suppression si ce droit ne fait pas partie de ceux attribués à l'utilisateur courant.

Je précise que je parviens à bloquer la suppression via le clic droit avec :

Code :

Application.CommandBars("Cell").Enabled = True

mais c'est insuffisant puisque la barre d'outils le permet toujours

Merci d'avance pour votre aide et vos conseils

[jean60]

Bonjour,

J'étais confronté au même problème et tu m'as donné en partie la solution :

Pour désactiver la commande "Supprimer..." du menu "Edition", va dans ThisWorkbook et essaie ça :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Open()
'Désactivation de la commande "Supprimer..."
'
'
 
'dans le menu principal
    Application.CommandBars(1).Controls("Edition").CommandBar.Controls("Supprimer...").Enabled = False
 
'dans le menu contextuel
    Application.CommandBars("Cell").Controls("Supprimer...").Enabled = False
 
End Sub

Ne pas oublier de rétablir la commande au moment de la fermeture du classeur :

Code :

1
2
3
4
5
6
7
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
    Application.CommandBars(1).Controls("Edition").CommandBar.Controls("Supprimer...").Enabled = True
 
    Application.CommandBars("Cell").Controls("Supprimer...").Enabled = True
 
End Sub

J'espère avoir répondu à ta question. Chez moi ça fonctionne (Excel 2000).

Cordialement,