Bonsoir à Tous,
J'ai trouvé ce code pour empêcher d'effacer le contenu ou supprimer le contenu d'une cellule qui est renseignée
par le biais du menu contextuel.
Mais je veux étendre la sélection de A2 à K1000.
Ce code bloque seulement la cellule A2.
Je ne trouve pas la solution.
Besoin d'Aide S.V.P.
Merci
Jean
Dans ThisWorkbook:
Option Explicit
Private Sub Workbook_Open() 'Syntaxe qui s'exécute à l'ouverture du Classeur'
'Désactivation de la commande "Supprimer Dans le Menu Principal'
Application.CommandBars(1).Controls("Edition").CommandBar.Controls("Supprimer...").Enabled = False
'Désactivation de la commande Dans le Menu Contextuel'
Application.CommandBars("Cell").Controls("Supprimer...").Enabled = False
'Fin Désactivation'
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Rétabli les Controls Commandes en sortant du Fichier'
Application.CommandBars(1).Controls("Edition").CommandBar.Controls("Supprimer...").Enabled = True
Application.CommandBars("Cell").Controls("Supprimer...").Enabled = True
'Fin Rétabli les Controls Commandes en sortant du Fichier'
End Sub
Dans Feuil1:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
If Target = "" Then Application.Undo
End Sub