Code for login id to be unique

[Gourav]

Hi
i am quite new to vba. i am trying to create a login/register screen. My motive is to

a) Encrypt the password in the Password textfield in the userform but when it is stored in the excel sheet, it should be decrypted
b)here is a piece of code . Whatever Login ID i give, it always says "Userlogin is already present. Please use some other login"

Private Sub rgcmdbtsv_Click()
Dim insertrow As Integer
Dim i As Integer, Message As Integer
'Dim wspwd As Sheets
'Set wspwd = Worksheets("Passwords")
insertrow = Worksheets("Passwords").UsedRange.Rows.Count + 1
If insertrow > 1 Then
For i = 2 To insertrow - 1
If StrComp(rgtxtbxlid.Value, Worksheets("Passwords").Cells(insertrow, 2).Value, vbTextCompare) = 0 Then
Message = MsgBox("Userlogin is already present. Please use some other login", vbOK, "Try again")
rgtxtbxlid.Value = ""
Exit For
ElseIf rgtxtbxnm.Value = "" Then
Message = MsgBox("Name cannot be null", vbOK, "Try Again")
Exit For

ElseIf rgtxtbxlid.Value = "" Then
Message = MsgBox("Login ID cannot be null", vbOK, "Try Again")
Exit For

ElseIf rgtxtbxpwd.Value = "" Then
Message = MsgBox("Password cannot be null", vbOK, "Try Again")
Exit For

Else
Worksheets("Passwords").Cells(insertrow, 1) = rgtxtbxnm.Value
Worksheets("Passwords").Cells(insertrow, 2) = rgtxtbxlid.Value
Worksheets("Passwords").Cells(insertrow, 3) = rgtxtbxpwd.Value
End If

Next
Else
End If

End Sub

Please Login or Register  to view this content.

[Fotis1991]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

[Gourav]

modified my code but still having the same problem with login id. even if i put duplicate login id, no error is thrown

Private Sub rgcmdbtsv_Click()
Dim insertrow As Integer
Dim i As Integer, Message As Integer
'Dim wspwd As Sheets
'Set wspwd = Worksheets("Passwords")
insertrow = Worksheets("Passwords").UsedRange.Rows.Count + 1
'If insertrow > 1 Then
' For i = 2 To insertrow - 1

If rgtxtbxnm.Value = "" Or IsNull(rgtxtbxnm.Value) Then
Message = MsgBox("Name cannot be null", vbOK, "Try Again")
rgtxtbxnm.SetFocus
Exit Sub
End If

If rgtxtbxlid.Value = "" Or IsNull(rgtxtbxlid.Value) Then
Message = MsgBox("Login ID cannot be null", vbOK, "Try Again")
rgtxtbxlid.SetFocus
Exit Sub
End If

If rgtxtbxpwd.Value = "" Or IsNull(rgtxtbxpwd.Value) Then
Message = MsgBox("Password cannot be null", vbOK, "Try Again")
rgtxtbxpwd.SetFocus
Exit Sub
End If

For i = 2 To insertrow - 1

Please Login or Register  to view this content.

If StrComp(rgtxtbxlid.Value, Worksheets("Passwords").Cells(i, 2).Value, vbTextCompare) = 0 Then
'VarLid = Worksheets("Passwords").Vlookup(rgtxtbxlid.Value,
Message = MsgBox("Userlogin is already present. Please use some other login", vbOK, "Try again")
rgtxtbxlid.Value = ""
rgtxtbxlid.SetFocus
Exit Sub

Else
Worksheets("Passwords").Cells(insertrow, 1) = rgtxtbxnm.Value
Worksheets("Passwords").Cells(insertrow, 2) = rgtxtbxlid.Value
Worksheets("Passwords").Cells(insertrow, 3) = rgtxtbxpwd.Value
rgtxtbxnm.Value = ""
rgtxtbxlid.Value = ""
rgtxtbxpwd.Value = ""
Exit For
End If
Next
'Next
'Else
'End If

'insertrow = i + 1

End Sub

[alansidman]

Click on edit post. Highlight your code. Now click on the hashtag (#) just above in formatting section. The words [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] will surround your highlighted code. Save your post. Do this everytime you post VBA code. Our rules are important here and should not be disregarded.