Droits utilisateurs par onglet

**juju1988** · 08/02/2011, 15h11

Bonjour,

J'ai un fichier Excel contenant plusieures feuilles de calcul, mon utilisateur à le droit daccès sur toutes les feuilles actuellement, mais j'aimerai qu'il n'ai accès qu'à deux feuilles en lecture écriture et pour les autres seulement en lecture seule ... Est ce que c'est possible ? Si oui comment ?

Merci d'avance pour votre aide

Edit : Pour faire simple je ne veux pas que les utilisateurs Production (il existe aussi des utilisateurs labo : je récupère leur login de connexion windows) puissent écrire dans certaines feuilles de calcul ...

**Qwazerty** · 08/02/2011, 19h14

Salut
Le plus simple serait, à l'ouverture du classeur, récupérer le loggin User et en fonction de ce login, tu verrouilles telle ou telle feuille avec un mot de passe.

Comme ça par exemple

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
Sub teste()
If Login = "Tintin" Then
    Feuil1.Protect "Interdiction d'entrer"
    Feuil2.Protect "Interdiction d'entrer"
    Feuil3.Unprotect "Interdiction d'entrer"
Else
    Feuil1.Unprotect "Interdiction d'entrer"
    Feuil2.Protect "Interdiction d'entrer"
    Feuil3.Unprotect "Interdiction d'entrer"
End If
 
'ou si tu as beacoup de type d'utilisateur
 
Select Case Login
    Case "Tintin", "Henry"
        Feuil1.Protect "Interdiction d'entrer"
        'Feuil2.Protect "Interdiction d'entrer"
        'Feuil3.Unprotect "Interdiction d'entrer"
    Case "Jean", "Juju"
        Feuil1.Unprotect "Interdiction d'entrer"
        'Feuil2.UnProtect "Interdiction d'entrer"
        'Feuil3.Unprotect "Interdiction d'entrer"
    Case Else 'Tout les autres logins
        Feuil1.Protect "Interdiction d'entrer"
        'Feuil2.Protect "Interdiction d'entrer"
        'Feuil3.protect "Interdiction d'entrer"
End Select
 
End Sub

++
Qwaz

**juju1988** · 14/02/2011, 09h57

Alors voici mon code :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Const PremiereLigneTableau As Integer = 11
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Option Compare Text
'Récupération nom de session Windows
'extrait d'un code trouvé sur : http://forum.rue-montgallet.com/ruemontgallet/Programmation/vb-vba/resolu-recuperation-windows-sujet_22341_1.htm
Function OSUserName() As String
 
Dim Buffer As String * 256
Dim BuffLen As Long
BuffLen = 256
    If GetUserName(Buffer, BuffLen) Then _
        OSUserName = Left(Buffer, BuffLen - 1)
End Function
 
Private Sub Workbook_Open()
 
Select Case OSUserName
    'Utilisateurs de la production
    Case "toto"
        Worksheets("modes op liens").Protect 
        Worksheets("SAS").Protect ""
        Worksheets("contrôle arrivage-final").Protect ""
        Worksheets("Bilan campagne").Protect ""
        Worksheets("cartes de contrôle").Protect ""
        Worksheets("strippage").Protect ""
        Worksheets(" régé").Unprotect "" 'on déprotège l'onglet régé pour que la prod puisse saisir les TCP
        Worksheets(" régé mino").Protect ""
        Worksheets("PSD Cam").Protect ""
        Worksheets("Statistique").Protect ""
        Worksheets("sulf").Protect ""
        Worksheets("imprégnation ").Protect ""
        Worksheets("séchage").Unprotect "" 'on déprotège l'onglet séchage pour que la prod puisse saisir les TCP
        Worksheets("BCS").Protect ""
        Worksheets("SCS").Protect ""
        Worksheets("Réactabilité ").Protect ""
        Worksheets("length grading").Protect ""
        'Utilisateurs du laboratoire
    Case "titi"
        Worksheets("modes op liens").Unprotect ""
        Worksheets("SAS").Unprotect ""
        'Worksheets("contrôle arrivage-final").Unprotect
        Worksheets("Bilan campagne").Unprotect ""
        Worksheets("cartes de contrôle").Unprotect ""
        Worksheets("strippage").Unprotect ""
        Worksheets(" régé").Unprotect ""
        Worksheets(" régé mino").Unprotect ""
        Worksheets("PSD Cam").Unprotect ""
        Worksheets("Statistique").Unprotect ""
        Worksheets("sulf").Unprotect ""
        Worksheets("imprégnation ").Unprotect ""
        Worksheets("séchage").Unprotect ""
        Worksheets("BCS").Unprotect ""
        Worksheets("SCS").Unprotect ""
        Worksheets("Réactabilité ").Unprotect ""
        Worksheets("length grading").Unprotect ""
