macro autodestructrice

[lesfeles]

Bonjour le forum,

Est ce qu'il est possible de créer une macro qui détruit toutes les macro et à la fin qui se détruit elle même ?

Merci
@+
Olivier

 

[Staple1600]

Une possibilité trouvé ici
http://www.cpearson.com/excel/vbe.htm

Sub DeleteAllCodeInModule()
Dim VBCodeMod As CodeModule
Dim StartLine As Long
Dim HowManyLines As Long

Set VBCodeMod = ThisWorkbook.VBProject.VBComponents('NewModule').CodeModule
With VBCodeMod
    StartLine = 1
    HowManyLines = .CountOfLines
   .DeleteLines StartLine, HowManyLines
End With

End Sub

 

[Lesfeles]

à :woohoo: trop génial...je vais encore gagner un temps fou avec ce truc, merci merci merci Staple1600
@+
Olivier