All Worksheets pw protect with Auto Filter

[kaseyleigh]

Hi

Please may I ask advice on how to write this code to protect all sheets ...

 For Each ws In ThisWorkbook.Worksheets
   ws.Protect Password:="xx"
   ws.ProtectDrawingObjects = False
   ws.AutoFilter = True
   ws.Contents = True
   ws.Scenarios = True
   
 Next ws

Much appreciated!

[gmr4evr1]

Try this

Private Sub CommandButton3_Click()
Dim WS As Worksheet

For Each WS In ThisWorkbook.Worksheets
    WS.Protect AllowFiltering:=True
Next WS
End Sub

[kaseyleigh]

Worked - thank you!!

Erm ... where do I find the SOLVED button *blush*

[gmr4evr1]

No blushing required.
Click on Thread Tools in your original post then click Solved.
Thank you very much for the rep!