Macro i Excel

Er det ikke lidt samme emne, som du efterspørger i et tidligere spørgsmål, som Jens48 har lavet forslag til, men som du endnu ikke har reageret på!

Jeg har rettet min oprindelige makro til

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then ' ret område det skal virke i, om nødvendigt
If Target <> "" And Target.Locked = False Then
ActiveSheet.Unprotect
With Target.Interior
    .Color = 255
End With
Target.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End If
End Sub

Men som ebea ganske korrekt skriver er det god stil at reagere på det man foreslår, hvad enten det kan bruges eller ej.

Jeg har forsøgt med ovenstående men får fejl besked,

Compile error:
Expect End Sub

Makro:

Sub Makro3()
'
' Makro3 Makro

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then ' ret område det skal virke i, om nødvendigt
If Target <> "" And Target.Locked = False Then
ActiveSheet.Unprotect
With Target.Interior
    .Color = 255
End With
Target.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End If
 
End Sub

#3 - Du forsøger at køre 2 makroer, samtidig. Fjern Sub Makro3()

Jeg kan ikke få macoren til at fungere.
Jeg opgiver projektet

Ingen grund til at opgive så hurtigt. Kopier den makro jeg viste i #2 (fra "Private Sub...." til og med End Sub), og højreklik på faneblad, Vælg Vis Koder og indsæt den der. Gem filen med makro (som xxxx.xlsm). Så skulle det køre.

Glemte lige at du også skal låse arket, men ikke nogen af de enkelte celler til at starte med.