Restriction droit excel par utilisateur

**dvdhag123** · 07/04/2015, 10h07

Bonjour,
Je vous expose mon problème.
Avec des amis on travail ensemble, et on a un fichier excel en commun mais dont chacun a sa propre colonne et ne dois pas toucher celle des autres mais il y a 2 jours par inadvertance un de nous à modifier une colonne qui n' été pas la sienne d' ou ma question.

Est-il possible de restreindre les droit sur un fichier excel via un code et un nom d'utilisateur à l'ouverture du fichier

Ex pour moi utilisateur: DAVID ; mot de passe: david123 accès au colonne A B D
Et Admin possibilité de modifier tout le fichier

Exemple:
David peut modifier colonne A B D
Yves peut modifier colonne A C F
Mikael peut modifier colonne E G
Manon peut modifier colonne H I J
Marie peut modifier colonne K

Donc à l'ouverture du fichier excel on aurait un message Box qui s'ouvre et demande le nom et le mdp s'il correspond par exemple à david et que le mdp est david123 alors je pourrais modifier les colonnes A B D sinon non
Ces modifications s’appliqueraient sur toutes les feuilles crées.

Merci pour votre futur aide.

Cordialement

**Gado2600** · 07/04/2015, 10h14

Bonjour,

Tu as la possibilité d'utiliser un UserForm pour avoir une demande de login et de mot de passe.
Lors de la validation, je pense que tu dois jouer sur les verrouillages des cellules.
En effet, si tu vas dans les propriétés des cellules, tu peux cocher une case pour ne pas les verrouiller lorsque tu protèges ton onglet (Selection.locked = false)

Cordialement,

**dvdhag123** · 07/04/2015, 12h43

Oui pour le mot de passe un UserForm est obligatoire je pense, mais pour ce qui est de gérer les droits et bloquer les cellules j'en ai aucune idée..

**Gado2600** · 07/04/2015, 14h40

pour ce qui est de gérer les droits et bloquer les cellules j'en ai aucune idée..

si tu vas dans les propriétés des cellules, tu peux cocher une case pour ne pas les verrouiller lorsque tu protèges ton onglet (Selection.locked = false)

Selon l'utilisateur qui se loggera sur ton fichier Excel (que tu identifies via ton userform de login), tu as juste à dire à Excel de verrouiller les cellules qui ne concernent pas ton utilisateur, lorsque la feuille est protégée.

Pour cela, tu as : "Selection.locked" (Selection étant une range). C'est l'équivalent de la case à cocher "Verrouillée", qui se trouve dans :
=> Clic droit => Format de cellule => Protection

Cordialement,

**dvdhag123** · 09/04/2015, 13h37

Alors voilà mon avancé:
J'ai réussi à faire un formulaire qui demande le mot de passe et affiche les feuilles si ont a le droit.
Mais je n'arrive pas à adapter mon code pour que ce ne soit pas les feuilles qui soient pris en compte mais pour que ce soit les colonnes de la Feuil1

Code pour l'affichage ou non des feuilles:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Private Sub Workbook_Open()
Dim Ws As Worksheet
 
'Masque toutes les feuilles sauf la feuille "Feuil1"
 
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "parametrage" Then Ws.Visible = xlSheetVeryHidden
Next Ws
 
'Affiche l'Userform
UserForm1.Show
End Sub

Module 1 feuille

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
Option Explicit
 
 
Function VerifMDP(Utilisateur As String, MdP As String) As Boolean
Dim rngTrouve As Range
VerifMDP = False 'par défaut, renvoie FAUX
 
With Sheets("parametrage") 'dans la feuille paramétrage
     'cherche, colonne A, le nom d'utilisateur saisi
    Set rngTrouve = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole)
    If rngTrouve Is Nothing Then 'si il ne trouve pas
        VerifMDP = False 'la fonction renvoie faux
    Else 's'il le trouve
        'vérifie que le mot saisi feuille parametrgae colonne B = mdp entré
        If rngTrouve.Offset(0, 1) <> MdP Then
            VerifMDP = False 'si FAUX
        Else
            VerifMDP = True 'si VRAI
        End If
    End If
