اذهب الي المحتوي
أوفيسنا

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


alexandrien
إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

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

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

لدي ملف من الاكسل ويحتوي على قاعدة بيانات ضخمة جدا وبها بيانات طلبة وأرغب في توليد كلمات مرور غير متكررة بحث يكون لكل طالب كلمة مرور عشوائية شرط ألا تقل عن 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

  • Like 3
رابط هذا التعليق
شارك

   alexandrien

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information