lukning af celle

Læg denne makro i arkets kodemodul:

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Protect Contents:=False
    Target.Locked = True
    ActiveSheet.Protect Contents:=True
End Sub

Start så med at markere hele arket og fjerne Fluebvenet fra låst i  Formater - Celler - Beskyttelse. Vælg Funktioner - Beskyt ark (uden adgangskode).

Nu låses cellerne efterhånden som de udfyldes.

tak for det..

Men lige en ting mere får ikke at være besværlig.
hvordan bestemmer jeg hvilke celler der skal benyttes,
nogle skal være låst fra start..