Protecting sheet with auto filter

This is my autofilter code.

How do i apply the code that you gave on this code?

Sub FilterB6()
    Dim fld
    Application.ScreenUpdating = False
    If UCase(Range("B6").Value) <> "ALL" Then
        Range("A6:AB6").AutoFilter Field:=2, Criteria1:=Sheets("SEARCH").TextBox2.Value, visibledropdown:=False
        With ActiveSheet.AutoFilter
            For fld = 1 To 28
                If Not .Filters(fld).On Then
                    Range("A6:AB6").AutoFilter Field:=fld, visibledropdown:=False
                End If
            Next fld
        End With
    Else
        If ActiveSheet.AutoFilterMode Then
            Range("A6:AB6").AutoFilter
        End If
    End If
    Application.ScreenUpdating = True
    Range("A1").Select
End Sub

Thanks!

Originally Posted by teylyn

Hello,

in your code, you can unprotect the worksheet, run the filter code and then re-protect the worksheet.

    ActiveSheet.Unprotect
    'your autofilter code
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Thanks teylyn!