Discussion :

[aramge]

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:

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

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.

Merci.

[SfJ5Rpw8]

tu peu utiliser les mécanismes de protections feuilles.. d'Excel...
pour protéger une feuille :

Code :

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

Workbooks(1).Worksheets("AGO").protect "bbil"

et déprotége avant masquage/démasquage ligne

Code :

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

Workbooks(1).Worksheets("AGO").Unprotect "bbil"

PS : bbil c'est orignal comme mot de passe

[aramge]

Je vois, mais cela m'empèche de rentrer de nouvelles décision.
Il faudrait en fait que une fois les lignes masquées, l'utilisateur ne puisse pas les afficher. Mais qu'ils puissent tout de même rentrer de nouvelles décisions.

Merci.

[SfJ5Rpw8]

Avant de verrouiller la feuille sélectionne toutes les cellules, puis format protection et décoche "vérouillée"...

[aramge]

Merci,

mais cela m'empêche d'ajouter de nouvelles décisions. Je n'ai peut être pas compris quelles cellules je dois dévérouiller (toutes les cellules de la feuille?), ou comment vérrouiller la feuille.

Mais ce n'est peut être pas possible.
Car même si j'y arrive il suffit que l'utilisateur, à l'ouverture du fichier décide de ne pas activer les macros pour que toutes les décisions soient visibles.

Merci.

Sinon g mis ton Protect comme ça:

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
Private Sub Workbook_Open()
Dim j As Integer
    Workbooks(1).Worksheets("AGO").Unprotect "bbil"
    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 = "CODIR" Then
                Rows(j).EntireRow.Hidden = True
            End If
        Next j
    Workbooks(1).Worksheets("AGO").Protect "bbil"
End Sub

[SfJ5Rpw8]

Lorsqu'une feuille est protégé (menu outils protection, protéger la feuille) l'on ne peu écrire que dans les cellules qui ne sont pas verrouillés (par défaut elle le sont toutes), pour déverrouillé les cellules, sélectionne les toutes, puis format cellule protection....

Je suppose que ta macro est dans le classeur de donnée remplace les :
Workbooks(1).. par thisWorkBook..


ensuite avant la fermeture masque les lignes à protéger.. ainsi elles seront masquées même si l'utilisateur n'accepte pas les macros à l'ouverture :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
     ThisWorkbook.Worksheets("AGO").Unprotect "bbil"
     For j = 6 To 100
            If ThisWorkbook.Worksheets("AGO").Cells(j, 4).Value = "CODIR" Then
                Rows(j).EntireRow.Hidden = True
            End If
        Next j
    ThisWorkbook.Worksheets("AGO").Protect "bbil"
End Sub