Comment crée un code de sécurité au lancement d'une Macro

Résolu
Yoshiste Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -  
Yoshiste Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -
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



A voir également:

3 réponses

Réponse 1 / 3
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
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
0
Réponse 2 / 3
Yoshiste Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Réponse 3 / 3
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
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

0
Yoshiste Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
Parfait !!

Merci beaucoup

Problème résolut !
0