Protect Pivotchart, but leave it selectable?

[caringsharingbristolbilly]

Hi all,

I'm trying to lock down a spreadsheet so that users can change a Pivotchart using slicers, but not in any other way as I need data rounding as a calculated field. I can do this, but only by locking the Pivotchart, which means the user can't select it. This is a problem because I want them to be able to select the chart to copy it into Word docs, presentations, etc.

Is there a way to allow the user to select the Pivotchart, but not be able to view all the fields?

Thanks in advance!
CSBBB

 

[caringsharingbristolbilly]

Never mind, found it! For reference, I used this code:

Sub ShowPivotTable()
Dim pf As PivotField
With ActiveSheet.PivotTables(1)
.EnableWizard = True
'.EnableDrilldown = True
.EnableFieldList = False
.EnableFieldDialog = False
.PivotCache.EnableRefresh = True
'For Each pf In .PageFields
'With pf
'.DragToPage = False
'.DragToRow = False
'.DragToColumn = False
'.DragToData = False
'.DragToHide = False
'End With
'Next pf
End With
End Sub

which is from http://www.mrexcel.com/forum/excel-questions/434469-lock-protect-pivot-table-layout.html

Thanks all the same!