Excel 2013 VBA - updating Power Query on a protected

The code below works fine if it’s stepped through using F8. The purpose is to

Unprotect a sheet
Update a power query query
Reprotect the sheet

However, when assigned to a button, I get an error: 'cannot make changes to a protected sheet'.

Public Sub UpdatePowerQueries()
    ' Macro to update my Power Query script(s)
    
    Dim cn As WorkbookConnection
    
    ActiveSheet.Unprotect Password:="ecart"
    
    For Each cn In ThisWorkbook.Connections
        If cn = "Power Query - Query1" Then cn.Refresh
    Next cn
        
    With ActiveSheet
       .Protect Password:="ecart", AllowFiltering:=True, AllowSorting:=True, DrawingObjects:=True _
        , Contents:=True, Scenarios:=True, AllowUsingPivotTables:=True, UserInterfaceOnly:=True

    End With
     
End Sub

Select allOpen in new window