عمل نکردن ماکرو

[mgh1360]

سلام
من این ماکرو رو برای رفرش یه شیت حاوی pivot نوشتم و مخفی اش کردم. ماکرو کار میکند ولی شیت مورد نظر رفرش نمیشود.
ممنون میشم کمک کنید.
Sub Control()
'
' Control Macro
'

'
Sheets("مطالبات").Select
Sheets("piv").Visible = True
With ActiveSheet
.Unprotect Password:="1"
Range("A2").Select
ActiveWorkbook.RefreshAll
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
.Protect Password:="1"
End With

Sheets("piv").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("مطالبات").Select
With ActiveSheet
.Unprotect Password:="1"

Range("A2:P2").Select
Selection.AutoFilter
Selection.AutoFilter

ActiveSheet.Protect Password:="1", _
DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True

End With
Sheets("System").Select
Range("L1").Select
End Sub

[iranweld]

کد فایل شما اصلاح گردید