OVH Cloud OVH Cloud

Ouverture classeur si macro On

1 réponse
Avatar
YANN24
Bonjour,
j'ai trouvé sur le site de frédéric sigonneau, la macro suivante, mais je ne
sais pas où mettre quoi dans mon VBA :

Attribute VB_Name = "ClasseurInvisibleSansMacrosOn"

'empêcher l'affichage d'un classeur s'il est ouvert alors que l'exécution
'des macros est désactivée dans les options de sécurité
'une astuce de "arno", mpep
'dans l'événement BeforeSave ou BeforeClose du classeur,
'inclure cette instruction :

ThisWorkbook.IsAddin = True

'dans l'événement Open du classeur :

ThisWorkbook.IsAddin = False

'ainsi, si on ouvre le classeur alors que les options de sécurité
'bloquent l'exécution des macros, le classeur reste invisible...
'(pour empêcher le contournement de cette astuce, protéger le
'VBAProject du classeur)

Merci beaucoup. YANN

1 réponse

Avatar
anomymousA
re,

ben tu suis ce qui est dit. Dans le module thisworkbook, metter dans la
procédure
workbook_BeforeSave ou workbook_BeforeClose ,ThisWorkbook.IsAddin = True et
dans workbook_Open
ThisWorkbook.IsAddin = false

Est-ce que tu saisis ce qui va se produire dans le cas de l'activation et de
la cas de non activation des macros ?
Dans le second cas, je te rappelle qu'un utilisateur moyen ne pourra pas
voir ton fichier mais un "averti" peut passer par la porte de derrière.

Par ailleurs, je t'ai fait une réponse sur l'autre fil que tu avais initié
hier.

A+


Bonjour,
j'ai trouvé sur le site de frédéric sigonneau, la macro suivante, mais je ne
sais pas où mettre quoi dans mon VBA :

Attribute VB_Name = "ClasseurInvisibleSansMacrosOn"

'empêcher l'affichage d'un classeur s'il est ouvert alors que l'exécution
'des macros est désactivée dans les options de sécurité
'une astuce de "arno", mpep
'dans l'événement BeforeSave ou BeforeClose du classeur,
'inclure cette instruction :

ThisWorkbook.IsAddin = True

'dans l'événement Open du classeur :

ThisWorkbook.IsAddin = False

'ainsi, si on ouvre le classeur alors que les options de sécurité
'bloquent l'exécution des macros, le classeur reste invisible...
'(pour empêcher le contournement de cette astuce, protéger le
'VBAProject du classeur)

Merci beaucoup. YANN