Guru do Excel e Power BI

Public Sub LimpaTodosFiltros()
    If ActiveSheet.FilterMode Then
        On Error Resume Next
        ActiveSheet.ShowAllData
        On Error GoTo 0
    End If
End Sub

Sub Tente()

ActiveSheet.Protect Password:="SuaSenha", userinterfaceonly:=True
'Codigo limpar filtro aqui
ActiveSheet.Protect Password:="SuaSenha"

End Sub

Sub DesprotegerPlanilhaAtiva()
 
Dim i, i1, i2, i3, i4, i5, i6 As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer
On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

Sub AleVBA()

    Dim ws As Worksheet
    Dim shtArray() As String
    Dim intA As Integer
    Dim intB As Integer

    For Each ws In ActiveWindow.SelectedSheets
        intA = intA + 1
        ReDim Preserve shtArray(intA)
        shtArray(intA) = ws.Name
    Next ws

    For Each ws In ActiveWorkbook.Worksheets
        ws.Select
    Next ws

    For intB = 1 To intA
        ActiveWorkbook.Worksheets(shtArray(intB)).Unprotect "SuaSenha"
    Next intB
    'Escreva o Código limpar filtro aqui
    
    'Cole o Código para proteger as guias aqui
End Sub

Sub Tente_Isso()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.AutoFilterMode = False
    Next ws
End Sub