Option Explicit
Private Sub AutoDestroy()
Application.DisplayAlerts = False
'ici, ce que tu veux faire : par exemple simplement fermer le fichier ;
'ou pire : par exemple autodestruction du fichier Excel .xlsm.
ThisWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
End Sub
Private Sub Workbook_Open()
Dim DateExpiration As Date: Application.ScreenUpdating = False
DateExpiration = DateSerial(2020, 9, 20) 'expiration au 20 Septembre 2020
If Date >= DateExpiration Then AutoDestroy
'suite du code habituel de la sub Workbook_Open(), s'il y en a un,
'car c'est pas obligatoire : c'est selon ce que tu veux faire !
'inutile de mettre Application.ScreenUpdating = True car
'c'est fait automatiquement juste avant sortie de la sub
End Sub