StanKobrin
asked on
CHANGING THE INPUT MASK OF AN INPUTBOX OPTION TO 'PASSWORD'
Hi Experts
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"
Else
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"
Else
MsgBox "Incorrect Supervisor Password", vbCritical, "GBF Management"
End If
End If
End Sub
*******************
Thx In Advance
Stan
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"
Else
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"
Else
MsgBox "Incorrect Supervisor Password", vbCritical, "GBF Management"
End If
End If
End Sub
*******************
Thx In Advance
Stan
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
I have seen this question poping up a few times, and all the answers are similat to Aurther's,
You cannot Mask an Input box, you should use a Form to do that.
You can make the popup Form modal and look like the "user name" and "password" popup Form too.
jaffer