End With
End Function
 
Sub AfficheFeuilles(Utilisateur As String)
Dim Col As Byte, i As Byte, Lig As Integer
 
With Sheets("parametrage") 'dans la feuille paramétrage
    'comme on va boucler de la colonne 4 à la dernière colonne, on stocke le n° de la dern colonne :
    Col = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
    'on cherche colonne A le nom d'utilisateur saisi et on stocke son num de ligne
    Lig = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole).Row
    For i = 3 To Col
        If UCase(.Cells(Lig, i)) = "X" Then 'si on trouve un "X" dans la cellule
            Sheets(.Cells(1, i).Value).Visible = True 'on affiche la feuille
        Else
            Sheets(.Cells(1, i).Value).Visible = xlSheetVeryHidden 'sinon on la masque
        End If
    Next i
End With
End Sub

Code sur le bouton valider du USF

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
Option Explicit
 
'Code se déclenchant au clic sur bouton
Private Sub CommandButton1_Click()
'Si TextBox1 est vide
If TextBox1 = "" Then
    'Message à l'utilisateur
    MsgBox "Saisie du nom d'utilisateur obligatoire.", vbInformation
    'sortie de la procédure
    Exit Sub
End If
'Même chose avec TextBox2
If TextBox2 = "" Then
    MsgBox "Saisie du mot de passe obligatoire.", vbInformation
    Exit Sub
End If
 
'Lance la fonction VerifMDP en utilisant :
    '- TextBox1 comme paramètre "utilisateur"
    '- TextBox2 comme paramètre "MdP"
 
'Si la fonction renvoie FAUX :
If VerifMDP(TextBox1, TextBox2) = False Then
    'c'est que le mot de passe ou l'utilisateur est faux donc
    'Message à l'utilisateur
    MsgBox "Erreur Mot de passe et/ou utilisateur. Merci de saisir à nouveau.", vbInformation
    'on vide les 2 textbox
    TextBox1 = ""
    TextBox2 = ""
    'on sort de la procédure
    Exit Sub
End If
 
'Si la fonction renvoie VRAI :
AfficheFeuilles TextBox1
'masque l'UserForm
UserForm1.Hide
End Sub
 
 
'code se déclenchant à l'ouverture de Userform1
Private Sub UserForm_Initialize()
'vidage des textbox :
TextBox1 = ""
TextBox2 = ""
'réglage des propriétés Caption
'de l'Userform :
Me.Caption = "Saisie du Mot de Passe"
'des labels :
Label1.Caption = "Utilisateur"
Label2.Caption = "Mot de Passe"
'du bouton
CommandButton1.Caption = "VALIDER"
'Remplace les caractères saisis dans le textbox2 par des astérisques
Me.TextBox2.PasswordChar = "*"
End Sub

Fonction pour bloquer les colonnes qui est la seule qui change et qui ne marche pas ... et c'est la ou je bloque!!

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
Sub AfficheFeuilles(Utilisateur As String)
Dim Col As Byte, i As Byte, Lig As Integer
 
With Sheets("parametrage") 'dans la feuille paramétrage
 
    'comme on va boucler de la colonne 3 à la dernière colonne, on stocke le n° de la dern colonne :
    Col = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
 
    'on cherche colonne A le nom d'utilisateur saisi et on stocke son num de ligne
    Lig = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole).Row
 
    For i = 3 To Col
        If UCase(.Cells(Lig, i)) = "X" Then 'si on trouve un "X" dans la cellule
 
            Sheets("Feuil1").Select.Columns(.Cells(1, i).Value).Locked = True 'on deverouille
        Else
            Sheets("Feuil1").Select.Columns(.Cells(1, i).Value).Locked = False 'sinon on verouille
 
        End If
    Next i
End With
End Sub

Et en image ma feuille parametrage
Nom : Sans titre.jpg
Affichages : 583
Taille : 59,2 Ko

**Gado2600** · 09/04/2015, 17h18

Bonjour,

Je ne pense pas que cette partie fonctionne :

Code :

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

