.enableAutoFilter not working in Private Sub Workbook_Open()

[rjheibel]

I have a protected sheet with filtering which will not allow filtering upon opening. I have the following code in ThisWorkbook... The EnableOutlining is working, but not the filtering. Any suggestions?

Private Sub Workbook_Open()

With Worksheets("Design")
    .Protect Password:="Password", Userinterfaceonly:=True
    .EnableAutoFilter = True
    .EnableOutlining = True

End With
With Worksheets("Bids")
    .Protect Password:="Password", Userinterfaceonly:=True
    .EnableOutlining = True
    .EnableAutoFilter = True
End With
With Worksheets("% Complete Summary")
    .Protect Password:="Password", Userinterfaceonly:=True
    .EnableOutlining = True
    .EnableAutoFilter = True
End With
With Worksheets("Purchase Orders")
    .Protect Password:="Password", Userinterfaceonly:=True
    .EnableOutlining = True
    .EnableAutoFilter = True
End With

End Sub

 

[DanteAmor]

Before protecting the sheet, you should check that the autofilter on the sheet is active.
Or you can set it with the following:

For example:

  With Worksheets("Purchase Orders")
    .Unprotect "Password"
    If .AutoFilterMode = False Then .Range("A1").AutoFilter
    .Protect Password:="Password", Userinterfaceonly:=True
    .EnableOutlining = True
    .EnableAutoFilter = True
  End With