Skrivebeskyttet celle

Jeg har i arket "AnvendteNumre" en forspørgselstabel med 1 kolonne, som ved opdatering henter aller lønnumre i vores lønsytem.

I arket "Nyt lønnummer" har jeg 3 felter med formler:
1) =SLUMPMELLEM(1000;9999)
2) =HVIS(ER.FEJL(Kontrol)=SAND;"Medarbejdernummeret kan anvendes";"")
3) =HVIS(ER.FEJL(Kontrol)=SAND;"Medarbejdernummeret kan IKKE anvendes";"")

Når jeg åbner regnearket, køres følgende makro:
Private Sub Workbook_Open()
 
    Sheets("Nyt lønnummer").Unprotect Password:="xxx"
    Application.Calculation = xlManual
           
    Sheets("AnvendteNumre").Visible = True
    Sheets("AnvendteNumre").Unprotect Password:="xxx"
    Application.Goto Reference:="AnvendteNumre"
    Selection.ListObject.QueryTable.Refresh
    Calculate
       
    Sheets("AnvendteNumre").Visible = False
    Sheets("Nyt lønnummer").Select
    Range("B4").Select
    Sheets("AnvendteNumre").Protect Password:="xxx"
    Sheets("Nyt lønnummer").Protect Password:="xxx"
   
                   
End Sub


Jeg kan ikke forstå, hvorfor jeg ved åbning af regnearket får følgende fejlmeddelse:
"Den celle, eller det diagram, du prøver at ændre, er skrivebeskyttet".
Fejlmeddelsen kommer ikke hvis jeg kører koden igennem med F8 i Visual Basic.