Discussion :

[kedas]

Bonjour a tous

j'ai créer un userform pour saisie de mot de passe avec 2 boutons de choix entre invité et administrateur. Comme l'indique l'image ci-dessous :



- si le bouton invité est choisi, alors l'action sur valider désactive tous les boutons de commande du classeur.
- si le bouton administrateur est choisi et les zones de textes (login et password) correctement renseignés, alors l'action sur valider active tous les boutons de commande du classeur. si le mot de passe est incorrect :
message " veuillez entrez votre mot de passe ou entrez comme invité"

je serais vraiment très ravis d'avoir vos conseils et astuces

je galère atrocement.

Je serais une fois de plus très heureux d'avoir votre coup de pouce.

Merci encore de m'aider.

[zazaraignée]

veuillez entrez votre mot de passe ou entrez comme invité

Un simple "Mot de passe incorect" t'éviterait d'avoir à réviser tes conjugaisons.

Si Alain a supprimé ton message précédent, il devait y avoir une raison. Je crois que tu voudrais qu'on fasse le travail à ta place. Si tu montrais ton code à l'endroit où il y a une erreur avec description du message d'erreur et tout l'tintouin, nous serions plus en mesure de t'aider. Mais n'attends pas qu'on ponde le code pour toi.

[zazaraignée]

Je réitère ma demande :
Montre nous le bout de code où tu bloques et on pourra t'aider.

Et plus la peine de m'écrire sur mon MP, je ne répondrai pas.

[kedas]

Salut Isabelle
voici un bout de code qui comme vous pouvez le constater ne rempli pas les exigences que j'ai citer plus haut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Annuler_Click()
    Unload Me
End Sub
 
Private Sub Ok_Click()
    If button2 = True And TextBox2 = kedas And Me.Passe = "synthe" Then
        Unload Me
    End If
    Me.Passe = ""
End Sub
 
Private Sub OptionButton1_Click()
If Button1 = True Then
 
End Sub
 
 
Private Sub UserForm_Initialize()
    Me.Passe.PasswordChar = "*"
End Sub

Merci de votre coup de pouce et de votre invitation a plus de recherche
Merci encore

[zazaraignée]

Pour commencer, je ne vois nulle part le code pour fermer le classeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Close

qui devrait se trouver dans le code du bouton Annuler et dans le code du bouton OK lorsque les conditions ne sont pas remplies (la partie Else du bloc If).

[kedas]

salut

merci pour la proposition mais je ne désire pas fermé le classeur si le mot de passe est incorrect mais tout de même, afficher un MsgBox qui demande d'accéder au classeur comme "Invité" à travers l'optionButton (invité) de l'userform motdepasse. Et dans ce cas, les boutons de commande sont inactifs.