Excel 2007 : Protected Sheet Pivot Table

[Geogeo]

Hi all,

I'm relitevly new to including macro's into my worksheets. I have a sheet with a pivot table in it that I want to be able to let users select multiple dates while having the rest of the sheet protected. I have worked out the below macro that refreshes the sheet while protected but then also locks the pivot table no dates can't be selected from the filter tab on the table. Can anyone give me the bit of code that would keep the pivot table usable?

Sub Refresh()
     
    ActiveSheet.Unprotect "Password"
    ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
    ActiveSheet.Protect "Password"
End Sub