Office: (Office 2007) Eingabe in InputBox verschlüsseln

Hallo VBA-Experten!

Ich frage beim Öffnen den Benutzernamen aus Windows aus und möchte, das der Benutzer ein von mir vergebenes Passwort eingibt. Alles kein Problem. Womit ich aber ein Problem hab, ist dass das Passwort bei der Eingabe in Klarschrift zu erkennen ist. Das möchte ich gerne ändern. Es soll da ein Platzhalter eingesetzt werden.

Vielleicht kann mir jemand helfen.

Ich hab den Abschnitt als Anschauungsmaterial einmal angehängt.


' Passwortabfrage
'
Public Sub User()
U = 0
Do
Dim strUserName As String, Username
strTemp = String(20, Chr$(0))
strTemp = Left$(strTemp, InStr(strTemp, Chr$(0)) - 1)
strUserName = String(20, Chr$(0))
GetUserName strUserName, 20
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
If strUserName = "uschma" Then Username = "Schmali"
UserAccess = Application.InputBox("Hallo " + Username + Chr(13) + Chr(13) + "Bitte geben Sie Ihr Passwort ein:")
If Username = "Schmali" And UserAccess = "Passwort" Then
Range("B1").Select
Exit Do
End If
If Username = "Schmali" And UserAccess "Passwort" Then
U = U + 1
If U = 3 Then
Antwort = MsgBox("Sie haben dreimal ein falsche Passwort eingegeben." + Chr(13) + Chr(13) + "Die BWA wird jetzt geschlossen", vbOKOnly)
Workbooks.Close
End If
Anwort = MsgBox("Falsches Passwort!" + Chr(13) + Chr(13) + "Nochmal!", vbOKOnly)
End If
Loop
End Sub



Vielen Dank schon mal im voraus.

Schmali

:)

 

Moin, Schmali,

die typischen Sternchen bei der Eingabe lassen sich nur auf einer UserForm in einer Textbox mit PasswordChar als * erzielen.

 

Hallo Schmali,

mit einer Userform wäre es zu 99% einfacher.
Inputbox versteckt http://www.herber.de/forum/archiv/332to336/t334923.htm am Ende im Beitrag.




Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem NT4 SP6 und Excel Version 2000 SP3

 

Das heisst für mich, ich muss es in ein UserForm bringen, sonst hab ich da wenig Chancen!

Danke hierfür erstmal Jinx. Wenn ich mit meinem UserForm noch Probleme hab, melde ich mich hier wieder.

Schmali

 

Moin, Schmali,

oder einmal den Ansatz per API probieren, der von Hajo bzw. Michael Schwimmer aufgezeigt wurde.

 

Ich hab das Ganze jetzt mittels eines Userforms gemacht.

Die Passwortabfrage funzt bestens. Auch das mit den *.

Danke hierfür an Hajo_Zi. Hab das Beispiel an meine Bedürfnisse angepasst.

Ich muss aber gleich weiter nerven. Und zwar lese ich (wie im ersten Thread beschrieben), den Username von Windows aus. Jetzt möchte ich in dem Userform einen Text erscheinen lassen, der "Hallo [Benutzer]" anzeigt. Ich komm aber an der Stelle irgendwie nicht weiter. Das Textfeld heisst bei mir Username. Kann mir dabei jemand helfen.

Es würde auch schon reichen, wenn mir jemand sagt, wie ich in der VBA einen Text angeben kann.

Private Sub Username_Click()
Username.
End Sub

 

Hallo Schmali,

Du liest den Usernamen aus, also hast Du ihn schon auf einer Variablen.

Username =Variable

Gruß Hajo

 

Hallo Hajo,

Danke auch für diesen Tip. Hat mich letztlich auf die richtige Spur gebracht.

Dank Euerer Hilfe konnte ich die Passwortabfrage mit einem Userform fertig stellen.

Vielen Dank nochmal.

Schmali