End Select
 
End Sub

Mon problème est que sur ma feuille contrôle arrivage-final j'ai déjà une protection de base qui permet que les utilisateurs n'aient pas accès à toutes les cellules avec un mot de passe et tout...Donc protection sur les cellules verrouillées les utilisateurs ne peuvent écrire que dans celles non verrouillées... Comment puis-je contourner ce problème ??

Merci d'avance

**juju1988** · 15/02/2011, 10h47

Suite à mon problème d'onglet où j'ai déjà une protection sur certaines cellules j'ai tenté quelque chose :

J'ai déprotégé ma feuille et j'ai englobé sous des groupes de cellules toutes mes cellules verrouillées.
Donc si c'est toto qui se connecte je vais les verrouiller sinon si c'est titi je vais verrouiller toute ma feuille, de cette manière là :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub Workbook_Open()
 
Select Case OSUserName
        'Utilisateurs de la production
    Case "toto"
        Worksheets("modes op liens").Protect "test"
        Worksheets("SAS").Protect "test"
 
        '--------------contrôle arrivage-final------------------------------------------------
        'On déverrouille les cellules
        'Puis on verrouille toute la feuille, la production n'a pas accès à cet onglet en modif
        Worksheets("contrôle arrivage-final").Unprotect "test"
        Worksheets("contrôle arrivage-final").Range("PremierePartieVerrouille").Locked = False
        Worksheets("contrôle arrivage-final").Range("DeuxiemePartieVerrouille").Locked = False
        Worksheets("contrôle arrivage-final").Range("TroisiemePartieVerrouille").Locked = False
        Worksheets("contrôle arrivage-final").Protect "test"
        '--------------contrôle arrivage-final------------------------------------------------
 
        Worksheets("Bilan campagne").Protect "test"
        Worksheets("cartes de contrôle").Protect "test"
        Worksheets("strippage").Protect "test"
        Worksheets(" régé").Unprotect "test" 'on déprotège l'onglet régé pour que la prod puisse saisir les TCP
        Worksheets(" régé mino").Protect "test"
        Worksheets("PSD Cam").Protect "test"
        Worksheets("Statistique").Protect "test"
        Worksheets("sulf").Protect "test"
        Worksheets("imprégnation ").Protect "test"
        Worksheets("séchage").Unprotect "test" 'on déprotège l'onglet séchage pour que la prod puisse saisir les TCP
        Worksheets("BCS").Protect "test"
        Worksheets("SCS").Protect "test"
        Worksheets("Réactabilité ").Protect "test"
        Worksheets("length grading").Protect "test"
    Case "titi"
        'On déprotège le labo a accès à tout
        Worksheets("modes op liens").Unprotect "test"
        Worksheets("SAS").Unprotect "test"
 
        '--------------contrôle arrivage-final------------------------------------------------
        'On ne protège que les cellules où ils ne doivent pas avoir accès
        Worksheets("contrôle arrivage-final").Range("PremierePartieVerrouille").Locked = True
        Worksheets("contrôle arrivage-final").Range("DeuxiemePartieVerrouille").Locked = True
        Worksheets("contrôle arrivage-final").Range("TroisiemePartieVerrouille").Locked = True
        Worksheets("contrôle arrivage-final").Protect "test"
        '--------------contrôle arrivage-final------------------------------------------------
 
        Worksheets("Bilan campagne").Unprotect "test"
        Worksheets("cartes de contrôle").Unprotect "test"
        Worksheets("strippage").Unprotect "test"
        Worksheets(" régé").Unprotect "test"
        Worksheets(" régé mino").Unprotect "test"
        Worksheets("PSD Cam").Unprotect "test"
        Worksheets("Statistique").Unprotect "test"
        Worksheets("sulf").Unprotect "test"
        Worksheets("imprégnation ").Unprotect "test"
        Worksheets("séchage").Unprotect "test"
        Worksheets("BCS").Unprotect "test"
        Worksheets("SCS").Unprotect "test"
        Worksheets("Réactabilité ").Unprotect "test"
        Worksheets("length grading").Unprotect "test"
