на виндовс ХР, эксель 2010 все работает. Этот же макрос на фисе 365 выдает ошибку на ActiveSheet.Range. Не могу понять почему?
Подскажите пожалуйста, как нужно отредоктировать?
Подскажите пожалуйста, как нужно отредоктировать?
Код |
---|
Sub Обнов() Worksheets("Сводная").Unprotect Password:="11679" ActiveSheet.Range("$D$10:$D$37437").AutoFilter Field:=1 Range("D12").Select ActiveSheet.PivotTables("СводнаяТаблица5").RepeatAllLabels xlDoNotRepeatLabels Range("D14").Select With ActiveSheet.PivotTables("СводнаяТаблица5").PivotFields("ДО") .PivotItems("12:00:00 AM").Visible = True End With ActiveSheet.PivotTables("СводнаяТаблица5").PivotCache.Refresh With ActiveSheet.PivotTables("СводнаяТаблица5").PivotFields("ДО") .PivotItems("12:00:00 AM").Visible = False End With Worksheets("Сводная").Protect Password:="11679", DrawingObjects:=False, Contents:=True, Scenarios:= _ True, AllowFiltering:=True, AllowUsingPivotTables:=True End Sub |