Discussion :

[karim1998]

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 :-)

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ceci dit, elle ne résistera pas à quelqu'un qui connaît bien le VBA.

[karim1998]

Parfait ! Merci beaucoup!!! je vais essayer ça ! :-)
Je pensais mettre également un mot de passe afin que personne ne puisse la modifier ...

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Const DateLimite = DateSerial(2015,3,31)

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If Date>DateLimite Then
...

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Const DateLimite = DateSerial(2015, 3, 1)

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[Jean-Philippe André]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Const DateLimite = DateSerial(2015, 3, 1)

Exact,
du coup un direct

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Const DateLimite = #03/31/2015#

[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.

[patricktoulon]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[patricktoulon]

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

[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

[patricktoulon]

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

et la marmotte .......dans le papier alu

[patricktoulon]

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

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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