machen wirs einfacher
Google spuckst meist das aus [VBA]
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("d9")) Is Nothing Then
ActiveSheet.Unprotect Password:="geheim"
ActiveSheet.Range("d10").Locked = True
ActiveSheet.Protect Password:="geheim"
End If
End Sub
- Funktion wird aufgerufen
- if wird aufgerufen
- Passwort stimmt
- Sperrung wird aufgehoben und wieder gesetzt
aber: die Zelle ist nicht gesperrt.
irgendjemand ne Ahnung?
mfg Thomas