ich versuche gerade eine Eingabe in einer Zelle nur dann zuzulassen
wenn ein Passwort eingeben wird.
Also zB in A1 kann ich eingeben was ich will außer "doof"
Wenn ich "doof" eingeben will muss ich ein Passwort eingeben.
Ich möchte damit diverse Features erst freigeben wenn jemand
"doof" in A1 eingibt und um das zu tun diesen Begriff unter Passwortschutz stellen.
Alle anderen Werte sind und sollen immer ohne PW Eingabe möglich sein!
Ich versuche es die ganze mit diesem Model, ohne gwünschten Erfolg:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Wks As Worksheet
Set Wks = ActiveSheet
If Target.Address = "$A$1" Then
Wks.Unprotect "123"
If Target = "doof" Then 'Zelle auf $A$1 eingestellt
Range("A1").Locked = True
Else
Range("A1").Locked = False
End If
Wks.Protect "123"
End If
End Sub
Danke mal für Eure Hilfe
VG
Nilo