interdire ouverture classeur

[jmg]

bonjour le forum

Est-il possible d'interdire l'ouverture d'un classeur après une certaine date, par exemple le 31 octobre 2003, avec si possible un petit message d'excuse, un peu comme pour les logiciels d'essai 30 jours, par exemple.
merci pour la réponse.
jmg

 

[Claude]

Si tu mets le code ci dessous dans la partie Workbook le classeur se refermera après la date fatidique. Seul inconvénient, on peut toujours arrêté la macro (CTRL+Pause) et là le classeur restera ouvert !

Mais en dehors de cet inconvénient, ça marche !!

Claude


Private Sub Workbook_Open()
MyLastDate = DateValue("21/10/2003")
If Now() > MyLastDate Then
ActiveWindow.WindowState = xlMinimized
MsgBox ("Désolé, la date limite est passée")
Workbooks.Close
End If
End Sub

 

[jmg]

merci Claude
jmg