allow auto filter after every calculation

[Excel777]

i use this macro in my project
i want to allow auto filter after every calculation because auto filter is blocked after calculations

Option Explicit

Sub ChartMinMax()
Sheet3.Unprotect Password:="123"
Dim iChart As Long
Dim nCharts As Long
nCharts = Sheets("Tr").ChartObjects.Count

For iChart = 1 To nCharts
With ActiveSheet.ChartObjects(iChart).Chart
.Axes(xlValue).MaximumScale = Sheets("Tr").Range("AY10").Value
.Axes(xlValue).MinimumScale = Sheets("Tr").Range("AY9").Value
Sheet3.Protect Password:="123"

End With
Next
End Sub
Private Sub Worksheet_Calculate()
ChartMinMax
End Sub

any help

 

[Candyman8019]

Try updating the protect statement as follows:
Sheet3.Protect Password:="123" AllowFiltering:=True

 

[Excel777]

not working

 

[Candyman8019]

Missed a comma:

Sheet3.Protect Password:="123", AllowFiltering:=True

 

[Excel777]

Very Nice Working Well Thanks

Candyman8019​