mettre un Mot de passe QCM

[alexis1998]

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]

Re : mettre un Mot de passe QCM

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

 

[camarchepas]

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]

Re : mettre un Mot de passe QCM

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

je narrive pas j'ai essayer

 

[camarchepas]

Re : mettre un Mot de passe QCM

Bonsoir

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

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