Einen wunderschönen guten Abend.
Ich bin neu im Forum und habe da mal eine Frage, die mich seit Tagen beschäftigt:
Ich habe per unten stehendem Code eine Passwortabfrage zum
Öffnen eines Tabellenblattes. Klappt auch wunderbar. Leider ist das Kennwort bei der Eingabe sichtbar.
Im Forum hab ich schon mehrfach gefunden, dass man dieses mittels Textbox - PasswortChar ändern kann. Nun verwende ich hier aber eine InputBox und keine Textbox innerhalb eines UF.
Meine Frage: Ist es möglich den u.g. Code so zu ändern, dass statt des Kennwortes Sternchen erscheinen, oder ist es wirklich nur mittels UF und Textbox zu schaffen?
Wie müsste der Code für die Textbox bzw. den cmd aussehen?
Dim strPW As String
Dim strEingabe As String
strPW = "TEST"
strEingabe = InputBox("Hier geht´s nur mit Passwort weiter.", "Passwort - Abfrage")
If strPW strEingabe Then
MsgBox "Passwort ist falsch! Zugriff auf das Archiv wird verweigert!", vbExclamation
Else
Application.Visible = True
Sheets("Übersicht").Select
Range("b3").Select
End If
End Sub
Für eure Antworten jetzt schon besten Dank im Voraus