Hata bulmak kolay ama çözmek için beyin lazım...Anlayana...

Gerilmeye gerek yok arkadaşlar muhtemelen bana yazmıştır.  Ama kötü bir niyeti olmadığını düşünüyorum. Zaten yapılan bir hata yok.

---

Ben "yani feraz" demekteki maksatım
"Sen excelin accessin altından girip üstünden çıkmış hallaç pamuğu gibi attırmışsın. Bunlar senin için ne ki"  cümlesinin özeti idi.

aşağıdaki fonksiyonu bir modüle ekleyip kullanabilirsiniz
fonksiyon 2 girdi alır şifre ve boyut ,
geriye false yada True değerini dönderir

ÖNEMLİ NOT:Option Compare Binary
burada Binary olması şart yoksa küçük-büyük sorunu yaşanır

Function SifreKontrol(s As String, intMax As Integer) As Boolean

    EnAzKrkter = Len(s & "") > intMax - 1

    KucukHrf = s Like "*[a-z]*"

    BuyukHrf = s Like "*[A-Z]*"

    RakamKnt = s Like "*[0-9]*"

    KarakterKnt = s Like "*[.,!'%/+-]*"  ' buraya girilebilecek alfasayısısal olmayandeğerler



SifreKontrol = KucukHrf And BuyukHrf And RakamKnt And KarakterKnt And EnAzKrkter

    Debug.Print SifreKontrol

    

End Function

teşekkürler sn. @berduş 
bu fonksiyona istediğimiz modu belirterek sonuç alsak nasıl olur mesela 
mod1 = sadece karakter adedi
mod1 = adet + büyük küçük harf
mod3 = adet + büyük küçük harf + sayı
mod4 = adet + büyük küçük harf + sayı + özel karakter

(08/05/2020, 14:27)accessman yazdı: teşekkürler sn. @berduş 
bu fonksiyona istediğimiz modu belirterek sonuç alsak nasıl olur mesela 
mod1 = sadece karakter adedi
mod1 = adet + büyük küçük harf
mod3 = adet + büyük küçük harf + sayı
mod4 = adet + büyük küçük harf + sayı + özel karakter

tam olarak anlamadim

mesela 

SifreKontrol(txtpassword, 8, "mod1")

diye göndersek sadece kaç adet olduğuna göre değerlendirse
mod4 diye gönderince tüm özelliklerini arasa