Refresh pivot tables - "Error: Cannot update PT on protect sheet" (sheet not protexted)

[BartSeli]

Dear all,

I recorded/edited the following code to update some pivot tables on hidden/protected sheets. The code worked fine, but suddenly I get an error that "I cannot update pivot tables on a protected sheet" (see line in bold). However, this sheet is only hidden (not protected). I already included a line to unprotect it (even it's not protected), but I keep getting the same error message.

Can someone help me on this and explain what i did wrong?

Kind regards,

Bart

Sub UpdateActuals()
'
' UpdateActuals Macro
'

ActiveSheet.Unprotect Password:="otsa"
Sheets("pivots TT actuals (1)").Visible = True
Sheets("pivots TT actuals (2)").Visible = True
Sheets("Pivots TT actuals (1)").Select
Sheets("pivots TT actuals (1)").Unprotect Password:="otsa"
Sheets("pivots TT actuals (2)").Unprotect Password:="otsa"
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable5").PivotCache.Refresh
Sheets("Pivots TT actuals (2)").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
Sheets("Overzicht TT - Actuals & KPI").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
Rows("61:69").Select
Selection.EntireRow.Hidden = True
Range("I15").Select
Sheets("pivots TT actuals (1)").Visible = False
Sheets("pivots TT actuals (2)").Visible = False
ActiveSheet.protect Password:="otsa"
End Sub

[JosephP]

do you have another pivot table on a still protected sheet that uses the same cache?

[BartSeli]

This was indeed the problem! Ptretty weird because the code was working properly before (nothing has changed). Wrote code to unprotect the other sheets and now everything is backt to normal again.

Thanks for the help!

Kind regards,

Bart