use Excel filter in protected report

Hi,

we're using BPC 10 (SP 18) for MS. I have a protected worksheet with one report. There is a local member in that report, with the values 0 or 1. I want to enable my users to filter the rows with 1, and this should be done with a button triggering some vba. My code is

Columns("G:G").Select

ActiveSheet.Range("G:G").AutoFilter Field:=1, Criteria1:="1", Operator:=xlFilterValues

The problem is, that when I hit the button, I get the error message that I have to unprotect the sheet first. Alas, the checkbox allowing auto filter in Sheet Options -> Protection is checked, so this SHOULD be allowed, as far as I understood. When I enable the auto filter manually in Excel before protecting the sheet I can use the normal filter, but not the filter via my makro.

Does anybody have an idea how I can possibly handle this?

Thanks, Philipp