Discussion :

[revemane]

bonsoir le forum

je souhaiterai faire un formulaire d'identification pour l'ouverture d'un fichier excel

de type un txtbox login et un txtbox password et un bouton valider

le probleme que je rencontre c'est pour y mettre plusieurs utilisateur et password
merci pour votre aide

[Krovax]

Bonjour,


Une solution (a modifier légèrement sans doute)

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
Dim flag as boolean
dim i as integer
i=3
flag=false
 
do
   Select case TextBoxUsername
   Case "User1"
      if TextBoxPassword="MdPUser1" then flag=true
   Case "User2"
      if TextBoxPassword="MdPUser2" then flag=true
   Case "User3"
      if TextBoxPassword="MdPUser3" then flag=true
      .....
      ....
   end select
   If not flag then
      i=i-1
      MsgBox "Mot de passe erroné." & Chr(13) & "Reste " &  i & " essais.", vbExclamation+ vbOKOnly
   end if
loop until flag or i=0
 
if not flag then 
   msgbox "Vous n'avez pas accès a ce document." ,  vbCritical +vbOkOnly
thisworkbook.close false
end if