Filtre ligne par mot de passe selon user

[reve24]

Bonjour
Est il possible à partir d un User et d un Mot de passe de ne faire apparaitre que les lignes le concernant .
voir idée selon fichier

maintenant je suis ouvert à toutes propositions qui pourraient me résoudre ce problème .
Merci d avance

 

[BOISGONTIER]

Re : Filtre ligne par mot de passe selon user

Bonsoir,

cf PJ

Private Sub B_ok_Click()
 Set f = Sheets("baseDonnée")
 If Me.motpasse <> "" Then
  For i = 1 To Range("password").Count
    If UCase(Me.motpasse) = UCase(Range("password")(i)) Then
      f.Visible = True
      Application.ScreenUpdating = False
      f.[N1] = "Identifiant"
      f.[N2] = Range("identifiant")(i)
      f.Range("A1:D10000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        f.Range("N1:N2")
      Exit For
    End If
  Next i
  End If
  Unload Me
End Sub

En utilisant le nom d'utilisateur

Sub auto_open()
 Set f = Sheets("baseDonnée")
  For i = 1 To Range("nom").Count
    If UCase(Environ("username")) = UCase(Range("nom")(i)) Then
      f.Visible = True
      Application.ScreenUpdating = False
      f.[N1] = "Identifiant"
      f.[N2] = Range("identifiant")(i)
      f.Range("A1:D10000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        f.Range("N1:N2")
      Exit For
    End If
  Next i
End Sub

http://boisgontierjacques.free.fr/fichiers/Filtre/FiltreElabPassword.xls
http://boisgontierjacques.free.fr/fichiers/Filtre/FiltreElabUsername.xls

JB

 

[reve24]

Re : Filtre ligne par mot de passe selon user

MERCI
j avais trouvé une autre solution via USERNAME qui me permettait de filtrer par rapport à l utilisateur du PC


Merci ta solution est geniale et reponds exactement à mon besoin

 

[reve24]

Re : Filtre ligne par mot de passe selon user

Bonjour boisgontier Jacques

C'est parfait mais si Administrateur , il serait bon d ouvrir tous les onglet et d annuler les filtres , donc de visualiser toutes les lignes😱

 

[BOISGONTIER]

Re : Filtre ligne par mot de passe selon user

Bonsoir,

cf PJ

JB

 

[reve24]

Re : Filtre ligne par mot de passe selon user

Thank's super