Discussion :

[PJ_VBA]

Bonjour,

J'ai besoin d'utiliser un filtre automatique sur une feuille protégée avec Excel97. Visiblement cela n'est pas possible. J'ai essayé le code suivant mais cela ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Private sub Workbook_Open ()
 With Feuil1
        .Unprotect Password:="toto"
        .AutoFilterMode = False
        .Range("A1:D1").AutoFilter
        .EnableAutoFilter = True
        .Protect Password:="toto", contents:=True, userInterfaceOnly:=True
    End With
End sub

Quelqu'un pourrait-il m'aider ?

De manière générale merci de me dire exactement comment faire pour permettre à une macro de fonctionner sur une feuille protégée par mot de passe sur Excel 97, après clic sur bouton.

Par avance merci,

[Mytå_Qc]

Salut le forum

En ajoutant

Code :

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

AllowFiltering:=True

Code :

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

1
2
3
.Protect Password:="toto", DrawingObjects:=True, _ 
    contents:=True, Scenarios:=True, AllowFiltering:=True, _ 
        userinterfaceonly:=True

Mytå

[Mytå_Qc]

Re le forum

Suite à un message en privé, voici la liste des paramètres possibles.

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
ActiveSheet.Protect Password:="", _ 
                    DrawingObjects:=True, _ 
                    Contents:=True, _ 
                    Scenarios:=True 
                    UserInterfaceOnly, _ 
                    AllowFormattingCells, _ 
                    AllowFormattingColumns, _ 
                    AllowFormattingRows, _ 
                    AllowInsertingColumns, _ 
                    AllowInsertingRows, _ 
                    AllowInsertingHyperlinks, _ 
                    AllowDeletingColumns, _ 
                    AllowDeletingRows, _ 
                    AllowSorting, _ 
                    AllowFiltering, _ 
                    AllowUsingPivotTables)

Password - Une chaîne qui spécifie un mot de passe sensible à la casse pour la feuille de calcul ou un classeur. Si cet argument est omis, vous pouvez ôter la protection de la feuille de calcul ou un classeur sans l'aide d'un mot de passe. Sinon, vous devez spécifier le mot de passe pour ôter la protection de la feuille de calcul ou un classeur. Si vous oubliez le mot de passe, vous ne pouvez pas ôter la protection de la feuille de calcul ou un classeur. C'est une bonne idée de garder une liste de vos mots de passe et leurs noms de documents correspondants dans un endroit sûr.
DrawingObjects - Fidèle à protéger les formes. La valeur par défaut est False.
Contents - Fidèle à protéger le contenu. Pour un graphique, ce qui protège l'ensemble du graphique. Pour une feuille de calcul, ce qui protège les cellules verrouillées. La valeur par défaut est True.
Scenarios - Fidèle à protéger les scénarios. Cet argument n'est valable que pour les feuilles de calcul. La valeur par défaut est True.
UserInterfaceOnly - Fidèle à protéger l'interface utilisateur, mais pas les macros. Si cet argument est omis, la protection s'applique à la fois aux macros et à l'interface utilisateur.
AllowFormattingCells - True permet à l'utilisateur de formater une cellule dans une feuille de calcul protégée. La valeur par défaut est False.
AllowFormattingColumns - True permet à l'utilisateur de formater n'importe quelle colonne sur une feuille de calcul protégée. La valeur par défaut est False.
AllowFormattingRows - True permet à l'utilisateur de formater n'importe quelle ligne sur un protégé. La valeur par défaut est False.
AllowInsertingColumns - True permet à l'utilisateur d'insérer des colonnes sur la feuille de calcul protégée. La valeur par défaut est False.
AllowInsertingRows - True permet à l'utilisateur d'insérer des lignes sur la feuille de calcul protégée. La valeur par défaut est False.
AllowInsertingHyperlinks - True permet à l'utilisateur d'insérer des liens hypertexte sur la feuille de calcul. La valeur par défaut est False.
AllowDeletingColumns - True permet à l'utilisateur de supprimer des colonnes sur la feuille de calcul protégée, où chaque cellule de la colonne à supprimer est déverrouillée. La valeur par défaut est False.
AllowDeletingRows - True permet à l'utilisateur de supprimer des lignes sur la feuille de calcul protégée, où chaque cellule de la ligne à supprimer est déverrouillée. La valeur par défaut est False.
AllowSorting - True permet à l'utilisateur de trier sur la feuille de calcul protégée. Chaque cellule de la plage de tri doit être déverrouillée ou non protégés. La valeur par défaut est False.
AllowFiltering - True permet à l'utilisateur de définir des filtres sur la feuille de calcul protégée. Les utilisateurs peuvent modifier les critères de filtre, mais ne peut pas activer ou désactiver un filtre automatique. Les utilisateurs peuvent définir des filtres sur un filtre automatique existant. La valeur par défaut est False.
AllowUsingPivotTables - True permet à l'utilisateur d'utiliser les rapports de tableau croisé dynamique sur la feuille de calcul protégée. La valeur par défaut est False.

Mytå_Qc