Couple of Userform, Change event queries

Hi,

Still basic to VBA, however managed to cobble together my workbook with the functionality I need bar a few missing bits.

Please see attached
PC.xlsm

I have the petty cash sheet to recall Login_Form when clicking cell in Row W. However I need it to insert the username into active cell.

My next step would be to lock the row.

I have posted HERE

I confident I can achieve a before save event to lock the last used row but what would be great if there was a way to lock the row with the password of the person who last used it. I trying to create a form of accountability and make it secure as possible.

Any help would be appreciated

I sure I have to put something in this code. If username and password is correct insert username to active cell. Username is textbox1

Public pattempts
Private Sub cmbValidate_Click()

If Trim(TextBox1.Text) = "" Then
    MsgBox "Please enter your login", vbCritical, "Login error"
    Exit Sub
End If
If Trim(TextBox2.Text) = "" Then
    MsgBox "Please enter your password", vbCritical, "Password error"
    Exit Sub
End If

Set login = Sheets("User Database").UsedRange.Resize(, 1).Find(TextBox1.Text, , xlValues, xlWhole)
If login Is Nothing Then
    pattempts = pattempts + 1
    If pattempts = 3 Then Call close_wkb
    TextBox3.Text = TextBox3.Text + 1
    MsgBox "You have tried " & pattempts & " time and " & IIf(pattempts = 1, 2, 1) & " attempts left", vbInformation, "Validation error"
    Exit Sub
End If

Set Password = login.Offset(, 1)
If Password <> TextBox2.Text Then
    pattempts = pattempts + 1
    If pattempts = 3 Then Call close_wkb
    TextBox3.Text = TextBox3.Text + 1
    MsgBox "You have tried " & pattempts & " time and " & IIf(pattempts = 1, 2, 1) & " is balance", vbInformation, "Validation error"
    Exit Sub
End If

Login_Form.Hide

End Sub

username aaa pass 1234

Thanks for looking

Originally Posted by CSLim

Hi welshman010,

May I have any 1 of the username or passwords created in your file attached so I can take some opportunity to test my codes before giving you my suggestion?
Username & passwords set in file PC.xlsm

Thanks for your understanding.

I have tweaked it some more adding validationlist to ROW W see attached. PC2.xlsm