Excel Zellen sperren, abhängig von Eingabe

T.dot · 30.11.2004, 14:35

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

30.11.2004, 14:35	#2
T.dot Master Registriert seit: 13.08.2003 Beiträge: 624	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

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)