Mot de passe après des optionbutton

Version imprimable

29/07/2013, 10h06
Eleanor

Mot de passe après des optionbutton

Bonjour à toutes et à tous,

Voilà j'aimerai savoir s'il était possible de créer un mot de passe après des optionbutton.

Je m'explique : j'ai des optionbutton avec différentes matières(maths, espagnol, allemand,...). J'aimerai associer un mot de passe à chaque choix, et quand une optionbutton est choisie, qu'une fenêtre apparaisse avec la demande du mot de passe, pour faire une vérification.
Si optionbutton et mot de passe concordent : ok
sinon : retour à l'userform des optionbuttons

Merci d'avance pour votre aide
29/07/2013, 11h40
jijie

vite fait, mais voila!!

jijie
29/07/2013, 14h00
Eleanor

Peux-tu me l'envoyer en .zip s'il te plait éventuellement, je n'arrive pas à l'ouvrir.

Merci d'avance
29/07/2013, 14h23
jijie

voici!
29/07/2013, 15h20
Eleanor

Merci pour ta rapidité.

Le seul souci est que j'aimerai mettre un mot de passe différent à chaque choix et non le même.

Merci d'avance et encore pour ton aide

alors ds module1 tu ajoute :

Code:

1
2
3
 
 
Public CoDe As Variant

ds cd admin tu remplace:

Code:

1
2
3
4
 
If b = "111" Then ' autorise
'par
If b = CoDe Then ' autorise

ds userform1 tu modifie

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub OptionButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Label1 <> "Ok" Then
CoDe = "111"
CdAdmin.Show
End If
End Sub
 
Private Sub OptionButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Label1 <> "Ok" Then
CoDe = "123"
CdAdmin.Show
End If
End Sub

Pardon plutôt ça :

ds userform1:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
 
Private Sub OptionButton1_Change()
Label1 = ""
End Sub
 
Private Sub OptionButton2_Change()
Label1 = ""
 
End Sub
 
 
Private Sub OptionButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Label1 <> "Ok111" Then
CoDe = "111"
CdAdmin.Show
End If
End Sub
 
Private Sub OptionButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Label1 <> "Ok123" Then
CoDe = "123"
CdAdmin.Show
End If
End Sub
 
Private Sub OptionButton1_Enter()
e = OptionButton1
 
End Sub
 
Private Sub OptionButton2_Enter()
e = OptionButton2
 
End Sub

et dans CdAdmin:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()
Dim b As String
Dim c As Variant
b = TextBox1
 
If b = CoDe Then ' autorise
 
Application.ScreenUpdating = False 'désactive la mise à jour de l'écran
Label1 = "Votre code est bon !"
Application.Wait Now + TimeValue("00:00:02")
UserForm1.Label1 = "Ok" & CoDe
Unload CdAdmin
' ici on entre la commande pour continuer!
 
Else
Label1 = "Pfff!! Votre code est erroné !"
Application.Wait Now + TimeValue("00:00:03")
TextBox1 = ""
Label1 = "Votre code Admin ?"
 
End If
End Sub

garde la variable ds le module1 du message précédent