Andrew schreibt ein Makro und möchte den Benutzern die Möglichkeit geben, ihr Kennwort einzugeben, bevor sie bestimmte vom Makro bereitgestellte Funktionen verwenden können. Er verwendet die InputBox-Funktion und fragt sich, ob es eine Möglichkeit gibt, alles, was jemand eingibt, zu „streichen“, damit das Passwort während der Eingabe privat bleibt. (Dies geschieht in vielen Programmen, in denen alles, was eingegeben wird, auf dem Bildschirm durch Sternchen oder ein anderes Zeichen ersetzt wird.)

Es gibt keine direkte Möglichkeit, dies mit der InputBox-Funktion zu tun. Es enthält nicht die erforderliche Funktionalität. Es gibt Leute, die dies mit API-Aufrufen und dergleichen getan haben, aber das ist ziemlich kompliziert und geht aller Wahrscheinlichkeit nach über den Rahmen von ExcelTips hinaus.

Ein einfacherer Ansatz besteht darin, eine eigene UserForm in VBA zu erstellen. Das Formular kann eine TextBox enthalten, und das Steuerelement enthält eine Eigenschaft, die Sie als Maskierungszeichen festlegen können, wenn jemand ein Kennwort eingibt. Wenn Sie das Eigenschaftsfenster für das TextBox-Steuerelement anzeigen, wird eine Eigenschaft mit dem Namen PasswordChar angezeigt. Stellen Sie dies auf ein beliebiges Zeichen ein, das für die Maskierung verwendet werden soll. Sie können beispielsweise ein einzelnes Sternchen in die Eigenschaft einfügen.

Wenn Sie überprüfen möchten, ob der Benutzer das richtige Kennwort eingegeben hat, müssen Sie lediglich den Wert im TextBox-Steuerelement überprüfen. Es wird „klar“ (nicht maskiert) sein, während die Bildschirmversion maskiert bleibt. Mit anderen Worten, wenn jemand „MyPass“ als Passwort eingibt, ist dies der Wert, der dem Steuerelement selbst zugeordnet ist.

Auf dem Bildschirm werden jedoch sechs Sternchen (oder ein von Ihnen angegebenes Maskierungszeichen) angezeigt, eines für jeden eingegebenen Buchstaben.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (3120) gilt für Microsoft Excel 97, 2000, 2002 und 2003.