توليد كلمات المرور

[alexandrien]

السلام عليكم إخواني الأعزاء

أرجو من كل من لديه القدرة على المساعدة في حل هذه المسألة أن يساعدني بالحل وأكون له من الشاكرين.

لدي ملف من الاكسل ويحتوي على قاعدة بيانات ضخمة جدا وبها بيانات طلبة وأرغب في توليد كلمات مرور غير متكررة بحث يكون لكل طالب كلمة مرور عشوائية شرط ألا تقل عن 12 حرف وتحتوي على حروف لاتينية كلها. منها حروف كبيرة وحروف صغيرة ورموز رقمية وأرقام ومرفق ملف كمثال .

Book1.xlsx

[سليم حاصبيا]

جرب هذا الكود  (لتغيير عدد كلمات السر استبدل في الكود الرقم 19 الى اي رقم تريده)

Option Explicit

Sub My_Paws()
Dim col As Object
Dim i%, m, x, Bol, s, k%
Const How_many_Pass = 19

Set col = New Collection
  For i = 64 To 90: col.Add Chr(i): Next
  For i = 97 To 122: col.Add Chr(i): Next
  For i = 0 To 9: col.Add i: Next

col.Add "*"

m = 2
x = col.Count
For i = 1 To How_many_Pass
    For k = 1 To 12
     Bol = Int(Rnd() * (x - 1)) + 1
         s = s & col(Bol)
     Next k
    Cells(m, "G") = s
   m = m + 1: s = ""
 Next
End Sub

الملف مرفق

 

alexandrien.xlsm

[أحمد يوسف]

   alexandrien

أين انت من هذه الإجابة الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!!

أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!! 💙