mettre un Mot de passe QCM

alexis1998 · 24 Novembre 2014

bonjour,

bonjour, j'ai tout essayer mes je voudrai mettre un mot de passe sur ce bouton ( image ) pour que quand on appuie dessus il demande un mot de passe et que le qcm ce lance merci

Speel · 24 Novembre 2014

Re : mettre un Mot de passe QCM

Bonjour,
[VBA-*]Boîte de dialogue "mot de passe" ds userform ou InputBox

camarchepas · 25 Novembre 2014

Re : mettre un Mot de passe QCM

Bonsoir Speel, Alexis ,

Il me semble bien qu'il y a un problème dans le comptage des réponses bonnes : les pierres dans l'eau : arrondies

n'est pas pris en compte ,

a voir

alexis1998 · 25 Novembre 2014

Re : mettre un Mot de passe QCM

Speel à dit:
Bonjour,
[VBA-*]Boîte de dialogue "mot de passe" ds userform ou InputBox

je narrive pas j'ai essayer

camarchepas · 25 Novembre 2014

Re : mettre un Mot de passe QCM

Bonsoir

Bon le code est les 4 chiffres de droite de ton speudo

Code:

Sub Depart()
Dim ListeNb As Variant
Dim Mdp As String

'Mot de passe
Mdp = InputBox("Mot de passe", "Saisir le ")
'Si mauvais mot de passe on sort
If Mdp <> "1998" Then Exit Sub

NbQTot = Sheets("QCM").Range("L2")
With Sheets("RESULT")
    .Range("A2:A193,C2:C193").ClearContents
    NbQ = Application.InputBox("NOMBRE DE QUESTIONS" & vbCrLf & "(Maximum " & NbQTot & " )", "QCM", Type:=1)
    If NbQ = 0 Or NbQ > NbQTot Then Exit Sub
        ListeNb = GenQ(NbQ, 1, NbQTot)
        .Range(.Cells(2, 1), .Cells(NbQ + 1, 1)).Value = Application.Transpose(ListeNb)
End With
UserForm1.Show

End Sub

mettre un Mot de passe QCM

alexis1998

XLDnaute Nouveau

Pièces jointes

Speel

XLDnaute Occasionnel

camarchepas

XLDnaute Barbatruc

alexis1998

XLDnaute Nouveau

camarchepas

XLDnaute Barbatruc

Discussions similaires

mettre un Mot de passe QCM

alexis1998

XLDnaute Nouveau

Pièces jointes

Speel

XLDnaute Occasionnel

camarchepas

XLDnaute Barbatruc

alexis1998

XLDnaute Nouveau

camarchepas

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency