Skrive til låste celler via VBA

Hej!

Hvordan kan jeg opdatere en værdi i en låst celle vha. VBA

Jeg har følgende kode som skal opdatere et tal i en celle,
Koden bliver eksekveret hver gang dokumentet bliver åbnet

Sub Makro1()
    Range("M3").Select
    Dim value
    value = CInt(ActiveCell.Value2)
    value = value + 1
    ActiveCell.FormulaR1C1 = value
End Sub

Det felt som skal opdateres er låst for brugeren