Discussion :

[spud96]

Bonjour,

J'ai une application excel utilisé par 10 personnes , je souhaiterai qu'à l'ouverture du fichier une boite de dialogue leur demande de se loguer aver leur ID et leur pass que je stocke aujourd'hui dans une base access.
Pouvez m'aider je ne trouve pas la soluce

[Jean-Philippe André]

Salut,

pour tous les lancements a l'ouverture d'un classeur, tu peux utiliser l'evenement Workbook_Open()

Pour la gestion des logins/mdp, tu peux passer par des userforms ou des inputbox.

As-tu des connaissances en VBA ou pas encore ?

[spud96]

Merci pour votre réponse , j'ai quelques notions VBA mais pas trés évolué .

Je ne sais pas s'il faut que j'utilise un userform ou un inputbox

J'ai une base acess C:/projets.mbd

J'ai une table user avec les champ ID et MDP

Je souhaiterai qu'a l'ouverture de mon fichier excel , une boite de dialogue apparaise avec une liste déroulante pour choisir le ID (relié à ma table user de ma base de donnée) et un champ mot de passe à saisir .

Un bouton valider
Si le mot de passe ne correspond un message d'erreur sinon l'ouverture du fichier .

Pouvez vous m'aider .

Merci

[blaiso]

Bonjour,

Je te conseille de faire fonctionner tout cela sur Excel, dès que ça marchera, tu pourras intégrer la partie Access.

Regardez ceci:
Carnet adresse

Si ça t'inspire, je t'envoie la version où on peut gérer plusieurs utilisateurs. Cela te permettra de faire des adaptations.

[patricktoulon]

bonjour
dans cet exemple deux prenom sont possibles sinon rien et au bout de trois essai le code de deblocage administarteur est demander dans ce cas ici c'est "admin001" a toi de l' adapter ensuite met un mot de passe a ton projet et le tour est joué

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
 
Dim compteur As Long
Private Sub Workbook_Open()
Dim Message, Title, Default, monlogin
compteur = compteur + 1
 
If compteur > 4 Then MsgBox "le nombres d'essai aété depassé":  administrateur: Exit Sub
' Définit le message.
Message = "tapez ici votre login"
Title = "Entrez votre login"    ' Définit le titre.
Default = compteur & "essai"    ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
monlogin = InputBox(Message, Title, Default)
If monlogin = compteur & "essai" Then
Exit Sub
 
ElseIf monlogin = "patrick" Or monlogin = "jean marc" Then
MsgBox "bonjour le login est valide"
'appel a ta macro
 
Else
MsgBox "ce code n'est pas valide"
End If
 
End Sub
Sub administrateur()
 
Dim Message, Title, Default, monlogin
Message = "tapez ici le code de déblocage"
Title = "Entrez votre code admin"    ' Définit le titre.
Default = "app bloquée entrez le code de deblocage"    ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
monlogin = InputBox(Message, Title, Default)
If monlogin = "admin001" Then
compteur = 0
'ta macro ici
End If
End Sub