Zellen schützen
13.09.2005 15:46:46
jon
ich wollte mit diesem Code eine Zelle unbeschreibbar machen, konnte dann aber keine einzige Zelle mehr beschreiben. Was ist falsch? Das "nein" kommt durch eine DropDown-Liste zustande, falls das wichtig ist... Vielen Dank jetzt schon, jon.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ber As Range
Set ber = Intersect(Target, Range("C4"))
If Not ber Is Nothing Then
Me.Unprotect
If Range("C4") = "nein" Then Range("C5") = ""
Range("C5").Locked = Range("C4") = "nein"
Me.Protect
End If
End Sub
Anzeige