Kennwortabfrage
24.02.2020 14:57:07
Silke
ich benötige fachliche Hilfe in VBA und hoffe hier fündig zu werden.
Ich habe eine UserForm (UserForm_Einstellungen) die nur durch autorisierte Personen geöffnet bzw. geändert werden darf.
Somit habe ich vor dem öffnen der Userform_Einstellungen eine Inputbox mit einer Kennwortabfrage (es gibt 3 verschiedene Kennwörter) zur Autorisierung vorgeschaltet. Alles funktioniert.
Leider kann man bei der Passworteingabe die komplette Eingabe mitlesen.
Ist es möglich ein Sternchen (*) für jede Ziffer in der Inputbox erscheinen zu lassen ?
Oder hat jemand eine andere Möglichkeit ?
Liebe grüße aus Willingen
Silke :-)
Sub Navi_cmd_Einstellungen()
Dim KennwortEingabe As String
KennwortEingabe = InputBox("Bitte geben Sie zur Autorisierung ihr Kennwort ein?", " _
Einstellungen")
ActiveWorkbook.Save
'Kennwort Nr.1
If KennwortEingabe = "Kennwort_1" Then
UserForm_Einstellungen.Enabled = True
UserForm_Einstellungen.Show
End If
'Kennwort Nr.2
If KennwortEingabe = "Kennwort_2" Then
UserForm_Einstellungen.Enabled = True
UserForm_Einstellungen.Show
End If
'Kennwort Nr.3
If KennwortEingabe = "Kennwort_3" Then
UserForm_Einstellungen.Enabled = True
UserForm_Einstellungen.Show
End Sub