Discussion :

[juju1988]

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]

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]

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]

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]

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]

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

Code :

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

Environ("USERNAME")