Sheets("Feuil1").Select.Columns(.Cells(1, i).Value).Locked = True 'on deverouille

Essaie plutôt quelque chose du genre (je ne l'ai pas testé) :

Code :

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

Sheets("Feuil1").range(.Cells(1, i).Value & "1").entirecolumn.Locked = True 'on deverouille

Cordialement,

**dvdhag123** · 13/04/2015, 17h51

Merci d'essayer de m'aider mais ça ne fonctionne pas:
Erreur d’exécution '1004':
Erreur définie par l'application ou par l'objet

Peut être en mettant Columns, mais à la place de mettre "A" dans ma feuille paramétrage je vais essayer de mettre la colonne c'est à dire "A:A".

Invité · 13/04/2015, 18h47

Bonjour,
Tu peux nommer les colonnes

Code :

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

1
2
varqui="admin"
sheets(1).range(varqui).Locked = True

si tu sauvegardes l'utilisateur du login, tu peux ensuite si tu utilises des formulaire de saisie identifier la colonne

Code :

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

1
2
 set r= sheets(1).range (varqui)
R(1,2) = "toto"

**dvdhag123** · 14/04/2015, 11h24

Bonjour rduput, je n'ai pas très bien compris ton raisonnement (il me faut du temps pour comprendre..

)

Invité · 14/04/2015, 11h37

Bonjour,
regarde les pièces joint!

**dvdhag123** · 14/04/2015, 11h56

J'ai l'impression de ne rien comprendre.. même en examinant ton fichier;
Voila le mien
mot de passe Colonne.xlsm

NOM Mot de Passe
admin 123456789
st st
rd rd

Invité · 14/04/2015, 13h42

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
Option Explicit
 
 
Function VerifMDP(Utilisateur As String, MdP As String) As Long
Dim rngTrouve As Range
VerifMDP = False 'par défaut, renvoie FAUX
Dim L As Long
L = SerchXls(Sheets("parametrage").Range("a:a"), Sheets("parametrage").Range("a1"), Utilisateur, True, False)
If L = 0 Then Exit Function
If Sheets("parametrage").Cells(L, 2) <> MdP Then Exit Function
VerifMDP = L
'With Sheets("parametrage") 'dans la feuille paramétrage
'     'cherche, colonne A, le nom d'utilisateur saisi
'    Set rngTrouve = .Columns(1).Cells.Find(Utilisateur, LookAt:=xlWhole)
'    If rngTrouve Is Nothing Then 'si il ne trouve pas
'        VerifMDP = False 'la fonction renvoie faux
'    Else 's'il le trouve
'        'vérifie que le mot saisi feuille parametrgae colonne B = mdp entré
'        If rngTrouve.Offset(0, 1) <> MdP Then
'            VerifMDP = False 'si FAUX
'        Else
'            VerifMDP = True 'si VRAI
'        End If
'    End If
'End With
End Function
Function SerchXls(Myrange As Range, MyCellule As Range, strRecherche, EntierCell As Boolean, EnBoucle As Boolean) As Long '
Dim Entier As String
On Error Resume Next
SerchXls = 0
If EntierCell = False Then Entier = xlPart Else Entier = xlWhole
   SerchXls = Myrange.Cells.Find(What:=strRecherche, After:=MyCellule, LookIn:=xlFormulas, LookAt _
        :=Entier, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=EntierCell).Row
  If SerchXls <= MyCellule.Row And EnBoucle = False Then SerchXls = 0
End Function
 
Sub AfficheFeuilles(L As Long)
 ActiveSheet.Unprotect
Dim Col As Byte, i As Byte, Lig As Integer
If UCase(Sheets("parametrage").Cells(L, 3).Value) = "X" Then Sheets("parametrage").Visible = True Else Sheets("parametrage").Visible = False
For i = 4 To Sheets("parametrage").UsedRange.Columns.Count
If Trim("" & Sheets("parametrage").Cells(1, i)) <> "" Then
    If UCase(Sheets("parametrage").Cells(L, i).Value) = "X" Then
        Range(Sheets("parametrage").Cells(1, i)).EntireColumn.Locked = False
        Else
         Range(Sheets("parametrage").Cells(1, i).Value).EntireColumn.Locked = True
        End If
      End If
