elsuji
10-12-2019, 10:24 AM
Hi ,
I am having the following code.
Dim PassProtect As Variant If pblnEnteredPassword Then GoTo DoStuff
PassProtect = InputBox("Enter password to print calibration certificate soft copy" & vbCrLf, Title:="Control Panel")
If PassProtect = vbNullString Then Exit Sub
If PassProtect = "Boffice" Then
pblnEnteredPassword = True
GoTo DoStuff
Else
MsgBox Prompt:="Incorrect password. Please try again.", Buttons:=vbOKOnly
Exit Sub
End If
DoStuff:
I this when i enter my password it should display as ****** on my Inputbox
Can any one please help me to solve this
I am having the following code.
Dim PassProtect As Variant If pblnEnteredPassword Then GoTo DoStuff
PassProtect = InputBox("Enter password to print calibration certificate soft copy" & vbCrLf, Title:="Control Panel")
If PassProtect = vbNullString Then Exit Sub
If PassProtect = "Boffice" Then
pblnEnteredPassword = True
GoTo DoStuff
Else
MsgBox Prompt:="Incorrect password. Please try again.", Buttons:=vbOKOnly
Exit Sub
End If
DoStuff:
I this when i enter my password it should display as ****** on my Inputbox
Can any one please help me to solve this