Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

InputBox nicht lesbar machen

Betrifft: InputBox nicht lesbar machen von: Serge
Geschrieben am: 28.07.2014 17:53:44

Hallo Leute
mit folgendem Makro frage ich nach einem Passwort ab:

Private Sub Worksheet_Activate()
Dim myInput As String
myInput = InputBox("Code eingeben?")
If Not myInput = "passwort" Then
MsgBox "Falscher Code!"
    Sheets("Entree").Select
    ActiveWorkbook.Close
Else
    ActiveWorkbook.Unprotect Password:="passwort"
    Sheets("Banque").Select
End If
End Sub

Aber die Eingabe in der InputBox ist sichtbar in Klartext!!!
Wie kann ich bewirken dass die Eingabe nicht von einem anderen sichtbar oder erkennbar wird?
Danke für Euere Hilfe
Serge

  

Betrifft: AW: InputBox nicht lesbar machen von: Hajo_Zi
Geschrieben am: 28.07.2014 17:57:16

Hallo Serge,

benutze eine UserForm ist einfacher.
http://hajo-excel.de/chCounter3/getfile.php?id=234

GrußformelHomepage


  

Betrifft: benutze ein UserForm mit Textbox von: Matthias L
Geschrieben am: 28.07.2014 17:57:18

Hallo

Die Textbox hat eine Eigenschaft: PasswordChar
Dort legst Du fest wie die Anzeige aussehen soll.

Gruß Matthias


 

Beiträge aus den Excel-Beispielen zum Thema "InputBox nicht lesbar machen"