Help vba disable filters on all pivot tables

[mlcalves]

Hi people,

Can anyone help please?

i Want to disable filters on all pivot tables of a sheet, but i get error.

Thank you

Sub DesativaFiltroPivotTables()

Dim pt As PivotTable
Dim ptall As PivotTables
Dim pf As PivotField

Set ptall = ActiveSheet.PivotTables

For Each pt In ptall
      
pf.EnableItemSelection = False
    
Next pt
  
  
End Sub

 

[DanteAmor]

Try this:

Sub filterPT()
  Dim pt As PivotTable
  For Each pt In ActiveSheet.PivotTables
    pt.ClearAllFilters
  Next
End Sub

 

[mlcalves]

Try this:

Sub filterPT()
  Dim pt As PivotTable
  For Each pt In ActiveSheet.PivotTables
    pt.ClearAllFilters
  Next
End Sub

Hi Dante, Thank you, but i don't clear filters, i want to disable filter selecion, so thar users can't change filter.

I tried this, but doesn't work:

Sub filterPT()
  Dim pt As PivotTable
  Dim pf As PivotField
  For Each pt In ActiveSheet.PivotTables

    pf.EnableItemSelection = False
   
  Next
End Sub

Can you help, please? Thank you

 

[mlcalves]

Hi Dante, Thank you, but i don't clear filters, i want to disable filter selecion, so thar users can't change filter.

I tried this, but doesn't work:

Sub filterPT()
  Dim pt As PivotTable
  Dim pf As PivotField
  For Each pt In ActiveSheet.PivotTables

    pf.EnableItemSelection = False
 
  Next
End Sub

Can you help, please? Thank you

Hi Dante,

I discovered the solution to my problem:

Sub DesativaFiltroPivotTables()
Dim pt As PivotTable
Dim pf As PivotField

  For Each pt In ActiveSheet.PivotTables
    For Each pf In pt.PivotFields
      pf.EnableItemSelection = False
    Next pf
  Next
End Sub

Thank you