Power querry opdatering fejler

Jeg har nogle ark der skal samles i et ark via power querry.
samle arket er beskyttet

Når jeg låser der op - opdaterer alle - og igen låser .
Kører alt upåklageligt

Men indspiller jeg den sekvens og kører den - får jeg fejl meddelelse om at arket er skrivebeskytte???

Nogen der kan hjælpe???
ActiveSheet.Unprotect
ActiveWorkbook.RefreshAll
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
end sub