Sujet Précédent Sujet Suivant

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

Résolu/Fermé
Yoshiste Messages postés 11 Date d'inscription mercredi 27 novembre 2013 Statut Membre Dernière intervention 27 juillet 2015 - 5 mars 2015 à 15:02
Yoshiste Messages postés 11 Date d'inscription mercredi 27 novembre 2013 Statut Membre Dernière intervention 27 juillet 2015 - 6 mars 2015 à 17:30
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 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
Modifié par eriiic le 5/03/2015 à 16:32
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 mercredi 27 novembre 2013 Statut Membre Dernière intervention 27 juillet 2015
6 mars 2015 à 13:08
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 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703
6 mars 2015 à 13:51
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 mercredi 27 novembre 2013 Statut Membre Dernière intervention 27 juillet 2015
6 mars 2015 à 17:30
Parfait !!

Merci beaucoup

Problème résolut !
0