Mettre une date de fin d'utilisation

Bonsoir,

A quoi bon mettre une date pour interdire utilisation et surtout l'ouverture d'un fichier autant le supprimer s'il ne peut plus être ouvert,
enfin si tu le demande

Private Sub Workbook_Open()
If Date >= Sheets("Feuil1").Range("A1") Then
MsgBox "Date depassée" 'facultatif si tu ne souhaites pas être averti
ThisWorkbook.Close SaveChanges:=False
End If
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

bonjour Mike 31
merci de la réponse
le but de la date de fin, c'est que ce document est envoyé à une personne avec une date d'utilisation fixée

Re,

alors je pense qu'il serait préférable d'ajouter une Inputbox pour saisir un mot de passe de sorte que le destinataire puisse l'ouvrir, sinon le fichier sera inexploitable.
colle ce code dans la Thiswokbook, saisi en A1 la date de fin valide ou dépassée enregistre et ferme le fichier puis essaye de l'ouvrir

le mot de passe provisoire est open

Private Sub Workbook_Open()
If Date >= Sheets("Feuil1").Range("A1") Then
nom = InputBox("Veuillez saisir votre mot de passe")
If nom <> "open" Then
ThisWorkbook.Close SaveChanges:=False
End If
End If
End Sub