Private Sub Workbook_Open()
'Si le fichier est déprotégé -> suicide , le fichier disparait totalement
If ThisWorkbook.VBProject.Protection = False Then
Call Module1.Suicide
'Si la date de péremption est dépassé représenté ici par DateSerial(2009, 4, 8) -> déprotection du fichier + suicide
ElseIf Date > DateSerial(2009, 4, 8) Then
Call UnprotectVBProject(ThisWorkbook, "toto")
End If
End Sub