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

Résolu
Yoshiste -  
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

3 réponses

  1.  via55
    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
    1. Yoshiste Auteur
      Parfait !!

      Merci beaucoup

      Problème résolut !
      0
  2. Yoshiste Auteur
    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
    1. eriiic Contributeur
      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