Memoriser nom Mdp

[papy 73 ans]

Bonjour à vous tous,
Quitte à paraître ridicule, je vous pose ma question,
A l'ouverture du fichier, un Nom et un Mdp est demandé
Texbox1 : Nom
Texbox2 : Mot de passe
Est-il possible de garder en mémoire le nom saisi en texbox1 afin de pouvoir l'utiliser dans une macro ?
Je ne peux pas pour ce fichier, utiliser l'username.
En vous remerciant.

 

[Dranreb]

Bonsoir.
Il est possible de l'affecter comme référence à un nom dans le classeur par macro.
genre ThisWorkbook.Names.Add "Nom", TextBox1.Text
Et le récupérer plus tard, même après une réinitialisation du projet VBA par MsgBox [Nom]
À tester.

 

[papy 73 ans]

Bonjour Dranreb,
Je te remercie de me répondre, cependant ne connaissant que très très peu le vba, pourrais-tu me donner un exemple.
D'avance merci.

 

[Dranreb]

Faites des essais de ces instructions dans une macro de votre classeur.
Essayez déjà cette macro dans un module standard :

Sub test()
Dim LeNom As String
ThisWorkbook.Names.Add "Nom", "Toto"
LeNom = [Nom]
MsgBox LeNom
End Sub

 

[papy 73 ans]

Re,
le MsgBox affiche bien Toto
j'ai essayer de remplacer
ThisWorkbook.Names.Add "Nom", "Toto"
par
ThisWorkbook.Names.Add "Nom", TextBox1.Text
ça met Erreur d'exécution 424 Objet requis

 

[Dranreb]

Il ne doit surement pas exister de TextBox1 connu du module. Est-ce un Contrôle ActiveX d'une certaine feuille ou une zone de texte de formulaire , ou encore un UserForm affiché lors de l'ouverture du classeur par une Sub Workbook_Open du module ThisWorkbook ?
Ce serait réglé depuis longtemps si vous aviez joint votre classeur.

 

[papy 73 ans]

Re,
Je te met le fichier

 

[Staple1600]

Bonjour le fil, le forum

Une autre voie

Private Sub CommandButton1_Click()
TextBox1.Tag = "toto" 'ici on mémorise le mdp
If TextBox1 = TextBox1.Tag Then
MsgBox "mot de passe correct"
Else
MsgBox "mot de passe incorrect"
End If
End Sub

 

[Dranreb]

Bonjour.
Si l'UserForm reste chargé tant qu'on a besoin de pouvoir récupérer le nom on peut plus simplement l'avoir dans une autre macro par UserForm1.TextBox1.Text
Si on veut pouvoir le retrouver même après une réinitialisation accidentelle du projet VBA mettre à la fin de la Private Sub CommandButton1_Click()
ThisWorkbook.Names.Add "Nom", Me.TextBox1.Text et dans la macro : [Nom]

 

[Lone-wolf]

bonjour à tous

Une autre solution

Private Sub TextBox1_AfterUpdate()
Dim cel As Range
Set cel = Sheets(1).Range("z1")
cel.Value = TextBox1
End Sub

Private Sub UserForm_Initialize()
Dim cel As Range
Set cel = Sheets(1).Range("z1")
TextBox1 = cel.Value
End Sub

Ceci affiche le dernier utilisateur. Si j'ai bien compris bien entendu.

 

[papy 73 ans]

Re,
Je vous remercie de vous pencher sur ma demande et de m'aider à la résoudre, mais je n'y arrive pas.
Je remet le fichier avec plus de renseignements.
Comptant sur votre aide car je suis très loin d'avoir vos connaissances.

 

[Lone-wolf]

Re papy

fais un test avec le fichier. Ecrit le nom et mdp >ferme le classeur puis ouvre-le à nouveau, est-ce que c'est ça que tu cherche à faire?

 

[papy 73 ans]

Re Lone-wolf et merci ,
A priori c'est bien ce que je voudrais faire mais après avoir entrer le mdp j'ai eu ce message :
Instructions ou étiquettes incorrectes entre Select Case et le premièr Case
et le mot en gras est apparemment la cause du problème
ThisWorkbook.Names.Add "Nom", TextBox1.Text

 

[Lone-wolf]

Re

ThisWorkbook.Names.Add "Nom", TextBox1.Text, met-le en commentaire. J'ai eu le même problème.

 

[Dranreb]

Vous ne lisez pas ce que j'écris apparemment.
Pour y accéder ailleurs que dans l'UserForm, à condition que celui ci soit encore chargé, c'est:
ThisWorkbook.Names.Add "Nom", UserForm1.TextBox1.Text
Dans l'UserForm c'est :
ThisWorkbook.Names.Add "Nom", Me.TextBox1.Text