End Select

Cependant cela ne fonctionne pas, mon onglet n'est pas protégé encore une fois contrairement aux autres...
Qu'est ce qu'il peut bien me manquer ?? Merci de votre aide je commence à désespérer après toutes les tentatives que j'ai effectué !

**juju1988** · 15/02/2011, 15h27

Voici ma solution :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Const PremiereLigneTableau As Integer = 11
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Option Compare Text
'Récupération nom de session Windows
'extrait d'un code trouvé sur : http://forum.rue-montgallet.com/ruemontgallet/Programmation/vb-vba/resolu-recuperation-windows-sujet_22341_1.htm
Function OSUserName() As String
 
Dim Buffer As String * 256
Dim BuffLen As Long
BuffLen = 256
    If GetUserName(Buffer, BuffLen) Then _
        OSUserName = Left(Buffer, BuffLen - 1)
End Function
 
Private Sub Workbook_Open()
 
Select Case OSUserName
        'Utilisateurs de la production
    Case "STAG3", "Sulficat2", "Regene1", "Regene2", "Regene3", "Regene4", "u3100"
        Worksheets("modes op liens").Protect "nadine"
 
        Worksheets("SAS").Protect "nadine"
 
        '--------------contrôle arrivage-final------------------------------------------------
        'On déverrouille les cellules
        'Puis on verrouille toute la feuille, la production n'a pas accès à cet onglet en modif
        Worksheets("contrôle arrivage-final").Unprotect "nadine"
        'Worksheets("contrôle arrivage-final").Range("PremierePartieVerrouille").Locked = False
        'Worksheets("contrôle arrivage-final").Range("DeuxiemePartieVerrouille").Locked = False
        'Worksheets("contrôle arrivage-final").Range("TroisiemePartieVerrouille").Locked = False
        Worksheets("contrôle arrivage-final").Range("A1:AJ115").Locked = True
        Worksheets("contrôle arrivage-final").Protect "nadine"
        '--------------contrôle arrivage-final------------------------------------------------
 
        Worksheets("Bilan campagne").Protect "nadine"
        Worksheets("cartes de contrôle").Protect "nadine"
        Worksheets("strippage").Protect "nadine"
        Worksheets(" régé").Unprotect "nadine" 'on déprotège l'onglet régé pour que la prod puisse saisir les TCP
        Worksheets(" régé mino").Protect "nadine"
        Worksheets("PSD Cam").Protect "nadine"
        Worksheets("Statistique").Protect "nadine"
        Worksheets("sulf").Protect "nadine"
        Worksheets("imprégnation ").Protect "nadine"
        Worksheets("séchage").Unprotect "nadine" 'on déprotège l'onglet séchage pour que la prod puisse saisir les TCP
        Worksheets("BCS").Protect "nadine"
        Worksheets("SCS").Protect "nadine"
        Worksheets("Réactabilité ").Protect "nadine"
        Worksheets("length grading").Protect "nadine"
    Case "JFM", "FF", "PCL", "GC", "LB", "FD", "EL", "SB", "BLG", "ERIC", "NADINE"
        'On déprotège le labo a accès à tout
        Worksheets("modes op liens").Unprotect "nadine"
        Worksheets("SAS").Unprotect "nadine"
 
        '--------------contrôle arrivage-final------------------------------------------------
        'On ne protège que les cellules où ils ne doivent pas avoir accès
        Worksheets("contrôle arrivage-final").Unprotect "nadine"
        Worksheets("contrôle arrivage-final").Range("A1:AJ115").Locked = False
        Worksheets("contrôle arrivage-final").Range("PremierePartieVerrouille").Locked = True
        Worksheets("contrôle arrivage-final").Range("DeuxiemePartieVerrouille").Locked = True
        Worksheets("contrôle arrivage-final").Range("TroisiemePartieVerrouille").Locked = True
        Worksheets("contrôle arrivage-final").Protect Password:="nadine", UserInterFaceOnly:=True
        '--------------contrôle arrivage-final------------------------------------------------
 
        Worksheets("Bilan campagne").Unprotect "nadine"
        Worksheets("cartes de contrôle").Unprotect "nadine"
        Worksheets("strippage").Unprotect "nadine"
        Worksheets(" régé").Unprotect "nadine"
        Worksheets(" régé mino").Unprotect "nadine"
        Worksheets("PSD Cam").Unprotect "nadine"
        Worksheets("Statistique").Unprotect "nadine"
        Worksheets("sulf").Unprotect "nadine"
        Worksheets("imprégnation ").Unprotect "nadine"
        Worksheets("séchage").Unprotect "nadine"
        Worksheets("BCS").Unprotect "nadine"
        Worksheets("SCS").Unprotect "nadine"
        Worksheets("Réactabilité ").Unprotect "nadine"
        Worksheets("length grading").Unprotect "nadine"
