Feuilles protégées et filtre

Bonjour,

J'ai un fichier excel avec plusieurs feuille que je protège et déprotège avec une macro.

Quand mon fichier est protégé, je ne peux pas utiliser le filtre dans mes feuilles pourtant j'ai mis le AllowFiltering:=True lors de la protection?

Voici la macro que j'utilise pour protéger mes différents feuilles.

Merci de votre assistance,

Oiseaubleu

Sub Protéger()

Dim ws As Worksheet

Dim pwd As String

pwd = "(abc)"

Application.ScreenUpdating = False

For Each ws In Worksheets

ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _

, AllowFormattingCells:=True, AllowFormattingColumns:=True, _

AllowFormattingRows:=True, AllowFiltering:=True

ws.Protect Password:=pwd

Next ws

MsgBox "Feuilles protégées"

Application.ScreenUpdating = True

End Sub

Bonjour Oiseaubleu le forum

ta macro est faite pour protéger toutes tes feuilles, mais lorsque tu veux filtrer une feuille il te faut bien entendu la déprotéger

du style :

activesheet.unprotect password

et à la fin de ton traitement

activesheet.protect password

a+

Papou

Bonjour,

Bonjour paritec,

En complément, ta procédure revisitée.

Cdlt.

Sub Protéger()
Dim ws As Worksheet
Const PWD As String = "(abc)"

    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        'Double-clic sur Protect et F11 pour l'aide sur la méthode !...
        ws.Protect _
                Password:=PWD, _
                userinterfaceonly:=True, _
                AllowFormattingCells:=True, _
                AllowFormattingColumns:=True, _
                AllowFormattingRows:=True, _
                AllowFiltering:=True
    Next ws

    MsgBox "Feuilles protégées"

End Sub