'Option Explicit
'
'Private Sub Workbook_Open()
' MsgBox ("ceci est un message qui ne laisse pas de trace")
' Call Suicide2
'End Sub
'Option Explicit
'
'Sub Suicide1()
' Dim objNB As Object
' Set objNB = Workbooks.Add
' With ThisWorkbook
' Open .Path & "\xx.bas" For Output As #1
' Print #1, "Sub Temp"
' Print #1, "Workbooks(" & """" & .Name & """" & ").Close False"
' Print #1, "Kill " & """" & .Path & "\" & .Name & """"
' Print #1, "Kill " & """" & .Path & "\xx.bas" & """"
' Print #1, "ThisWorkbook.Close False"
' Print #1, "End Sub"
' Close #1
' objNB.VBProject.VBComponents.Import Filename:=.Path & "\xx.bas"
' End With
' Application.OnTime Now(), objNB.Name & "!Temp"
'End Sub
'
'Sub Suicide2()
' With ThisWorkbook
' .Save
' .ChangeFileAccess Mode:=xlReadOnly
' Kill .FullName
' .Close SaveChanges:=False
' End With
'End Sub
'