Bloquage macro par date predéfinie

[flaneur]

Bonsoir à tous,

J'aimerai finaliser mon programme par une version limitée danc le temps,
qu'il n'enregistre plus en feuil 3 à partir du 01 mars 2008,
ou bloquer les macros X et Y.

Une sorte de période d'essai.
je Bug (ou plutot mes désastreuses tentatives que je n'ose meme pas
vous montrer !!! )
Toutes idées et aide me sera précieuse..

merci.

 

[Staple1600]

Re : Bloquage macro par date predéfinie

Bonsoir

Un début de piste

Sub test()
If Date > DateSerial(2008, 3, 1) Then
MsgBox "Période d'essai expirée", vbCritical, "Informations"
ThisWorbook.Close
End If
End Sub

Une autre

Sub testII()
Dim FIN_PERIODE_ESSAI As Date
FIN_PERIODE_ESSAI = DateSerial(2008, 3, 1)
If Date > FIN_PERIODE_ESSAI Then
MsgBox ("Période d'essai terminée")
ActiveWorkbook.Close
End If
MsgBox "Votre période d'essai se termine dans:" & _
Chr(13) & Chr(13) & vbTab & FIN_PERIODE_ESSAI - Date & " jour(s).", vbCritical, "ATTENTION"
End Sub

 

[flaneur]

Re : Bloquage macro par date predéfinie

Bonsoir, Staple 1600
Je te remercie pour ton aide..
Déja hier, c'était nickel....
Aujourd'hui que dire ?
Ca marche !!!

Merci et bonne soirée.