Refreshing Pivot Table on a Protected Sheet

[Matt F]

Hello,

I have a workbook with a data table and pivot table on a protected worksheet.

I would like the user to refresh the content in the pivot table when then unhide the pivot table content.

Can someone help with this Macro?

Sub show_hide()

ActiveSheet.Unprotect Password:="mypassword"

If Range("table_all_range").EntireRow.Hidden = True Then
Range("table_all_range").EntireRow.Hidden = False
  Else
Range("table_all_range").EntireRow.Hidden = True
End If

ActiveSheet.Protect Password:="mypassword"


End Sub

 

[Luke M]

How's this look?

Sub show_hide()
Const MyPass = "mypassword"

ActiveSheet.Unprotect MyPass
With Range("table_all_range").EntireRow
    'Change to a toggle
    .Hidden = Not .Hidden
End With
'Refreshes the 1st PivotTable in our sheet
'In this workbook, there's only 1. Otherwise, can specify the name like
'ActiveSheet.PivotTables("PivotTable6").PivotCache.Refresh
ActiveSheet.PivotTables(1).PivotCache.Refresh

ActiveSheet.Protect Password:=MyPass

End Sub