Excel Zellen automatisch nach Eingabe sperren
24.04.2017 08:12:22
Fabian
ich möchte in einer Tabelle die Möglichkeit haben, dass einzelne Zellen nach der
Eingabe durch ein Passwort gesperrt werden. Bei einer Änderung der Zelle soll
dann erst das Passwort in einem Inputfenster abgefragt werden. Bis jetzt habe ich
folgenden VBA Code dafür:
Private Sub Worksheet_Change(ByVal Target As Range)
'Code sperrt die Zelle, in die eine Eingabe gemacht wurde
Dim rngCell As Range
Set Target = Intersect(Target, Range("A1:I250"))
If Target Is Nothing Then Exit Sub
Me.Unprotect ("123")
For Each rngCell In Target
rngCell.Select
Selection.Locked = rngCell ""
Next
Me.Protect ("123")
End Sub
Dieser Code erfüllt schon die Anforderungen, aber bei einer Änderung der Tabelle
kommt ein Hinweis, dass die Zelle gesperrt ist. Danach muss ich dann erst mit
Rechtsklick auf das Tabellenblatt den Blattschutz entfernen.
Ich hoffe einer kann mir dabei helfen, wie dieser letzte Schritt einfacher geht.