Passwort Abfrage
01.10.2018 18:14:46
Knight
ich habe mal wieder zwei Fragen an euch. Ich baue gerade an einem Makro. Das Makro soll erst dann ausgeführt werden, wenn ein Passwort hierfür eingegeben wurde. Das Makro, welches nach erfolgreicher Passworteingabe ausgeführt werden soll, ist in diesem Fall:
Sub TeamprotokollPDF() End Sub
Für die Passwortabfrage habe ich folgendes:
Sub CreateMail()
Dim password As Variant
' Passwort Abfrage
password = Application.InputBox("Passwort eingeben", "Passwortgeschützt")
Select Case password
Case Is = False
Case Is "Passwort"
' Falsches Passwort
MsgBox "Passwort nicht korrekt."
Case Else
' Den Makro ausführen
TeamprotokollPDF
End Select
End Sub
So jetzt zwei Probleme, das Eingabefeld wird nicht durch "*" geschützt, sodass nicht jeder das Passwort einsehen kann. Zweitens, man kann ja auf die Schaltfläche gehen, auf Makro zuweisen und dann das "TeamprotokollPDF auswählen um die Passworteingabe zu übergehen. Wie kann ich das am Besten lösen? Vielen Dank schon mal für eure Antworten.