Password i makro

Hej
Mit regneark indeholder nedenstående makro. Når jeg lukker regnearket og åbner det igen, så beder den om password når jeg opdaterer min forespørgsel. Kan denne kode lægges ind i makroen (i linie 4)?


Private Sub Workbook_Open()
 
    Sheets("AnvendteNumre").Visible = True
    Sheets("AnvendteNumre").Unprotect Password:="xxxxxxxxxx"
    Application.Goto Reference:="AnvendteNumre"
    Selection.ListObject.QueryTable.Refresh
    Sheets("AnvendteNumre").Protect Password:="xxxxxxxxxx"
    Sheets("AnvendteNumre").Visible = False
    Calculate
       
End Sub