Comment crée un code de sécurité au lancement d'une Macro Résolu/Fermé

Question

Bonjour, 

Alors je préviens tout de suite, je suis débutant en la matière et donc pour vous dire la fonction Macro ne viens pas de moi ^^

J'ai un tableau de noms, et un bouton qui fait office de mélange aléatoire. Suite a ce mélange j'ai construit tout un système de gagnant perdant (c'est pour du sport) automatiquement quand je mettrais mes points !

Sauf que si par inadvertance je reclique sur cette fonction, je suis mort car tout bouge. donc j'aimerais juste protéger ce bouton par un code pour plus de sécurité. faisable ? :) 

Merci

Je met le fichier en PJ, c'est sur la feuille Enfant D

	https://www.cjoint.com/?3CfpnXs9ciz



Configuration: Windows 7 / Firefox 35.0

eriiic · Answer

Bonjour,

Une confirmation te suffit ?
Si oui ajouter au début :
If MsgBox("Confirmez-vous ?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
eric 
 
En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

Yoshiste · Answer

Bonjour, 

Merci de votre réponse, oui c'est ça que je recherche ! 

Pour information, existe-t'il un code de sécurité ?

Bonne journée

via55 · Answer

Bonjour si tu veux avoir un code à entrer pour lancer la macro

Au début de la macro test, au lieu d'un message de confirmation tu mets ces 3 lignes
code = "ABCD12" 'Remplacer ABCD12 entre les guillemets par le code de ton choix
a = InputBox("Entrer code")
If a <> code Then MsgBox ("Code erronné"): Exit Sub 

Cdlmnt