bonjour,
je dispose d'un fichier comportant sur une même feuille plusieur décisions(description, entité émettrice et date échéance).
Chaque décision se déroule sur une même ligne.
Mon problème est que certaines entités n'ont pas l'autorisation de voir, ni de modifier toute les décision (cause: hiérarchie).
Je voudrais à l'aide d'une macro (demande de mot de passe) permettre à l'entité désignée par le mot de passe de pouvoir voir et modifier uniquement les lignes pour lesquelles elle dispose de l'autorisation.
(Ex:
Cela cache bien les lignes mais après, il suffit de tout sélectionner dans Excel et de mettre afficher. Hors je veux vérrouiller cet affichage.
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 autorisation() Dim i As Integer, j As Integer i = CInt(InputBox("Veuillez entrer votre mot de passe :")) ''''''''''''' Blocage Agence (entité inférieur , il y a des lignes qu'elle ne peut pas voir '''''''''''''''''''''''''''''''''''''''''''''''''''''' If i = 12 Then Sheets("AGO").Visible = True Sheets("Listes").Visible = True Sheets("Liste_Mots_Clés").Visible = True Sheets("Statistiques").Visible = True Workbooks(1).Worksheets("AGO").Activate For j = 6 To 100 If Workbooks(1).Worksheets("AGO").Cells(j, 4).Value _ = "ligne_a_cacher" Then Rows(j).EntireRow.Hidden = True End If Next j Else '''''''''''' Blocage Entité supérieure (elle peut tout voir) ''''''''''''''''''''''''''''''''''''''''''''''''''''''' If i = 18 Then Sheets("AGO").Visible = True Sheets("Listes").Visible = True Sheets("Liste_Mots_Clés").Visible = True Sheets("Statistiques").Visible = True Workbooks(1).Worksheets("AGO").Activate Cells.EntireRow.Hidden = False Else MsgBox "Vous n'avez pas accès à l'outil.", vbExclamation End If End If End Sub
Merci.
Partager