Résolu Mettre une macro en mode évaluation

[Karim_1972]

Bonsoir;
J'aimerais savoir est-ce qu'on peut mettre en mode "évaluation" un programme sous VBA? Je m'explique:
Dans le meme programme mettre une date à partir de laquelle il devient inutulisable, si non un blocage à partir d'un certain nombre d'execution de la macro?

Merci par avance.
Cordialement.

 

[drul]

C'est bien sur possible,
Mais pas fiable pour un sous (la date est celle du PC donc suffit de changer la date et tu peux utiliser le prog).
En plus le mot de passe des macro est très facilement hackable !
Je crois que ce que tu veux faire n'est pas très judicieux et pas dans la philosophie d'utilisation du VBA

 

[Karim_1972]

Merci drul.

Peut importe les solutions de contournement et de hackage..! simplement j'aimerais mettre le doigt sur ces lignes d'instructions de "VBA"permettant d'arreter l'execution d'un programme à une date donnée. Pouvez-vous SVP m'aider à le faie?

Cordialement

 

[drul]

Ben bêtement:
en précédant ton code par:

If Date < DateSerial(2012, 3, 21) Then 'Ceci n'executera le code qui si la date est plus petite que le 21 mars 2012

 

[Karim_1972]

Merci infiniment drul;
J'ai rajouté un affichage de message si condition fausse.

If Date < DateSerial(2012, 3, 21) Then 
..Code..
End If

If Date > DateSerial(2012, 3, 21) Then
msg = " Votre Abonnement a expiré "
réponse = MsgBox(msg & Chr(10) & Chr(13) & "  Merci de contacter Votre Administrateur ", 64, "Alerte")
End If
   
End Sub

 

[drul]

De rien,

Merci de mettre le sujet en résolu