ouverture aver mot de passe (plusieurs utilisateur)
2 réponses
Daniel Pelletier
Bonsoir à tous
Je voudrait que cette useform apparait a l'ouverture et
ferme le fichier ci le mot passe n'est pas bon.
Ou est mon erreur??
Dans ThisWorkbook
Private Sub Workbook_Open()
Test_Click
End Sub
Sub Test_Click()
mot_de_passe.Show
End Sub
voici le code de ma useform
Private Sub Ok_Btn_Click()
If ID_Util = Empty Then End
' Recherche du profil
Set Rech = Range("Users").Find(ID_Util, LookIn:=xlValues)
If Not Rech Is Nothing Then
' Contrôle du mot de passe
If Pwd_Util = Rech.Cells(1, 2) Then
' Si Ok
ReplaceFenêtre
End
Else
' Mot de passe invalide
MsgBox ("Mot de passe invalide")
' End
ThisWorkbook.Close SaveChanges:=False
End If
Else
' Utilisateur inconnu
MsgBox ("Utilisateur inconnu")
' End
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Daniel,
si dans le tableau les ID et mot de passe correspondant sont sur la même ligne exemple Rech = B2 Pwd_Util = C2
il faut modifier cette ligne If Pwd_Util = Rech.Cells(1, 2) Then par If Pwd_Util = Rech.Offset(0, 1) Then
isabelle
Bonsoir à tous Je voudrait que cette useform apparait a l'ouverture et ferme le fichier ci le mot passe n'est pas bon. Ou est mon erreur??
Dans ThisWorkbook Private Sub Workbook_Open() Test_Click End Sub Sub Test_Click() mot_de_passe.Show End Sub
voici le code de ma useform Private Sub Ok_Btn_Click() If ID_Util = Empty Then End ' Recherche du profil Set Rech = Range("Users").Find(ID_Util, LookIn:=xlValues) If Not Rech Is Nothing Then ' Contrôle du mot de passe If Pwd_Util = Rech.Cells(1, 2) Then ' Si Ok ReplaceFenêtre End Else ' Mot de passe invalide MsgBox ("Mot de passe invalide") ' End ThisWorkbook.Close SaveChanges:úlse End If Else ' Utilisateur inconnu MsgBox ("Utilisateur inconnu") ' End End If End Sub
bonjour Daniel,
si dans le tableau les ID et mot de passe correspondant sont sur la même
ligne
exemple Rech = B2 Pwd_Util = C2
il faut modifier cette ligne
If Pwd_Util = Rech.Cells(1, 2) Then
par
If Pwd_Util = Rech.Offset(0, 1) Then
isabelle
Bonsoir à tous
Je voudrait que cette useform apparait a l'ouverture et
ferme le fichier ci le mot passe n'est pas bon.
Ou est mon erreur??
Dans ThisWorkbook
Private Sub Workbook_Open()
Test_Click
End Sub
Sub Test_Click()
mot_de_passe.Show
End Sub
voici le code de ma useform
Private Sub Ok_Btn_Click()
If ID_Util = Empty Then End
' Recherche du profil
Set Rech = Range("Users").Find(ID_Util, LookIn:=xlValues)
If Not Rech Is Nothing Then
' Contrôle du mot de passe
If Pwd_Util = Rech.Cells(1, 2) Then
' Si Ok
ReplaceFenêtre
End
Else
' Mot de passe invalide
MsgBox ("Mot de passe invalide")
' End
ThisWorkbook.Close SaveChanges:úlse
End If
Else
' Utilisateur inconnu
MsgBox ("Utilisateur inconnu")
' End
End If
End Sub
si dans le tableau les ID et mot de passe correspondant sont sur la même ligne exemple Rech = B2 Pwd_Util = C2
il faut modifier cette ligne If Pwd_Util = Rech.Cells(1, 2) Then par If Pwd_Util = Rech.Offset(0, 1) Then
isabelle
Bonsoir à tous Je voudrait que cette useform apparait a l'ouverture et ferme le fichier ci le mot passe n'est pas bon. Ou est mon erreur??
Dans ThisWorkbook Private Sub Workbook_Open() Test_Click End Sub Sub Test_Click() mot_de_passe.Show End Sub
voici le code de ma useform Private Sub Ok_Btn_Click() If ID_Util = Empty Then End ' Recherche du profil Set Rech = Range("Users").Find(ID_Util, LookIn:=xlValues) If Not Rech Is Nothing Then ' Contrôle du mot de passe If Pwd_Util = Rech.Cells(1, 2) Then ' Si Ok ReplaceFenêtre End Else ' Mot de passe invalide MsgBox ("Mot de passe invalide") ' End ThisWorkbook.Close SaveChanges:úlse End If Else ' Utilisateur inconnu MsgBox ("Utilisateur inconnu") ' End End If End Sub
isabelle
désolé, j'ai dit une bêtise, est ce que comme ça c'est mieux ?
Private Sub Ok_Btn_Click() Set rech = Range("Users").Find(ID_Util, LookIn:=xlValues) If Not rech Is Nothing And rech <> "" Then If Pwd_Util = rech.Cells(1, 2) Then ReplaceFenêtre End Else MsgBox ("Mot de passe invalide") End End If Else MsgBox ("Utilisateur inconnu") End End If End Sub
isabelle
Bonsoir à tous Je voudrait que cette useform apparait a l'ouverture et ferme le fichier ci le mot passe n'est pas bon. Ou est mon erreur??
Dans ThisWorkbook Private Sub Workbook_Open() Test_Click End Sub Sub Test_Click() mot_de_passe.Show End Sub
voici le code de ma useform Private Sub Ok_Btn_Click() If ID_Util = Empty Then End ' Recherche du profil Set Rech = Range("Users").Find(ID_Util, LookIn:=xlValues) If Not Rech Is Nothing Then ' Contrôle du mot de passe If Pwd_Util = Rech.Cells(1, 2) Then ' Si Ok ReplaceFenêtre End Else ' Mot de passe invalide MsgBox ("Mot de passe invalide") ' End ThisWorkbook.Close SaveChanges:úlse End If Else ' Utilisateur inconnu MsgBox ("Utilisateur inconnu") ' End End If End Sub
désolé, j'ai dit une bêtise,
est ce que comme ça c'est mieux ?
Private Sub Ok_Btn_Click()
Set rech = Range("Users").Find(ID_Util, LookIn:=xlValues)
If Not rech Is Nothing And rech <> "" Then
If Pwd_Util = rech.Cells(1, 2) Then
ReplaceFenêtre
End
Else
MsgBox ("Mot de passe invalide")
End
End If
Else
MsgBox ("Utilisateur inconnu")
End
End If
End Sub
isabelle
Bonsoir à tous
Je voudrait que cette useform apparait a l'ouverture et
ferme le fichier ci le mot passe n'est pas bon.
Ou est mon erreur??
Dans ThisWorkbook
Private Sub Workbook_Open()
Test_Click
End Sub
Sub Test_Click()
mot_de_passe.Show
End Sub
voici le code de ma useform
Private Sub Ok_Btn_Click()
If ID_Util = Empty Then End
' Recherche du profil
Set Rech = Range("Users").Find(ID_Util, LookIn:=xlValues)
If Not Rech Is Nothing Then
' Contrôle du mot de passe
If Pwd_Util = Rech.Cells(1, 2) Then
' Si Ok
ReplaceFenêtre
End
Else
' Mot de passe invalide
MsgBox ("Mot de passe invalide")
' End
ThisWorkbook.Close SaveChanges:úlse
End If
Else
' Utilisateur inconnu
MsgBox ("Utilisateur inconnu")
' End
End If
End Sub
désolé, j'ai dit une bêtise, est ce que comme ça c'est mieux ?
Private Sub Ok_Btn_Click() Set rech = Range("Users").Find(ID_Util, LookIn:=xlValues) If Not rech Is Nothing And rech <> "" Then If Pwd_Util = rech.Cells(1, 2) Then ReplaceFenêtre End Else MsgBox ("Mot de passe invalide") End End If Else MsgBox ("Utilisateur inconnu") End End If End Sub
isabelle
Bonsoir à tous Je voudrait que cette useform apparait a l'ouverture et ferme le fichier ci le mot passe n'est pas bon. Ou est mon erreur??
Dans ThisWorkbook Private Sub Workbook_Open() Test_Click End Sub Sub Test_Click() mot_de_passe.Show End Sub
voici le code de ma useform Private Sub Ok_Btn_Click() If ID_Util = Empty Then End ' Recherche du profil Set Rech = Range("Users").Find(ID_Util, LookIn:=xlValues) If Not Rech Is Nothing Then ' Contrôle du mot de passe If Pwd_Util = Rech.Cells(1, 2) Then ' Si Ok ReplaceFenêtre End Else ' Mot de passe invalide MsgBox ("Mot de passe invalide") ' End ThisWorkbook.Close SaveChanges:úlse End If Else ' Utilisateur inconnu MsgBox ("Utilisateur inconnu") ' End End If End Sub