When a password is entered...

[jimmywanna]

I have a macro which runs to make the user enter a password after a control button is pushed. It works perfectly, my only problem is when the password is entered the text being typed is visible. Is there any way of the text appearing as "******" or "XXXXXXX" so as anyone around cannot see the password?

thanks in advance guy's

jim

here is the macro:

Sub UNHIDEFORM()
'
' UNHIDEFORM Macro
' Macro recorded 30/01/2004 by gibsonj
'

'
Dim Pass, Msg As String
Dim Ans As Byte
Msg = "Wrong Password" & vbCrLf
Msg = Msg & "Try Again ?"
Password = "PRESLEY" ' Case sensitive
Pass = "xxx"

Do Until Pass = Password
Pass = InputBox("Enter Password", "Password")
If Pass = "" Then ActiveWorkbook.Close SaveChanges:=False
If Pass <> "PRESLEY" Then Ans = MsgBox(Msg, vbCritical + vbYesNo, "Password")
If Ans = vbNo Then ActiveWorkbook.Close SaveChanges:=False
Loop
Range("A1").Select

Columns("B:J").Select
Selection.EntireColumn.Hidden = False
Range("E2:F2").Select
End Sub

 

[jimmywanna]

It all works a treat Richie, exept I need the bottom of the macro to be like this:
Private Sub CommandButton1_Click()

Const Password As String = "PRESLEY" ' Case sensitive
Dim Pass As String, Msg As String
Dim Ans As Integer

Msg = "Wrong Password" & vbCrLf & "Try Again ?"
Pass = TextBox1.Text

If Pass = "" Then ActiveWorkbook.Close SaveChanges:=False

If Pass <> "PRESLEY" Then
Ans = MsgBox(Msg, vbCritical + vbYesNo, "Password")
If Ans = vbNo Then
ActiveWorkbook.Close SaveChanges:=False
Else
TextBox1.Text = ""
TextBox1.SetFocus
End If
Else
Unload Me

End If
Columns("B:J").Select
Selection.EntireColumn.Hidden = False
Range("E2:F2").Select
End Sub

Now at the moment it unhides the columns anyway if a wrong password is entered and leaves Userform2 still needing a Password.

Am i right in thinking that it will need to be looped?

I tried this but apparently i didn't have a "do"

any help?

jim

 

[jimmywanna]

bump

 

[countryfan_nt]

Wow! I am impressed!

I am sorry to push it but how about if I have a database and I want each employee to only see his/her data. Ie all staff need to enter the username and password. How do I go about that?

Thanks guys!