Sub pj()
    Dim sht As Worksheet
    For Each sht In Worksheets
        sht.Protect AllowFiltering:=True
        sht.Unprotect
    Next
End Sub