Next
 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
'With Sheets("parametrage") 'dans la feuille paramétrage
'
'    'comme on va boucler de la colonne 3 à la dernière colonne, on stocke le n° de la dern colonne :
'    Col = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
'
'    'on cherche colonne A le nom d'utilisateur saisi et on stocke son num de ligne
'    Lig = .Columns(1).Cells.Find(Utilisateur, LookAt:=xlWhole).Row
'
'
'    For i = 3 To Col
'        If UCase(.Cells(Lig, i)) = "X" Then 'si on trouve un "X" dans la cellule
'
'
'
'            Sheets(.Cells(1, i).Value).Visible = True 'on affiche la feuille
'
'            Sheets("BASE").Range(.Cells(1, i).Value & "1").EntireColumn.Locked = True 'on deverouille
'            'Sheets("BASE").Select.Columns(.Cells(1, i).Value).Locked = True 'on deverouille
'
'        Else
'            Sheets(.Cells(1, i).Value).Visible = xlSheetVeryHidden 'sinon on la masque
'
'           Sheets("BASE").Range(.Cells(1, i).Value & "1").EntireColumn.Locked = False 'sinon on verouille
'           'Sheets("BASE").Select.Columns(.Cells(1, i).Value).Locked = False 'on deverouille
'
'
'
'
'
'
'        End If
'    Next i
'End With
End Sub

**dvdhag123** · 14/04/2015, 15h15

Super c'est tout bon mais je ne comprend pas cette fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function SerchXls(Myrange As Range, MyCellule As Range, strRecherche, EntierCell As Boolean, EnBoucle As Boolean) As Long '
Dim Entier As String
On Error Resume Next
SerchXls = 0
If EntierCell = False Then Entier = xlPart Else Entier = xlWhole
   SerchXls = Myrange.Cells.Find(What:=strRecherche, After:=MyCellule, LookIn:=xlFormulas, LookAt _
        :=Entier, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=EntierCell).Row
  If SerchXls <= MyCellule.Row And EnBoucle = False Then SerchXls = 0
End Function

Code :

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

1
2
3
4
5
6
7
8
 
If Trim("" & Sheets("parametrage").Cells(1, i)) <> "" Then
    If UCase(Sheets("parametrage").Cells(L, i).Value) = "X" Then
        Range(Sheets("parametrage").Cells(1, i)).EntireColumn.Locked = False
        Else
         Range(Sheets("parametrage").Cells(1, i).Value).EntireColumn.Locked = True
        End If
      End If

Et le L correspond bien à l'utilisateur présent dans ma colonne A:A de la feuille paramétrage?

Code :

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

1
2
 
L = SerchXls(Sheets("parametrage").Range("a:a"), Sheets("parametrage").Range("a1"), Utilisateur, True, False)

Invité · 14/04/2015, 15h25

en gros elle fait ça

Code :

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

Lig = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole).Row

mais elle est générique et permet de la configurer pour différent cas!

je l'utilise dans tous mes code sens me poser de question, elle est éprouvé! ce qui ne veut pas dire que ta méthode ne fonctionnait pas, j'ai pas vérifié!

**dvdhag123** · 15/04/2015, 13h13

D'accord je te remercie

Tout fonctionne bien mais en faisant mes test j'ai décelé un ptoblème...

Quand on ne répond pas à l'USF et qu'on appui donc sur la croix.
On peut tout de même modifier les plages....

Exemple si admin est la dernière personne à s être connecté alors à la réouverture si on appui sur la croix on aura les mêmes droit que l'utilisateur admin

Utili mdp
admin admin
test1 test1
test2 test2

J'ai essayé avec ça mais ça ne marche pas

Code :

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

1
2
3
4
5
6
Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Cet évènement est déclenché avant la fermeture du classeur.
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("BASE").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
 
End Sub

Voila le fichier
mot de passe Colonne4.xlsm

Invité · 15/04/2015, 17h54

Bonjour,
j'ai protégé vba password :rd

Restriction droit excel par utilisateur [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager