Rendre une macro inactive à une date donnée

Version imprimable

22/03/2015, 11h01
karim1998

Rendre une macro inactive à une date donnée

Bonjour,
J'ai créé une macro et j'aurais voulu savoir s'il y avait une possibilité de rajouter une condition à celle - ci pour qu'à partir d'une certaine date elle ne soit plus active ?
En effet, je n'aurais plus accès à ce fichier dans un mois et j'aimerais la rendre inactive à ce moment là, est - ce possible?
Merci d'avance :-)
22/03/2015, 11h18
Philippe Tulliez

Bonjour,
En plaçant cette ligne en début de procédure, celle-ci ne fonctionnera plus à partir du 30 mars 2015

Code:

If Date >= DateSerial(2015, 3, 30) Then Exit Sub

Ceci dit, elle ne résistera pas à quelqu'un qui connaît bien le VBA.
22/03/2015, 11h23
karim1998

Parfait ! Merci beaucoup!!! je vais essayer ça ! :-)
Je pensais mettre également un mot de passe afin que personne ne puisse la modifier ...
22/03/2015, 14h22
Jean-Philippe André
Salut,

si jamais tu souhaites mettre ce système en place pour plusieurs macros, et que ta date serait susceptible d'être modifiée au fur et à mesure, je te recommande de passer par une constante

Code:

Const DateLimite = DateSerial(2015,3,31)

à laquelle tu pourras faire référence à plusieurs endroits dans ton code
Code:

1 2 If Date>DateLimite Then ...
22/03/2015, 14h59
Philippe Tulliez

Bonjour JP,
Sauf erreur de ma part, une constante ne peut pas être alimentée par le résultat d'une fonction
La ligne ci-dessous renvoie l'erreur Constante requise

Code:

Const DateLimite = DateSerial(2015, 3, 1)
22/03/2015, 15h20
Theze
Bonjour,

Effectivement, une constante remplace un littéral donc elle doit être initialisée avec un littéral.
Je pencherai aussi pour la solution de Philippe avec un message pour que l'utilisateur ne soit pas surpris de l'absence de réaction :
Code:

1 2 3 4 5 6 7 If Date >= DateSerial(2015, 3, 30) Then MsgBox "La date limite pour l'utilisation des fonctionnalités de ce classeur est arrivée à échéance !" Exit Sub End If
L'utilisation d'un nom invisible est aussi une possibilité pour stocker la date de même que la base de registre.

Hervé.
22/03/2015, 15h40
Jean-Philippe André

Citation:

Envoyé par Philippe Tulliez

Bonjour JP,
Sauf erreur de ma part, une constante ne peut pas être alimentée par le résultat d'une fonction
La ligne ci-dessous renvoie l'erreur Constante requise

Code:

Const DateLimite = DateSerial(2015, 3, 1)

Exact,
du coup un direct

Code:

Const DateLimite = #03/31/2015#

:)
22/03/2015, 19h34
clementmarcotte

Bonjour

Les collègues ont une solution, mais il reste quand même une certitude en ce bas monde. Quiconque capable de reculer la date du système peut continuer d'utiliser la macro mais bon, pour un simple béotien, cela devrait probablement tenir un certain temps. ;)

heu

Bonjour

Code:

1
2
3
4
5
6
7
8
9
10
 
Const DateLimite = "10/03/2015"
Sub essaie_de_macro()
If Date >= CDate(DateLimite) Then
 
    MsgBox "La date limite pour l'utilisation des fonctionnalités de ce classeur est arrivée à échéance !"
    Exit Sub
 
End If
End Sub

après le 10 mars ca se bloque ;)

22/03/2015, 20h16
Invité

Bonjour

Toutes ces solutions pouvant être détournés, tu pourrais tout simplement opérer une suppression des codes.

A l'aide voulu (en t'aidant des contributions précédentes) et avec l'aide de ce tuto tu supprimes les modules, comme ce code : http://silkyroad.developpez.com/VBA/...cEditor/#LIV-D

