outil, macro..

[patrol]

Bonjour a tous

voila le sujet qui me pose probleme ,

et la j'ai encore besoin de votre aide

dans un fichier excel par le verrouillage de toutes les feuilles de mon classeur

j'interdit l'execution des macros donc si on appuis sur les boutons il ne se passe rien

mais ça n'empeche pas que si les autres personnes

vont dans Outils , Macro , macro ....

ils ont acces a ces macros

il y a t'il un moyen de proteger ou que l'acces soit grisé a l'ouveture du classeur

merci

patrol

 

[JNP]

Re : outil, macro..

Bonjour Patrol 🙂,
Oui, c'est possible, mais... ce n'est pas sans risque 🙄...
Jette un œil ICI où Jean-Marie propose une solution pour trouver et inhiber les commandes, mais rappelle-toi que si tu plantes les utilisateurs pour leur autres fichiers, il te voueront une haine tenace 😛...
Bon courage 😎

 

[Pierrot93]

Re : outil, macro..

Bonjour Patrol, JNP

essaye peut être ainsi, si j'ai bien compris... A placer sur la première ligne du module dans lequel se trouve tes macros...

Option Private Module

bon après midi
@+

 

[patrol]

Re : outil, macro..

Bonjour Patrol, JNP

essaye peut être ainsi, si j'ai bien compris... A placer sur la première ligne du module dans lequel se trouve tes macros...

Option Private Module

bon après midi
@+

merci Pierrot93 ça fonctionne trés bien les 2 macro dont je voulais interdire l'acces comme proteger et deproteger toutes les feuilles en meme temps ne sont plus accessible

mais le hic c'est quelles les sont egalement pour moi car

ex : pour deproteger je faisait " CTRL d , mais maintenant avec Option Private Module meme moi je peut plus les deproteger sans enlever Option Private Module , ou alors ceque j'ai rien compris 😕

merci

patrol

 

[Pierrot93]

Re : outil, macro..

Bonjour à tous,

oui, cela inhibe également le raccourci clavier, il faut lancer la procédure via l'éditeur vba ou un bouton... A noter que tu peux rendre actif le bouton à l'ouverture du classeur, en controlant le nom de l'utilisateur windows, code ci-desssous à placer dans le module "thisworkbook". Au préalable mettre la propriéte "Enabled " du bouton sur "false".

Option Explicit
Private Sub Workbook_Open()
If Environ("UserName") = "MonIdWindows" Then Feuil1.CommandButton1.Enabled = True
End Sub

bonne journée
@+