correction in vb code required pivot refresh lock sheet

[Ateeb Ali]

Dear Sir,
I am using following code to refresh my pivot table which is on same sheet as of data
The sheet is protected as well since I dont want user to change the format but it is not working on lock sheet, in unlock sheet, its working fine.

Sub Pivot()
'
' Pivot Macro
'


'
ActiveWindow.SmallScroll Down:=24
Range("A37").Select
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
End Sub

 

[Chihiro]

Just use... replace Password with your actual password.

ActiveSheet.Unprotect "Password"
'Your code
ActiveSheet.Protect "Password"