All Worksheets pw protect with Auto Filter

Try this

Private Sub CommandButton3_Click()
Dim WS As Worksheet

For Each WS In ThisWorkbook.Worksheets
    WS.Protect AllowFiltering:=True
Next WS
End Sub