Philippe
22/03/2015, 20h28
patricktoulon

re

Bonjour philippe JOCHMANS cette solution peut etre contourné aussi

bouton exel: option :désactiver les macros :
et enfin ouverture du fichier les macros ne sont pas déclenchées donc le code le code et accessible

c'est d'ailleurs ce que je fait quand je récupère un exemple de fichier sur le forum a fin de ne pas avoir de surprise
22/03/2015, 20h56
Jean-Philippe André

Si on veut vraiment partir sur du délire de code, on peut prévoir une tâche planifiée qui exécutera le code en question pour supprimer le code du module :aie:
22/03/2015, 21h04
patricktoulon

re

RE
cette tache planifiée devra être programmée sur tout les PCS utilisant ce fichier bien entendu :ptdr::ptdr:

et la marmotte .......dans le papier alu :arf::massacre::mouarf3:
22/03/2015, 21h15
patricktoulon

re

Bon allez sans allez chercher midi quatorze heures comme on dit chez nous
il y a une solution qui aurait du vous titiller un tout petit peu

reprenons
nous avons un classeur qui dans un mois sera plus disponible pour l'un mais pour d'autre (si j'ai bien compris )

l'affaire est tout simple

solution 1
je vais simplement indiquer que l'on a la possibilité de de sauver le code des modules dans un Xla
cet XLa est sauver dans le dossier des compléments en général du pc

les fonctions dans ce classeur faisant appel au fonction du xla le tour est jouer un simple "on error resume next " l'ors de cet appel n'engendrera plus d'erreur quand utilisation du fichier par un autre PC

solution 2
on sait tous que de la même manière qu'un classeur peut faire appel a un xla
un autre classeur peut manipuler un deuxième
et bien c'est parfait le code dans le premier qui agit sur ce classeur en question

bon maintenant la marmotte elle va dormir
A méditer

Re
un exemple (exécuter la macro d'un autre classeur )

ouvre un nouveau classeur vierge
ajoute lui un module (Module1)
dans ce module colle lui ce code
Code:

1 2 3 sub MaMacro() msgbox"Bonjour c'est moi mais non!!! c'est pas moi Lol!!!!!!" end sub
sauve ce classeur sous "classeur avec mes macros.xls"

ferme Excel

ouvre un autre classeur vierge
ajoute lui un module
dans ce module colle lui ca
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub test() Dim wbk1, wbk2 Set wbk1 = ThisWorkbook If Dir(ThisWorkbook.Path & "\classeur avec mes macros.xls") <> "" Then Set wbk2 = Workbooks.Open(ThisWorkbook.Path & "\classeur avec mes macros.xls") wbk1.Activate Application.Run "'classeur avec mes macros.xls'!Module1.MaMacro" wbk2.Close End If End Sub
enregistre le sous le nom de "classeur de base .xls " par exemple

les deux classeurs doivent être au même endroit(même dossier ) sinon il te faudra modifier la ligne "WOrkbooks.open "et de la condition sur la fonction (dir)

ferme Excel

maintenant tu a 2 classeurs (classeur de base /classeur avec mes macros)

ouvre le classeur de base et lance la sub test comme tu peut le constater c'est la macro "MaMacro" qui est exécutée

si ce classeur est exécuté sur un autre PC n'ayant pas le classeur "classeur avec mes macros " et bien tintin le haricot ,choux blanc , rien du tout
;)

ceci constituant une 3 eme solutionque je n'avais pas cité plus haut

ca n'est pas exécuter une macro sur un autre classeur mais executer une macro d'un autre classeur !!!

et il y a a une 4 Emme un peu similaire lancer un VBS ou tes macro serait écrites avec un getobject sur l'application Excel et sur le classeur renverrait les effets des fonctions

une sorte de module externe dont tu serait le seul a posséder