also mein Blatt ist teilweise gesperrt auser, ab der Spalte H und die Spalte B, wenn ich nun das Kontrolläkchen aktiviere soll die Spalte H und die Zelle B4 gesperrt sein und wenn ich das Häkchen entferne soll die Spalte H und die Zelle B4 entsperrt sein und wenn es geht die Schrift rot wie in der Abb. Ich habe es versucht mit dem Makrorekorder aufzuzeichnen hatte aber keinen erfolg. Ich hoffe ihr könnt mir helfen.
Beispiel siehe unten.
Gruß steffi
Private Sub CheckBox1_Click()
If Me.CheckBox1.Value Then
ActiveSheet.Unprotect
Range("B4,H:H").Select
Range("H1").Activate
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True
Else
ActiveSheet.Unprotect
Range("B4,H:H").Select
Range("H1").Activate
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True
End If
If Me.CheckBox1.Value Then
[b4].Value = Date
Else
[b4] = ""
End If