سلام
من این ماکرو رو برای رفرش یه شیت حاوی 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
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
علاقه مندی ها (Bookmarks)