보호 된 Excel 시트에서 확장/축소 버튼 사용 허용

Question

매크로를 사용하여 Excel 파일을 보호/보호 해제해야하지만 파일이 보호되는 동안 확장/축소 버튼을 사용할 수 있어야합니다. 피벗 테이블 클래스의 RowFields 속성을 가져올 수 없습니다 : 나는 이것을 사용하면 다음과 같은 에러가 발생합니다, 그러나

Sub IPMR() 
' 
' IPMR Macro 
' 
    Sheet1.Unprotect Password:="XXX" 
' 
    ActiveSheet.PivotTables("PivotTable1").PivotFields("FacilityName"). _ 
     ClearAllFilters 
    ActiveSheet.PivotTables("PivotTable1").PivotFields("FacilityName").CurrentPage _ 
     = "Inst of Physical Med and Rehab" 

     Set pt = ActiveSheet.PivotTables("PivotTable1") 
     Set pf = pt.RowFields("Row Labels") 
     pf.EnableItemSelection = True 

    Sheet1.Protect Password:="XXX" 
End Sub 

: 여기

collapse/expand buttons

내가 사용하고있는 코드입니다 : 여기 사진입니다 . 안내해주십시오. 고맙습니다. 작업 코드의

Sub showDetailsinPT() 
'I think your title in row lables is FacilityName? 
Dim TotalPTItem As PivotItems: Set TotalPTItems = ActiveSheet.PivotTables("PivotTable1").PivotFields("FacilityName").PivotItems 
Dim CounterPTItem As PivotItem 

For Each CounterPTItem In TotalPTItems 
CounterPTItem.ShowDetail = True 
Next CounterPTItem 
End Sub 

사진 : 그것은, 다음 코드를 시도에 대한 행 레이블을 정의하는 올바른 방법이 아니다

Answer 1

, 당신은 제목이 있어야합니다