macro - protect worksheets .....allow auto filter

[bluepenink]

hello

wondering how i can allow the user to apply the "auto filter", while the sheet is proteted.

here is my current code:

Sub ProtectAllSheets()
Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Protect Password:="analyst", DrawingObjects:=True, _
            Contents:=True, Scenarios:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, userinterfaceonly:=True, AllowFormattingCells:=True
            
        ws.EnableSelection = xlNoRestrictions
    Next ws
End Sub

thx you!!!!

 

[bluepenink]

i have code as well, but it's still not enabling the auto filter?

Private Sub Workbook_Open()
For c = 1 To Sheets.Count
               With Worksheets(c)
        .Protect Password:="analyst", userinterfaceonly:=True, AllowFormattingCells:=True, Contents:=True, Scenarios:=True, _
            AllowFormattingColumns:=True, AllowFormattingRows:=True
        .EnableOutlining = True
        .EnableAutoFilter = True
    End With
Next c
End Sub

 

[Gerald Higgins]

Here's how I do it . . . .

    With ActiveSheet
        .Protect Password:="PASSWORD", AllowFiltering:=True
        .EnableSelection = xlUnlockedCells
    End With