XL 2010 VBA - Annuler l'opération (Ctrl+Z)

[tchi456]

Bonjour,

J'ai un bouton pour pouvoir insérer trois lignes vides sur une feuille verrouillée par mot de passe.
Je souhaiterais pouvoir annuler l'opération (Ctrl+Z) après avoir cliqué sur le bouton.
Avez-vous une solution qui pourrait m'aider?

Voici le code actuel:

Sub BoutonInserer3LignesVides()
    ActiveSheet.Unprotect Password:="."
    Application.EnableEvents = False
    ActiveCell.Offset(1, 0).EntireRow.Resize(3).Insert Shift:=xlDown
    Application.EnableEvents = True
    ActiveSheet.Protect Password:="."
End Sub

Mes meilleures salutations,

Thierry

 

[Dudu2]

Bonjour,
Les modifications faites par VBA détruisent la pile des Undo.
Donc un Application.Undo n'y fera rien.
Il faut que tu fasses en VBA la suppression des 3 lignes insérées.

 

[tchi456]

Ok merci beaucoup