Fixing Update Macro

[bgrish3]

Hello,

I have a dashboard that is linked to about 6 different Pivot Tables. In that dashboard I have about 6 different filters to play with the various charts.

I have the worksheet protected with the exception to the "Use PivotTable Reports" check box so the user can see their results without messing up the dashboard.

I put in the following VBA linked to a form control button to be able to refresh the pivot tables and the charts as they input their data, but the problem I'm having is that every time I push the button and the data is refreshed, the "Use PivotTable Reports" check box gets un-checked when the worksheet re protects.

Is there anything that I can add to fix this problem?

Sub UpdateAll()
Dim pt As PivotTable
With ActiveSheet
.Protect Password:="MyPassword", UserInterfaceOnly:=True
For Each pt In .PivotTables
pt.RefreshTable
Next pt
End With
End Sub

[bakerman2]

How about ?

Please Login or Register  to view this content.

[bgrish3]

Yes that worked.

Thank you so much!!

[bakerman2]

You're welcome.