Allow autofilter when protecting all sheets in a workbook

[rugby_nut]

Hi all,
I'm using the code below to lock and unlock all sheets in a workbook. I require users to use slicers and/or filter data in tables within the sheets. I have removed protection from the slicers, but I can't figure out how to allow the autofilter for all sheets when protecting all sheets at once. Any help would be great. Thanks.
------------------------------------------------------------------------------------
' Protect All Worksheets
Sub ProtectAllSheets()
Dim ws As Worksheet

For Each ws In Worksheets
ws.Protect "Password"
Next ws

End Sub
--------------------------------------------------------------------------------------
' UnProtect All Worksheets
Sub UnProtectAllSheets()
Dim ws As Worksheet

For Each ws In Worksheets
ws.Unprotect "Password"
Next ws

End Sub
-----------------------------------------------------------------------------------------

 

[dave3009]

You would want to set the user interface property

ws.Protect Password:="Password", UserInterfaceOnly:=True, AllowFiltering:=True

 

[rugby_nut]

Hi dave3009,
Thank you for the reply. I've tried this and it doesn't seem to work with tables. I tried the code using data that is not in a table and it works fine. But it seems it doesn't work when trying to filter a table. Is there anything different when using tables?

 

[rugby_nut]

Hi dave3009,
Apologies, not sure what happened, or whether I had too many workbooks open. But when I closed everything down and started afresh, everything works just fine! Thank you for your help.

Note to self.......Make changes to one workbook at a time