I have a set of passwords and I need to verify for each one if it contains 1 number, 1 upper case, 1 lower case and if the length is 8 characters.
I made this code but it isn't working for the characters, only for the length. Can you help me, please? Thanks!!
Sub Password()
Dim b As Integer
Dim i As Integer, j As Integer, k As Integer
Dim psw As String
Dim LengthOFPasswordsList As Long
LengthOFPasswordsList = Range("D" & Rows.Count).End(xlUp).Row
For b = 3 To LengthOFPasswordsList
psw = Range("D" & b)
If i >= 65 Or i <= 90 Then
If j >= 97 Or j <= 122 Then
If k > 48 Or k <= 57 Then
If psw <> (Chr(i) & Chr(j) & Chr(k) & Chr(i Or j Or k) _
& Chr(i Or j Or k) & Chr(i Or j Or k) & Chr(i Or j Or k)) _
And Len(psw) <> 8 Then
Range("F" & b) = "Password Inválida"
End If
End If
End If
End If
Next b
End Sub
If...Or
statements aren't doing anything. I think you meanIf...And
. As it is, all values of i, j, and k will satisfy the situations.For
loops, notIf
statements.