protection of pivot table

[ampm]

How can i protect my pivot table against writting on the fields, but I
want to able filter that fields ?

thanks

 

[Debra Dalgleish]

You can protect the worksheet programmatically as the workbook opens:

Private Sub Workbook_Open()

With Worksheets("Sheet4")
.EnablePivotTable = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With
End Sub


This will prevent users from typing in the worksheet cells, but they
would be able to change the field names by right-clicking on a field
button and choosing Field Settings.

 

[ampm]

Thanks,
it work very well, but how I can enable the refresh function too