I'm assuming that this code is behind Sheet2.

Private Sub WorkSheet_Change(ByVal Target As Range)
with me
.unprotect password:="TopSecret"
.PivotTables(1).PivotCache.refresh
.protect password:="TopSecret"
end with
End Sub

Me refers to the object that owns the code--in this case, it's the worksheet
being changed (and that has that pivottable).

wrote:

I have this code and without the sheet protection works good, but when i
activate the sheet protection it shows me an error, the code is as follows:

Private Sub WorkSheet_Change(ByVal Target As Range)
Sheets("Sheet2").PivotTables(1).PivotCache.refresh
End Sub

is there an option to avoid this error?

regards

--

Dave Peterson