Multi Utilisateur.

[whooki]

Bonjour à tous,
Je souhaiterais avoir un USF avec le choix des utilisateurs avec les différents de mots de passe associés.
Merci encore de votre aide.

 

[MJ13]

Re : Multi Utilisateur.

Bonjour,

Dans un premier temps pour afficher le USF:
écrit

Sub Bouton1_Clic()
UserForm1.Show
End Sub

 

[MJ13]

Re : Multi Utilisateur.

Re bonjour,

Voici avec l'aide d'Excel ce que j'ai pu faire (quelques touches F1 sur les mots clé):

 

[whooki]

Re : Multi Utilisateur.

Merci de ton aide MJ13, mais en faite ce n'est pas trop ce que je souhaite.
Je ne désires pas voir le mot de passe dans le userform, je souhaite que ce userform s'affiche à l'ouverture et que je puisse saisir le mot de passe dedans pour que çà m'active le classeur.

Merci encore.

 

[MJ13]

Re : Multi Utilisateur.

Re bonjour,

La je passe la main à toute personne désireuse de te venir en aide.

En fait c'était surtout pour voir si je pouvais y arriver (cela fait pas mal de temps que je n'ai pas fait d'USF).

Par contre j'ai pas tout compris.

 

[whooki]

Re : Multi Utilisateur.

Merci quand même de ton aide...

 

[Excel_lent]

Re : Multi Utilisateur.

Salut,

Tu peux peut-être t'inspirer de cela (si j'ai compris ta demande).

@+

 

[Toine]

Re : Multi Utilisateur.

bonjour
si tu veux une sécurité toute relative je peut t'aider si tu veux un truc plus costau non dit le si sa t'interesse quand même

 

[whooki]

Re : Multi Utilisateur.

Oui c'est exactement ce que je recherche, cependant quel est le mot de passe pour cet exemple?

Merci encore.

 

[Excel_lent]

Re : Multi Utilisateur.

Bonjour à tous,

Si tu parles de mon fichier, les mots de passe sont définis dans la macro (11, 12, 13 ...)

Private Sub CommandButton1_Click()
Do Until compt = 3
    If ComboBox1.Value = "A" And TextBox1.Value = "11" Then GoTo action
    If ComboBox1.Value = "B" And TextBox1.Value = "12" Then GoTo action
    If ComboBox1.Value = "C" And TextBox1.Value = "13" Then GoTo action
    If ComboBox1.Value = "D" And TextBox1.Value = "14" Then GoTo action
...

J'ai mis les noms dans les cellules A100, A101, ... de la feuille d'accueil.

Remarque : Ctrl + Pause arrête la procédure et ouvre l'éditeur VB !

@+