UNDO en cas de suppression de lignes ou cellules

[aubelix]

Bonjour à tous les amis du Forum. 🙂

De nouveau j'ai besoin de votre aide pour le problème suivant :
Comment adapter le code ci-dessous pour l'appliquer au cas
où l'on effacerait les valeurs de :
H1
L1,L2,L3,L4
M1,M2,M3,M4
ou les lignes 1,2,3,4
et avoir la même action à savoir un UNDO de la la suppression.
Voir le fichier joint pour plus de détail.

'le code suivant empêche l'utilisateur
'd'effacer le contenu de la cellule "H1" date du jour
'(essayer d'effacer la celleule H1, l'action s'annule...)

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("H1")) Is Nothing Then Exit Sub
If Not IsEmpty(Range("H1")) Then Exit Sub
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End Sub


Par avance, Merci pour votre aide.
Cordialement.

 

[Ubot303]

Re : UNDO en cas de suppression de lignes ou cellules

Bonjour à toi,

Ne serait-ce pas mieux de cocher dans le format de tes cellules la case "Cellule verrouillée" et de protéger ta feuille par un mot de passer dans outil -> Protection?

Ci-joint un exemple : le pass est "test"