Wie man ein Passwort setzt, wenn jemand in Excel auf "Unprotectsheet" klickt und eine Schaltfläche zum Bearbeiten erstellt

Ich habe Zellen in einer Tabelle mit diesen Codezeilen gesperrt.

Range("A1:D23").Select
Selection.Locked = True
ActiveSheet.Protect Contents:=True

Dies fordert mich immer dann auf, wenn ich auf eine Zelle klicke, die schreibgeschützt ist, um den Schutz des Blattes von der Registerkarte "Überprüfung" aufzuheben, und möglicherweise zur Eingabe eines Kennworts aufgefordert wird.

Mein Problem ist, dass es nicht zur Eingabe eines Kennworts auffordert. Wie lege ich das Kennwort zum ersten Mal fest, wenn der Schutz aufgehoben werden soll? Zweitens möchte ich die Zeileninformationen übergeben, die er zum Ändern ausgewählt hat, und eine Schaltfläche erstellen, wenn die angrenzende schreibgeschützte Zelle verwendet wird zum Bearbeiten.

Antworten auf die Frage(2)

Ihre Antwort auf die Frage