Private Sub Ok_Click()
'Limitation d'utilisation à une date déterminée
If IsDate(TextBox1.Value) Then
If CDate(TextBox1.Value) > CDate("30/06/08") Then
MsgBox Chr(13) & "Date d'utilisation Dépassée" & Chr(13) & Chr(13) & "Accès Refusé"
'Fermeture du classeur sans enregistrer
ActiveWorkbook.Close savechanges:=False
End If
End If
End Sub