Beskyt ark med kode, i en makro

Hej

Hvordan laver jeg en makro der beskytter et ark med kode, og kan låse arket op og skrive noget i bestemte celler og låse arket igen, med kode.
Hvis jeg optager en makro med kode, er det kun første gang jeg kører makroen, at jeg skal skrive koden, her efter er der ingen kode på beskyttelsen.

Sub BeskytArk()
    ActiveSheet.Unprotect
    ActiveCell.FormulaR1C1 = "test"
    Range("A1").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub