Droits d'accès et visualisation de données

[MONTSERIC]

Bonjour,

A partir d'une table reprenant des ventes consolidées tous vendeurs confondus (l'info vendeur est évidemment intégrée dans cette table), j'essaie depuis longtemps de ne leur donner accès qu'à leurs données et uniquement cela ...je ne trouve pas.
Je ne veux pas faire autant de fichier que de vendeur mais plutôt leur donner l'accès qu'à leur vente par l'intermédiaire d'un mot de passe ou idéalement automatiquement à partir de leur login windows.

DUR, DUR 😕

Merci d'avance pour vos commentaires.

 

[skoobi]

Re : Droits d'accès et visualisation de données

Bonsoir,
en supposant que c'est la feuille qui est verrouillée et que l'utilisateur ce trouve dans la colonne A et donc lui donner acces aux lignes où figure son nom:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.Unprotect "mot de passe"
Cells.Locked = True
ActiveSheet.Protect "mot de passe"
End Sub

A placer dans le module ThisWorkbook

Private Sub Worksheet_Activate()
For Each cellule In Range(Range("a2"), Range("a65536").End(xlUp))
    If cellule.Value = Environ("UserName") Then
        ActiveSheet.Unprotect "mot de passe"
        cellule.EntireRow.Locked = False
        ActiveSheet.Protect "mot de passe"
    End If
Next
End Sub

A placer dans le module des feuilles concernées.

Remplacer "mot de passe" par le tient bien-sûr et mettre un mot de passe pour l'acces au code forcément.
Test et dis-nous.

Edit: la syntaxe du nom de la personne dans le tableau doit être exactement le même que celui du login windows.

 

[BOISGONTIER]

Re : Droits d'accès et visualisation de données

Bonsoir,


Une feuille est affectée à chaque utilisateur. A la sauvegarde du classeur, on masque toutes les feuilles. A l'ouverture, on affiche seulement celle de l'utilisateur .
Chaque feuille doit avoir pour nom le nom de l'utilisateur réseau.

Private Sub Workbook_Open()
Sheets(Environ("username")).Visible = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For s = 2 To Sheets.Count ' on masque les feuilles
Sheets(s).Visible = xlVeryHidden
Next s
End Sub

JB
Formation Excel VBA JB

 

[MONTSERIC]

Re : Droits d'accès et visualisation de données

Merci. Je vais tester et je vous dis.
Super !