Lancement d'une macro par touches

[papy10vn]

Bonjour,
Dans mon projet, j'ai des macros qui s'active par un bouton dans une feuille, d'autres par des touches.

Sub Protection ()
' Cette macro se lance par Ctrl+Maj + P
Worksheets("Feuil1"). Protect Password:="Feuille1"
Worksheets("Feuil2"). Protect Password:="Feuille2"
End Sub

Sub Deprotege ()
' Cette macro se lance par Ctl + Maj +D
Worksheets("Feuil1"). Unprotect Password:="Feuille1"
Worksheets("Feuil2"). Unprotect Password:="Feuille2"
En Sub

Pour cacher toutes les macros, afin d'éviter toutes modifications intempestives, je les ai débutées par "Option Private Module".

Mais alors les macros de "Protection" et "Deprotege" ne s'active plus avec des touches. Je reçois un Beep lorsque j'essaye de les lancer?

C'est embêtant. Peut-on faire autrement pour combiner l'activation par touches + les rendre invisibles?

Merci de votre secours.

 

[Cousinhub]

Re : Lancement d'une macro par touches

Bonsoir,
Personnellement, si je ne veux pas qu'une macro se déroule à l'insu de mon plein gré, un bouton dans une Barre d'Outils Personnalisée, BO qui s'affiche à l'ouverture du fichier en fonction du Mot de Passe utilisé à l'ouverture.
Si pas de MdP pour l'ouverture, après appui sur le bouton déclenchant la macro, affichage d'un userform demandant un Mdp, et en fonction de la réponse, déroulement de la procédure ou pas.
La procédure étant évidemment masquée et protégée par MdP.
Une recherche sur le forum devrait te donner toutes ces possibilités.
Bonne soirée

 

[tirex28]

Re : Lancement d'une macro par touches

Bonjour,

Deux solutions pour masquer la macro:
a)Option Private Module
b)Ajouter un argument optionel

Sub Protection (Optional PseudoArgument)
' Cette macro se lance par Ctrl+Maj + P
Worksheets("Feuil1"). Protect Password:="Feuille1"
Worksheets("Feuil2"). Protect Password:="Feuille2"
End Sub

Mais dans les deux cas les raccourcis définis via Alt+F8>Options deviennent inopérants.

Pour les rétablir exécuter ceci à l'ouverture du classeur:

Sub DefinirRaccourci()
    Application.OnKey "^+p", "Protection" '(^ => Ctrl, + => Maj)
End Sub

Cordialement,

Tirex28/