Private Sub CheckBox1_Click()
With Sheets("Tabelle1")
.Unprotect "passwort"
.Range("A1").Locked = IIf(CheckBox1, True, False)
.Protect "passwort"
End With
End Sub
Private Sub UserForm_initialize()
CheckBox1 = Sheets("Tabelle1").Range("A1").Locked
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
Set c = Range("A1:A100")
Set Target = Intersect(c, Target)
If Not Target Is Nothing Then
ActiveSheet.Unprotect ""
For Each c In Target.Cells
With c
.Font.Name = "Marlett"
.Font.Size = 10
If .Value = "r" Then
.Value = "a"
.Font.ColorIndex = 50
Cells(.Row, "D").Locked = False
Else
.Value = "r"
.Font.ColorIndex = 3
Cells(.Row, "D").Locked = True
End If
End With
Next
ActiveSheet.Protect ""
End If
End Sub
Diese bewirkt, daß bei einem Klick auf die ersten 100 Zeilen in Spalte A ein rotes Kreuz bzw. ein grünes Häkchen gesetzt wird, entsprechend dem Zustand "Gesperrt/frei" der (beispielsweise) Spalte "D", der damit auch gleich gesetzt wird.
Ich hoffe das hilft dir mehr...
mfg