Create a secure Password

[gmazza76]

I am using the VB below to create a password to load a userform, but the password seems to let people in if they type the first part right.

ie. if someone types "judi" instead of "Judy" it loads and works without any issues.

I preferable would like the password to be **** stared out as well as closing the userform down if the incorrect password is loaded

Sorry i have tried to step the VB but it keeps putting as below

Cheers

'If Ash Longman - Call Centre Enquiry
Dim iRow As Long
Dim ws As Worksheet
Dim lRow As Long
 
Set ws = Worksheets("Ashley Longman")
 
If UserForm2.ComboBox1 = "Ashley Longman" Then
 
Pword = InputBox("Please enter password")
If Pword = "judy" Then
 
ActiveWorkbook.Sheets("Ashley Longman").Activate
 
End If
 
Unload Me
lRow = Range("N" & Rows.Count).End(xlUp).Row + 1
For i = 3 To lRow
If Cells(i, 1).Value = "" Then Exit For
If Cells(i, 1).Value <> "" And Cells(i, 14).Value = "" Then
gotcha = True
UserForm1.Show False 
UserForm1.txtdate.Value = Cells(i, 1)
UserForm1.TextBox1.Value = Cells(i, 3)
UserForm1.TextBox13.Value = Cells(i, 2)
UserForm1.TextBox2.Value = Cells(i, 4)
UserForm1.TextBox3.Value = Cells(i, 7)
UserForm1.TextBox6.Value = Cells(i, 5)
UserForm1.TextBox5.Value = Cells(i, 6)
UserForm1.TextBox4.Value = Cells(i, 8)
UserForm1.TextBox7.Value = Cells(i, 9)
UserForm1.TextBox8.Value = Cells(i, 10)
UserForm1.TextBox9.Value = Cells(i, 13)
UserForm1.TextBox14.Value = Cells(i, 11)
UserForm1.TextBox15.Value = Cells(i, 12)
UserForm1.TextBox11.Value = Cells(i, 4)
 
 
With UserForm1.CBoxAdd
.AddItem "Ash Young"
.AddItem "Chris Holcombe"
.AddItem "Chris Nash"
.AddItem "David Watson"
.AddItem "Gary Littler"
.AddItem "Kris Harwood"
.AddItem "Michelle Porter"
.AddItem "Tim Nickson"
.AddItem "Zenny Asghar"
End With
 
With UserForm1.txtdate
.Enabled = False
End With
 
End If
Next
 
If gotcha = False Then
MsgBox "Nothing to Update"
 
ActiveWindow.Close (True)
 
End If
 
End If

 

[shg]

You have no code that says to do anything different. Maybe

        Pword = InputBox("Please enter password")
        If Pword = "judy" Then
            Worksheets("Ashley Longman").Activate
        Else
            MsgBox "Oops!"
            Exit Sub
        End If