Lås et resultat af en formel

Marker alle celler i kolonne A og under Formater/Celler/fanebladet beskyttelse fjerner du fluebenet i Låst.

I modulet ThisWorkBook indsætter du følgende

Private Sub Workbook_Open()
    Worksheets("Ark1").Protect userinterfaceonly:=True
End Sub


I arkets eget kodemodul indsætter du så dette

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
    Target.Locked = True
End If
End Sub


Herefter vil man kunne taste i hver celle i kolonne A een gang, hvorefetr cellen vil være låst.
Dette vil dog først starte når filen har været gemt, lukket og genåbnet.

Hej bak
den funktion du beskriver låser cellerne i kolonne A men det jeg er ude efter er ikke at låse kolonne A men resultatet i kolonne B dvs. at efter der er tastet i eks. A5 tages det en kopi af B5 der indsættes i B5 som "kun værdier"
Og der efter vil det ikke ændre på resultatet, hvis der senere skulle ændres på løn satsen i C1

Fint, så kan du nøjes med dette:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
    Target.offset(0,1).Value = Target.Offset(0,1).Value
End If
End Sub