Blocage de macro
- Initiateur de la discussion alcalzone
- Date de début
Re : Blocage de macro
Bonjour,
Il n'y a rien de prévu pour cela donc il faut bricoler un peu.
Dans un module standard:
Dans le module ThisWorkBook:
Ligne à insérer au début de toute tes macros:
Les macros seront inopérantes après le 1er janvier 2008.
Cordialement,
Tirex28/
Bonjour,
Il n'y a rien de prévu pour cela donc il faut bricoler un peu.
Dans un module standard:
Code:
Public EnableMacros As BooleanDans le module ThisWorkBook:
Code:
Private Const MaxDate As Date = #1/1/2008#
Private Sub Workbook_Open()
If Now < MaxDate Then EnableMacros = True
End SubLigne à insérer au début de toute tes macros:
Code:
If EnableMacros = False Then Exit SubLes macros seront inopérantes après le 1er janvier 2008.
Cordialement,
Tirex28/
Staple1600
XLDnaute Barbatruc
Re : Blocage de macro
Bonsoir alcalzone, tirex28, le forum
Intéressant, tirex28
Mais comment faire si le classeur est ouvert sans activer les macros?
Bonsoir alcalzone, tirex28, le forum
Intéressant, tirex28
Mais comment faire si le classeur est ouvert sans activer les macros?
Re : Blocage de macro
Bonsoir alcalzone, tirex28, re le forum,
La question que je me pose : Pourquoi créer un fichier, souvent pour nous même et nos collègues, pour que, rapidement, il devienne inutilisable ?
Je dois avouer que je ne comprends pas tout....
Donc, à quoi bon le créer...?
Bonne soirée en attendant une petite réponse...
Jean-Pierre
Bonsoir alcalzone, tirex28, re le forum,
La question que je me pose : Pourquoi créer un fichier, souvent pour nous même et nos collègues, pour que, rapidement, il devienne inutilisable ?
Je dois avouer que je ne comprends pas tout....
Donc, à quoi bon le créer...?
Bonne soirée en attendant une petite réponse...
Jean-Pierre
JCGL
XLDnaute Barbatruc
Re : Blocage de macro
Bonjour à tous,
Salut Staple,
Salut JP
,
Tout le monde n'est pas aussi partageur que toi mon bon JP et peut-être alcalzone assure t'il ses arrières en cas de débauchage...
Bonne fin de semaine sous le soleil (ici très à l'Est...)
Bonjour à tous,
Salut Staple,
Salut JP
,Tout le monde n'est pas aussi partageur que toi mon bon JP et peut-être alcalzone assure t'il ses arrières en cas de débauchage...
Bonne fin de semaine sous le soleil (ici très à l'Est...)
Re : Blocage de macro
Bonjour,
@staple1600, si le fichier est ouvert sans activer les macros alors le but est atteint...
@jeanpierre, pour une version de démonstration peut etre? Quoiqu'il en soit n'oublions pas que ce genre d'inhibition peut tres facilement etre contournée, ne serait ce qu'en modifiant la date du systeme.
Cordialement,
Tirex28/
Bonjour,
@staple1600, si le fichier est ouvert sans activer les macros alors le but est atteint...
@jeanpierre, pour une version de démonstration peut etre? Quoiqu'il en soit n'oublions pas que ce genre d'inhibition peut tres facilement etre contournée, ne serait ce qu'en modifiant la date du systeme.
Cordialement,
Tirex28/
Re : Blocage de macro
Re,
Salut Jean-Claude,
Oui, tu as peut-être raison, mais par expérience, j'en ai vu de ces fichiers où il n'y avait même pas une fonction "difficile", plutôt du +, + -, même pas une SOMME, donc, je continue de ne pas comprendre.... Merci Jc pour l'âge , sont dur à l'Est....
C'est mon sentiment, et sauf plus informé, je le partage. Ce que j'ai pu voir, c'est... : votre fichier n'est plus opérationnel, Merci de m'adresser xxy Euros pour recevoir la nouvelle version....
Pour te dire, en retraite depuis plus de 2 mois, j'ai quand même essayé de suivre, et j'ai adressé cet après-midi (à peu, il est vrai (2 clients)) une nouvelle version de mes petites applications en fonction des nouvelles règles fiscales et sociales. Elles sont protégées, bien sûr....
C'était ma denière apparition depuis le bureau et demain, depuis ici je ferais, si possible, le même chose. Alors les arrières..... ????
Allez, Jean-Claude, bon week-end à toi et à tous.
Jean-Pieerre
Re,
Salut Jean-Claude,
Oui, tu as peut-être raison, mais par expérience, j'en ai vu de ces fichiers où il n'y avait même pas une fonction "difficile", plutôt du +, + -, même pas une SOMME, donc, je continue de ne pas comprendre.... Merci Jc pour l'âge
, sont dur à l'Est....C'est mon sentiment, et sauf plus informé, je le partage. Ce que j'ai pu voir, c'est... : votre fichier n'est plus opérationnel, Merci de m'adresser xxy Euros pour recevoir la nouvelle version....
Pour te dire, en retraite depuis plus de 2 mois, j'ai quand même essayé de suivre, et j'ai adressé cet après-midi (à peu, il est vrai (2 clients)) une nouvelle version de mes petites applications en fonction des nouvelles règles fiscales et sociales. Elles sont protégées, bien sûr....
C'était ma denière apparition depuis le bureau et demain, depuis ici je ferais, si possible, le même chose. Alors les arrières..... ????
Allez, Jean-Claude, bon week-end à toi et à tous.
Jean-Pieerre
Staple1600
XLDnaute Barbatruc
Re : Blocage de macro
Re à tous et toutes
->Tirex28
Si le fichier est ouvert sans activer les macros
Sub Workbook_Open() ne s'éxécute pas non?
Re à tous et toutes
->Tirex28
Si le fichier est ouvert sans activer les macros
Sub Workbook_Open() ne s'éxécute pas non?
Re : Blocage de macro
Si le fichier est ouvert sans activer les macros
Sub Workbook_Open() ne s'éxécute pas non?
Entierement d'accord, les macros sont donc bloquées, non?
Cordialement,
Tirex28/
Si le fichier est ouvert sans activer les macros
Sub Workbook_Open() ne s'éxécute pas non?
Entierement d'accord, les macros sont donc bloquées, non?
Cordialement,
Tirex28/
Staple1600
XLDnaute Barbatruc
Re : Blocage de macro
Re
Oui mais donc cette condition
n'est jamais atteinte dans ce cas
If Now < MaxDate
Si l'utilisateur final ouvre sans activer les macros
ALT+F11
commente le code Workbook_Open
Il peut utiliser le classeur en activant les macros cette fois.
Si le projet VBA a un mot de passe et que l'utilisateur
arpente ce forum depuis longtemps
le mot passe ne sera pas obstacle.
Dans l'absolu, il faudrait que l'utilisateur soit néophyte
que le niveau de sécurité des macros soit bas
Est-le cas pour alcalzone?
Re
Oui mais donc cette condition
n'est jamais atteinte dans ce cas
If Now < MaxDate
Si l'utilisateur final ouvre sans activer les macros
ALT+F11
commente le code Workbook_Open
Il peut utiliser le classeur en activant les macros cette fois.
Si le projet VBA a un mot de passe et que l'utilisateur
arpente ce forum depuis longtemps
le mot passe ne sera pas obstacle.
Dans l'absolu, il faudrait que l'utilisateur soit néophyte
que le niveau de sécurité des macros soit bas
Est-le cas pour alcalzone?
Re : Blocage de macro
Bonsoir,
Toujours d'accord avec toi.
Je me cite "ce genre d'inhibition peut tres facilement etre contournée".
Les points faibles d'une application Excel Vba sont toujours les memes depuis des lustres: Activation des macros, protection du code.
Faut faire avec... ou sans.
Cordialement,
Tirex28/
Bonsoir,
Toujours d'accord avec toi.
Je me cite "ce genre d'inhibition peut tres facilement etre contournée".
Les points faibles d'une application Excel Vba sont toujours les memes depuis des lustres: Activation des macros, protection du code.
Faut faire avec... ou sans.
Cordialement,
Tirex28/
Staple1600
XLDnaute Barbatruc
Re : Blocage de macro
Re
Je comprends mieux...
A ce sujet, protéger son vba dans un cadre professionnel
Il me semble (mais n'en suis pas sur) que tout
fichier créé dans une entreprise appartient à cette entreprise.
Re
Je comprends mieux...
A ce sujet, protéger son vba dans un cadre professionnel
Il me semble (mais n'en suis pas sur) que tout
fichier créé dans une entreprise appartient à cette entreprise.
Dernière édition:
Re : Blocage de macro
Bonjour à tous et merci pour ta réponse tirex28.
Sur mon fichier j'ai le code suivant:
Sub Formeautomatique1_QuandClic()
If EnableMacros = False Then Exit Sub
UserForm1.Show
End Sub
Dans ton exemple, le code est inutilisable à partir du 01/01/2008. j'ai gardé la même date.
En théorie, si cette date n'est pas atteinte, la macro devrait m'afficher Userform1 mais ça n'est pas le cas.
Avez vous une explication?
Merci d'avance
Bonjour à tous et merci pour ta réponse tirex28.
Sur mon fichier j'ai le code suivant:
Sub Formeautomatique1_QuandClic()
If EnableMacros = False Then Exit Sub
UserForm1.Show
End Sub
Dans ton exemple, le code est inutilisable à partir du 01/01/2008. j'ai gardé la même date.
En théorie, si cette date n'est pas atteinte, la macro devrait m'afficher Userform1 mais ça n'est pas le cas.
Avez vous une explication?
Merci d'avance
Re : Blocage de macro
Bonjour,
Je dirais que EnableMacros étant False par défaut, si la valeur True ne lui est pas affecté avant l'appel de ta macro, celle-ci ne peut s'executer.
Si ton fichier à été ouvert par un autre fichier alors que les évènements étaient désactivés par une instruction Application.EnableEvents=False, la procédure Workbook_Open chargé d'initialiser EnableMacros à True n'a pas été exécuté.
Autre piste, est ce qu'une réinitialisation des variables s'est produite, par exemple suite à une instruction End ou à un passage en mode création?
Cordialement,
Tirex28/
Bonjour,
Je dirais que EnableMacros étant False par défaut, si la valeur True ne lui est pas affecté avant l'appel de ta macro, celle-ci ne peut s'executer.
Si ton fichier à été ouvert par un autre fichier alors que les évènements étaient désactivés par une instruction Application.EnableEvents=False, la procédure Workbook_Open chargé d'initialiser EnableMacros à True n'a pas été exécuté.
Autre piste, est ce qu'une réinitialisation des variables s'est produite, par exemple suite à une instruction End ou à un passage en mode création?
Cordialement,
Tirex28/
Discussions similaires
- Question
