Change the last line to callout what you want to allow. The standard
protection protects drawing objects, contents, and scenarios. We'll just add
on that you want to allow filtering.

ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True _
, AllowFiltering:=True
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"Minos" wrote:

Hi,

I have a protected worksheet with the option of €œUse Autofilter€� enabled.
I have a macro that runs a filter for selected records. I have a second macro
(see below) that removes the previous filter.

ActiveSheet.Unprotect
Selection.AutoFilter Field:=20
ActiveSheet.Protect

End Sub

How can I again enable the €œUse Autofilter€� together with the €œActive
Sheet.Protect€� command.

Thanks

Minos