Office: (Office 2016) Passworteingabe mit Sternchen

Hallo liebes Forum:
Bräuchte bitte eure Hilfe.

Tabelle1 ist mit "xlVeryHidden" ausgeblendet. Möchte in meinem Code (s.u.) die Passworteingabe mit Sternchen eingeben, damit das Passwort nicht sichtbar ist. Beim Betätigen des Abbrechen Buttons muss ich "debuggen". Beim Abbrechen würde ich gerne die Passwortabfrage beenden.


Sub M_Tabelle1_Einblenden()
'
'
Dim vrAnt As Variant
vrAnt = Application.InputBox("Bitte Passwort eingeben", "Eingabe", Type:=2)
If StrPtr(vrAnt) = 0 Then
Exit Sub
Else
If vrAnt = vbNullString Then
MsgBox "Bitte geben Sie ein Passwort ein."
Else
If vrAnt = "mein Passwort" Then Worksheets("Tabelle1").Visible = True 'wenn Tabelle eingeblendet, soll sie ausgewählt und die Zelle angewählt werden
Sheets("Tabelle1").Select
Range("D14:K14").Select
End If
End If

End Sub


Vielen vielen Dank für Eure Hilfe.

LG srbär

:)

 

http://hajo-excel.de/gepackt/fremd/inputbox.zip

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Hallo,

was Hajo damit (wahrscheinlich) sagen will ist: Verwende statt der (Standard)Inputbox eine Userform zur Eingabe des Passworts. In einer Userform kann man ein Textfeld verwenden. In den Eigenschaften des Textfeldes kann man unter "PasswordChar" das Zeichen hinterlegen, das statt der Eingabe angezeigt werden soll (z. B. *).

 

Hallo Michael,

Nein, es ist ohne UserForm.

 

Hallo Hajo,

danke für die Info. Vermutlich wurde dann mit irgendwelchen API-Funktionen jongliert. Dann lautet meine Empfehlung, eine Userform zu erstellen und die Eingabe des Passworts über die Userform zu realisieren. Das ist einfacher und verständlicher.

 

Hier noch ein Link zum Thema:
Online - Excel Programmierung VBA Makro: Passwort abfragen

 

vielen Dank an alle, habe das Problem mittels Userform1 gelöst.

Wünsche allen ein frohes Weihnachtsfest und ein gutes neues Jahr.