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

Résolu
Yoshiste Messages postés 11 Statut Membre -  
Yoshiste Messages postés 11 Statut Membre -
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. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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
  2. Yoshiste Messages postés 11 Statut Membre
     
    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
  3. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    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 Messages postés 11 Statut Membre
       
      Parfait !!

      Merci beaucoup

      Problème résolut !
      0