Vba kode giver fejl ved låst regneark

Håber nogen kan hjælpe mig med dette, da det ingen mening giver for mig.

Denne kode virker uden fejl i et ulåst regneark, men fejler når regnearket er last:

With Sheets("ansættelsesbrev").Range("stillingsbetegnelse").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="Lærer med uddannelse,Lærer uden uddannelse"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

Mit problem er, at regnearket skal ende med at være last efter denne kode er kørt, men selvom jeg lægger:
ActiveSheet.Protect Password:="password"
I slutningen, er det nok til at koden fejler.