mit VBA, Selection.Change usw ...
29.05.2009 13:43:51
Klaus
Hallo Björn,
das geht ungefähr so:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With ActiveSheet
.Unprotect
If .Range("A1") = "ja" Then
.Range("B1").Locked = False
Else
.Range("B1").Locked = True
End If
.Protect
End With
End Sub
oder kürzer:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With ActiveSheet
.Unprotect
.Range("B1").Locked = Not (Range("A1") = "ja")
.Protect
End With
End Sub
Beides funktioniert, geht aber bestimmt eleganter und Ressorcenschonender - ich lass mal offen, vielleicht schaut ja einer der VBA-Experten vorbei und verbessert!
Grüße,
Klaus M.vdT.