Pivot Table Refresh with Sheet Protection

[fareedexcel]

I have 11 excel files in One Drive.

Combined all those 11 excel file and made a master file with pivot table. On Every refresh, pivot table will get updated as per the change made in the 11 excel file.

I want to protect the master file sheet with a password but I'm getting error. Now the refresh is happening properly,

Sub Rectangle4_Click()
Sheets("Occupancy").Select
ActiveSheet.PivotTables("PivotTable1").RefreshTable
MsgBox ("Data Refreshed!!")
End Sub

While trying to protect the file I'm getting error as per attachment. Even in the password protection properties I have clicked "Edit Pivot Tables".

May be when I'm trying to refresh the pivot table the error occurs because the pivot table is connected to Power Query and those 11 files in the power query were from One drive ??

 

[fareedexcel]

Any suggestions ?

 

[AlanSidman]

How about adding a line of code to unprotect, then refresh and then re-protect.