End Select
 
End Sub

**kiki29** · 15/02/2011, 19h43

Salut,pour le nom de login windows pourquoi ne pas utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Environ("USERNAME")

**juju1988** · 28/02/2011, 11h23

Très bonne question

je ne connaissais pas mais maintenant je l'utilise merci et j'ai enlevé donc ma fonction

**Johakr** · 28/02/2011, 11h33

Petit conseil pour le password,

créer une variable public as string contenant le password, comme ça le jour au tu veux/dois changer, c'est beaucoup plus simple...

enfin, c'est ce que je fais dans mes codes et c'est très pratique (et ça évite les fautes de frappe

)

**juju1988** · 28/02/2011, 11h41

En fait j'ai fait quelque chose de plus facile je masque les onglets en fonction du nom d'utilisateur :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
 
Option Compare Text
'Fonction qui récupère le groupe auquel appartient l'utilisateur qui a ouvert le fichier
Function RecupGroupeUser() As String
    Dim adoConnection As ADODB.Connection
    Dim adoCommand As ADODB.Command
    Dim adoRecordset As ADODB.Recordset
    Dim strBase, strFilter, strAttributes, strQuery As String
    Dim listGroups() As Variant
    Dim i As Integer
 
    'Initialisation des objets ADO
    Set adoCommand = New ADODB.Command
    Set adoConnection = New ADODB.Connection
    Set adoRecordset = New ADODB.Recordset
 
    adoConnection.Provider = "ADsDSOObject"
    adoConnection.Open "Active Directory Provider"
    adoCommand.ActiveConnection = adoConnection
 
    'Recherche du domaine Active Directory
    strBase = "<LDAP://dc=nomdomaineentreprise;dc=extensionnomdedomaine>"
 
    'Filtre sur l'utilisateur.... Environ("USERNAME") récupère le login de l'utilisateur qui ouvre le fichier
    strFilter = "(&(objectCategory=user)(samAccountName=" & Environ("USERNAME") & "))"
 
    'On récupère l'ensemble des groupes de l'utilisateur
    strAttributes = "memberOf"
 
    'Construction de la requête LDAP
    strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
    adoCommand.CommandText = strQuery
    adoCommand.Properties("Page Size") = 300
    adoCommand.Properties("Timeout") = 30
    adoCommand.Properties("Cache Results") = False
 
    'Exécution de la requête
    Set adoRecordset = adoCommand.Execute
 
    'Parcours des résultats de la requête
    Do Until adoRecordset.EOF
 
        'On stocke l'ensemble des groupes dans un tableau de variants
        listGroups = adoRecordset.Fields("memberOf").Value
 
        'Pour chaque élément du tableau
        For i = 0 To UBound(listGroups)
            Dim chaine_groupe As Variant
            Dim groupTmp As String
 
            chaine_groupe = listGroups(i)
            'On extrait la donnée qui nous intéresse (le nom exact du groupe)
            groupTmp = Mid(chaine_groupe, InStr(chaine_groupe, "CN=") + 3, InStr(chaine_groupe, ",OU=") - 4)
            If groupTmp = "Unite" Then
                RecupGroupeUser = "Unite"
            End If
 
        Next
 
        ' Move to the next record in the recordset.
        adoRecordset.MoveNext
    Loop
 
    ' Clean up.
    adoRecordset.Close
    adoConnection.Close
