En az bir büyük harf
En az bir küçük harf
En az bir numeric karakter
En az bir harf ve sayı olmayan karakter
En az 8 karakter gibi şartlar koşuluyor.
Bunun hazır bir fonksiyonu mu var nasıl yapabiliriz
Public Function fValPass(ByVal strPass As String) As Boolean
Dim result As String
Dim RE As Object
' Sets the regular expression object
Set RE = CreateObject("VBScript.RegExp")
With RE
.Pattass = .Test(strPass) 'affecting to the name of the function is how you return a value in VBA
end with
End Functionern = "^(?
?=.*[a-z])(??=.*[A-Z])(?=.*[\d\W])|(?=.*\W)(?=.*\d))|(?=.*\W)(?=.*[A-Z])(?=.*\d)).{7,12}$"
' Does not ignore case
.IgnoreCase = False
fValP