CHANGING THE INPUT MASK OF AN INPUTBOX OPTION TO 'PASSWORD'
Posted on 2004-10-03
I am using an InputBox solution to pop up a window asking the user to enter a supervisor password to allow reprinting of a report. Once the user has entered the successfull password, the Printed value is changed from True to False thereby allowing the report to be printed again.
This is working perfectly. Except that the password is visible to anyone who watches the supervisor enter the password into the InputBox.
Is it possible to change the input mask of the InputBox to be password (i.e. display stars instead of the actual password)?
I am using the code below to run this solution:
Private Sub cmdReprintTicket_Click()
If IsNull(Me.Option) Then
MsgBox "Enter Ticket Option To Continue", vbCritical, "GBF Management"
Dim Message, Title, Password
Message = "Enter Supervisor Password"
Title = "Supervisor Action: Reprint Tickets"
Password = InputBox(Message, Title)
If Password = "superpass" Then
Me.Printed = False
MsgBox "You Can Now Reprint This Ticket", vbInformation, "GBF Management"
MsgBox "Incorrect Supervisor Password", vbCritical, "GBF Management"
Thx In Advance