Ist hier eine komplette Lösung, die wie Sie wünschen arbeitet.
Von Ihrem Projekt Forscher in VBA, ein Blatt als das xlSheetVeryHidden verstecken (für das Sichteigentum).
Von einem sichtbaren Blatt eine Zelle vorwählen, die für Benutzer vorhanden ist, die das Kennwort ändern.
Vom sichtbaren Blatt Form kodieren, addieren diesen Code:
-----
Wahl ausdrücklich
Privates VorWorksheet_Change (ByVal Ziel als Strecke)
Wenn (Target.Column = 2 und Target.Row = 1) dann
Schwaches newPassword: newPassword = Target.FormulaR1C1
Target.FormulaR1C1 = ""
Application.ActiveWorkbook.Worksheets (2).Cells (1, 1).FormulaR1C1 = newPassword
Beenden wenn
Unterseeboot beenden
-----
Überprüfen, ob die Spalte (2 in meinem Beispiel) und die Reihe (1 in meinem Beispiel) Ihre Kennwortzelle passen.
Auch den Index Ihres versteckten Arbeitsblattes bis das passende ändern (2 in meinem Fall - es ist ein null gegründeter Index).
Zu retreive verwenden Ihr verstecktes Kennwort, diesen Code:
Application.ActiveWorkbook.Worksheets (2).Cells (1, 1).FormulaR1C1
Nicht vergessen, den passenden Index dort einzustellen auch.
Schließlich nicht vergessen, ein Kennwort auf Ihr Projekt zu setzen, also können andere Leute die Blattsicht nicht ändern.
========
Ich denke, dass es die einzige Weise ist, die Sie genau erzielen konnten, was Sie wünschen.
PS. Selbstverständlich können Sie das Kennwort durch ******** ersetzen, anstatt, den Text wie in meinem Beispiel zu löschen.
