Restricting Pivot Tables
 

I have a pivot table I wish to distribute to users but wish to restrict what
they can do thereafter.

I have used the usual sub as shown below. My problem is I want to withdraw
the Pivot Wizard but allow them access to the Field List. However if I run
the sub below I find that as long as .EnableWizard = False the Field List
will not appear even if .EnableFieldList = True.

Please help!

Sub RestrictPivotTable()
Dim pf As PivotField
With ActiveSheet.PivotTables(1)
..EnableFieldList = True 'False
..EnableWizard = False 'false
..EnableDrilldown = True
..EnableFieldDialog = True
..PivotCache.EnableRefresh = True
..EnableFieldList = True 'False

For Each pf In .PivotFields
With pf
'.DragToPage = False
'.DragToRow = False
'.DragToColumn = False
' .DragToData = False
'.DragToHide = False
End With
Next pf
End With

End Sub