Use Excel filter in protected report

Question

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

Answer 1

Hi Philipp.
I have experienced the same problem. The final solution was to protect the epm sheet with the following macro (not manually, via the Ribbon Interface):
Public Sub Protect()
   Dim api As Object
   Set api = Application.COMAddIns("FPMXLClient.Connect").Object
   Dim SheetProtectionOptions As Long
   SheetProtectionOptions = FPMXLClient.ProtectSheet_ProtectContents + FPMXLClient.ProtectSheet_UserInterfaceOnly + FPMXLClient.ProtectSheet_AllowFiltering
   api.SetSheetOption Sheet1, 300, True, "YOUR_PASSWORD", SheetProtectionOptions
End Sub
Check the chapter 41.2.3.1 Sheet Options, of the EPMofc_10_user_en.pdf, for other sheet protection options.
Best regards,
Marco