iyi günler bazen şifre girerken
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

Hazır fonksiyon yok fakat bir modül yazarak ve şifre sonrası bu modülü devreye sokarsanız bunu fonksiyon gibi kullanabilirsiniz.
Daha sonra üretmiş olduğunuz tüm programlara bu modülü eklerseniz bir nevi fonksiyon oluşturmuş olursunuz.

Aşağıda eklediğim satırları nasıl kullanacağız

8 or more characters: (?=.{8,})

1 lowercase letter: (?=.*[a-z])

1 uppercase letter: (?=.*[A-Z])

1 digit: (?=.*[\d])

1 special character: (?=.*[\W])

1 special character or a digit: (?=.*[\d\W])

Bir satırı en az 1 küçük harfle eşleştirmek istersem

^.(?=.[a-z]).*$

bir dizeyi en az 6 karakter uzunluğunda, en az bir küçük harf ve en az bir büyük harfle eşleştirmek istiyorsanız,

^.(?=.{6,})(?=.[a-z])(?=.[A-Z]).$

biraz daha karmaşıklık atmak istiyorsanız ve en az bir rakam veya bir sembol gerektiriyorsa,

^.(?=.{6,})(?=.[a-z])(?=.[A-Z])(?=.[\d\W]).*$

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

    .Pattern = "^(??=.*[a-z])(??=.*[A-Z])(?=.*[\d\W])|(?=.*\W)(?=.*\d))|(?=.*\W)(?=.*[A-Z])(?=.*\d)).{7,12}$"

    '   Does not ignore case

    .IgnoreCase = False

    fValPass  = .Test(strPass) 'affecting to the name of the function is how you return a value in VBA

end with

End Function

Sayın accessman,

İçinde şifre kontrolü için modül olan bir uygulama ekledim.

Burda 2 kontrol ele alındı.

1. Şifre en az 6 karakter olmalıdır
2. İçinde en az 1 karakter küçük harf olmalı kontrolü

bu 2 olaya benzer diğer kontrolleri ekleyebilirsiniz. Takıldığınız yerde yardımcı olmaya çalışırız...

Yani @feraz