Validation MDP via Textbox

Bonjour à vous tous,

J’ai trouvé sur site un petit fichier « User/MDP » et j’en remercié l’auteur.

Je souhaite le modifier, à savoir :

Je souhaite plutôt rentrer le mot de passe dans le textbox « TxtMotDePasse » en premier et valider ensuite rendre visible les autres textbox (userform1)

• Textbox1 = affichage automatique de l’user lier au mot de passe
• Textbox2=pppppp (ok fait)
• Textbox3 = date aujourd’hui (ok fait).

Par avance merci pour vos contributions

Farid

Bonjour,

Si j'ai bien compris :

Private Sub CommandButton1_Click()
With Worksheets("Mot de Passe")
    L = .Columns(2).Find(Me.TxtMotDePasse).Row
    Me.User = .Cells(L, 1)
End With
End Sub

Private Sub UserForm_Initialize()
Me.TextBox3 = Date
End Sub

Et le fichier qui va bien avec.

Si ça ne correspond pas merci de bien préciser le besoin.

PS : J'ai modifié le format de la colonne des mdp. Je ne suis parti du principe qu'il ne pouvait pas y avoir de mots de passe en doublon.

Cdlt,

Bonjour Ergotamine,

merci pour votre implication , votre exemple fonctionne , sauf lorsque l'userform1 est ouvert , il faudrait que tout les textbox soient false et une fois le mot de passe qui correspond a la liste est valider, les textbox passe en true sauf évidement TxtMotDePasse qui reste toujours visible et, si le mot de passe ne correspond pas a la liste , avoir un message "Mot de passe inconnu!" , car je viens de le tester avec 30 et j'ai un débogage.

par avance merci

Bonjour,

En précisant bien le besoin c'est mieux merci ! Voilà avec le code corrigé :

Private Sub CommandButton1_Click()
Dim L As Object
With Worksheets("Mot de Passe")
    Set L = .Columns(2).Find(Me.TxtMotDePasse)
End With
If L Is Nothing Then
    MsgBox "Mot de passe inconnu!", vbCritical
    Else
    For Each TXT In Me.Controls
        If TypeName(TXT) = "TextBox" Then TXT.Visible = True
    Next TXT
    Me.User = Worksheets("Mot de Passe").Cells(L.Row, 1)
End If
End Sub

Private Sub UserForm_Initialize()
For Each TXT In Me.Controls
    If TypeName(TXT) = "TextBox" And TXT.Name <> "TxtMotDePasse" Then TXT.Visible = False
Next TXT
Me.TextBox3 = Date
End Sub

Et le fichier qui va bien.

Merci de passer le sujet en résolu si la réponse vous semble adaptée.

Cdlt,

Merci beaucoup, c'est nickel.

Bonne journée

Oups , je reviens vers toi car je viens a l'instant de m'apercevoir lorsque je clic sur le bouton ok sans MDP , les textbox apparaissent vide mais elle apparaissent. Est possible tant que le MDP n'est informé que rien ne se passe voir même un message 'Veuillez saisir le mot de passe' ?

Désolé de t'embête

Merci, par avance

Bonjour,

Il suffit d'ajouter une condition sur le contenu de TxtMotDePasse :

Private Sub CommandButton1_Click()
Dim L As Object
With Worksheets("Mot de Passe")
    Set L = .Columns(2).Find(Me.TxtMotDePasse)
End With
If L Is Nothing Or Me.TxtMotDePasse = "" Then
    MsgBox "Mot de passe inconnu!", vbCritical
    Else
    For Each TXT In Me.Controls
        If TypeName(TXT) = "TextBox" Then TXT.Visible = True
    Next TXT
    Me.User = Worksheets("Mot de Passe").Cells(L.Row, 1)
End If
End Sub

Cdlt,

bonjour Ergotamine

merci beaucoup pour ton aide .

a bientôt