Filtre et groupage dans feuilles protégéés

j'ai un classeur ou mes feuilles sont protégées.

je voudrais mettre le filtre automatique et des groupages.

mais cela ne fonctionne pas dès lors que la protection des feuilles est activées!

comment puis je faire?

merci

Bonsoir

pas moyen si tu ne deverouille pas (a moins que mais moi je n'en connait pas)

le seule moyen a mon avis serais de faire tes manipulation par macro

Cordialement

Salut le forum

Pour le mode plan et les filtres disponibles,

code à mettre sur les feuilles concernées

Private Sub Worksheet_Activate()
With ActiveSheet
    .EnableOutlining = True
    .Protect Password:="roro", userInterfaceOnly:=True, AllowFiltering:=True
End With
End Sub

Mytå

ce code, je dois le mettre sur chaque feuille ces ça? ou sur le workbook?

j'ai essayé les 2 et marche pas

peut être ai je fait une mauvaise manip?

le protect password correspond au mot de passe de la feuille?

si je ne veux pas mettre de mot de passe je mets: "" sans espace?

désolé je suis pas un super pro des macros ^^

Re le forum

As-tu essayer de changer de feuille et de revenir sur la feuille concernée ?

J'ai utilisé Worksheet_Activate

Sinon avec le nom des feuilles plus facile dans ThisWorkbook

Il faudrait savoir les feuilles concernées

Si tu ne veux pas de mot de passe, supprime

• Password:="roro" ,

merci pour tes réponses myta

j'ai trouvé Worksheet_Activate

j'ai recopier le code directement sur le forum

lorsque je change de feuille et que je reviens sur celle avec le code il y a une erreur qui s'affiche:

"erreur d'execution '1004'

erreur définie par l'application ou par l'objet"

lorsque je clique sur débogage cela me mets sur le code et colorie en jaune la ligne ci dessous:

Protect Password:="roro", userInterfaceOnly:=True, AllowFiltering:=True

en attente de ta réponse

Re le forum

Pat, merci de bien vouloir compléter ton Profil en indiquant la Plate Forme et ta version Office.

(Karaté et Moto pas des versions d'Excel)

Attention au point devant le code

With ActiveSheet 
    .EnableOutlining = True 
    .Protect userInterfaceOnly:=True, AllowFiltering:=True 
End With 

Si encore des problèmes, tu peux cliquer sur ce lien : Joindre un fichier

et recopier l'adresse donnée par le lien sur ta ficelle.

Mytå

re,

désolé pour l'info sur excel, l'ai été distrait ^^.

ma version est 2000 , en sachant que les futurs utilisateurs ont 2000 ou 2003 et même certain 2007.

j'ai joint le fichier, enfin ce qu'il en reste car pour etre moins de 100ko il reste une seule feuille.

normalement c'est 5 (lundi o mardi)et une en plus de recapitulatif.

ci joint l'adresse fichier:

https://www.excel-pratique.com/~files/doc/vente_2.xls

merci, patrick

Re le forum

Pat, le problème vient de ta version Excel.

Avec Excel 2000, AllowFiltering:=True n'est pas permis.

Donc pas de filtre automatique de disponible sur feuille protegée.

Mytå

re,

et pour le groupage des lignes est ce possible de l'utiliser?

euh....pour le groupage c'est possible alors?

quelqu'un à une idée?

Re le forum

Pat pour le groupage des plans oui

• .EnableOutlining = True

Mytå

re,

je te joins le fichier car j'ai suivi tes instructions et sa bloque....peux tu regarder?

https://www.excel-pratique.com/~files/doc2/vente_2.xls

Re le forum

Pat, macro à mettre dans ThisWorkbook pour toutes les feuilles

Private Sub Workbook_Open()
Dim Feuille As Worksheet
For Each Feuille In Sheets
With Feuille
    .EnableOutlining = True
    .Protect userInterfaceOnly:=True
End With
Next Feuille
End Sub

Ou pour des feuilles particulières

Private Sub Workbook_Open()
Dim Feuille As Worksheet
For Each Feuille In Sheets(Array("LUNDI","MARDI"))
With Feuille
    .EnableOutlining = True
    .Protect userInterfaceOnly:=True
End With
Next Feuille
End Sub

Mytå

ah ^^

super, convient parfaitement.

merci myta