End Function
'En fonction du groupe auquel appartient l'utilisateur qui ouvre le fichier Excel on masque les onglets
Private Sub Workbook_Open()
Dim groupUser As String
 
Worksheets("SAS ").Visible = True
Worksheets("contrôle arrivage-final").Visible = True
Worksheets("contrôle arrivage-final 2").Visible = True
Worksheets("contrôle arrivage-final 3").Visible = True
Worksheets("contrôle arrivage-final 4").Visible = True
Worksheets("Bilan campagne").Visible = True
Worksheets("cartes de contrôle").Visible = True
Worksheets("strippage").Visible = True
Worksheets(" régé").Visible = True
Worksheets(" régé mino").Visible = True
Worksheets("PSD Cam").Visible = True
Worksheets("Statistique").Visible = True
Worksheets("sulf").Visible = True
Worksheets("imprégnation ").Visible = True
Worksheets("séchage").Visible = True
Worksheets("BCS").Visible = True
Worksheets("SCS").Visible = True
Worksheets("Réactabilité ").Visible = True
Worksheets("length grading").Visible = True
 
groupUser = RecupGroupeUser()
'Si l'utilisateur fait partie du groupe Unite (Production) on masque tous les onglets sauf régé et séchage
    If groupUser = "Unite" Then
 
       Worksheets("SAS ").Visible = False
       Worksheets("contrôle arrivage-final").Visible = False
       Worksheets("contrôle arrivage-final 2").Visible = False
       Worksheets("contrôle arrivage-final 3").Visible = False
       Worksheets("contrôle arrivage-final 4").Visible = False
       Worksheets("Bilan campagne").Visible = False
       Worksheets("cartes de contrôle").Visible = False
       Worksheets("strippage").Visible = False
 
       Worksheets(" régé mino").Visible = False
       Worksheets("PSD Cam").Visible = False
       Worksheets("Statistique").Visible = False
       Worksheets("sulf").Visible = False
       Worksheets("imprégnation ").Visible = False
 
       Worksheets("BCS").Visible = False
       Worksheets("SCS").Visible = False
       Worksheets("Réactabilité ").Visible = False
       Worksheets("length grading").Visible = False
    End If
 
 
End Sub

Mais merci pour ta suggestion qui est très bonne mais il s'agissait juste d'un test le mot de passe peut varier donc bon ... mais je prend note pour une prochaine fois merci

**Qwazerty** · 28/02/2011, 20h45

Salut
@Johakr: C'est une bonne méthode, mais plutôt qu'une variable une Const est encore mieux

@juju1988:

Je ne vois pas ou tu protèges ton classeur dans la partie de code que tu donnes, tu caches uniquement les Onglets, l'utilisateur peut les afficher.

Il existe un autre état à l'état Visible, autre que True ou False

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil1").Visible = xlSheetVeryHidden

++
Qwaz

**juju1988** · 01/03/2011, 08h51

Je ne connaissais pas cet état là cela signifie que le fichier n'apparait pas dans la liste Afficher c'est ça ??
En tout cas merci du tuyau ça marche super bien

Oui je ne peux pas les protéger car mon fichier est partagé donc j'ai contourné le problème en masquant les icônes qu'ils ne doivent pas voir...