保護された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

は、あなたがタイトルを持っている必要があり