protecting all worksheets of the workbook and open access to filter

good day. who the hell can give a help for this macro.

what I want is to protect the leaves but leaving open access to filter a column only.

grateful

Sub Protect_Sheets()

Dim ws As Worksheet

For Each ws In Worksheets

    ws.Protect Password:="Password"

Next ws

End Sub