logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بكار للأبد لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة خطأ برمجي والماكرو لا يعمل run time error 438 اكسيل اسئله واجابات



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





04-04-2023 10:11 صباحاً
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 364
الجنس :
تاريخ الميلاد : 13-10-1973
قوة السمعة : 503
الاعجاب : 3
السلام عليكم و رحمة الله و بركاته
اولا الف مبروك للتحديث
ثانيا الموضوع كنت طرحته قبل التحديث مباشرة و حاليا لم اجده ارجو اكون مش بكرره
و المطلوب انشاء كلمات سر و ليكن خمسة فى كل مرة و ذلك بالشروط فى الخانات من i1:l2
و عند وضع علامة الصح فى التشيك بوكس عند باس معين يظهر تاريخ استخدامه (تاريخ اليوم)
و شكرا attach  password.zip
 
 





look/images/icons/i1.gif انشاء كلمات سر
  04-04-2023 01:23 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 449
الجنس :
تاريخ الميلاد : 29-12-1985
قوة السمعة : 1085
الاعجاب : 0
وعليكم السلام ورحمة الله وبركاته   
CODE


Sub SavePassword()
    Dim chars As String
    Dim password As String
    Dim i As Integer
    
    chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890!@#$%^&*()_+-="
    
    For i = 1 To 9
        password = password & Mid(chars, Int(Rnd() * Len(chars) + 1), 1)
    Next i
    
    Dim wb As Workbook
    Dim ws As Worksheet
    
    Set wb = ThisWorkbook
    Set ws = wb.Sheets("Sheet1") ' تحديد ورقة العمل المناسبة
    
    ws.Range("A1").Value = password ' حفظ الرقم السري في الخلية A1
    
    MsgBox "تم حفظ الرقم السري بنجاح!"
End Sub

CODE
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$2" And Target.Value = True Then
       Range("C2").Value = Date
    End If
End Sub






look/images/icons/i1.gif انشاء كلمات سر
  05-04-2023 10:28 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 364
الجنس :
تاريخ الميلاد : 13-10-1973
قوة السمعة : 503
الاعجاب : 3
شكرا ا / نصر
بس كنت محتاج زى ما هو مطلوب فى الموضوع بالظبط
انشاء عدد خمسة باسوورد بالشروط فى الخلايا من i2:l2
و عند التشيك على باس معين يتم ادراج التاريخ
و شكرا


تم تحرير المشاركة بواسطة :صلاح الصغير بتاريخ:05-04-2023 10:29 صباحاً





look/images/icons/i1.gif انشاء كلمات سر
  06-04-2023 12:30 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 449
الجنس :
تاريخ الميلاد : 29-12-1985
قوة السمعة : 1085
الاعجاب : 0
ممكن توضيح اكثر




look/images/icons/i1.gif انشاء كلمات سر
  10-05-2023 10:36 صباحاً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 364
الجنس :
تاريخ الميلاد : 13-10-1973
قوة السمعة : 503
الاعجاب : 3
المطلوب انشاء كلمات سر و ليكن خمسة فى كل مرة و ذلك بالشروط فى الخانات من i1:l2
و عند وضع علامة الصح فى التشيك بوكس عند باس معين يظهر تاريخ استخدامه (تاريخ اليوم)
بمعنى انى احدد له شكل الباسوورد بناء على المدخلات فى الخلايا المذكورة
يعني احدد له انا عايز الباسوورد مكون من كام حرف كبير و كام حرف صغير و كام رقم و كام رمز
و عند تشغيل الماكرو يتم انشاء عدد خمسة باسوورد بالمحددات السابقة فى الخلايا b3 - b5 - b7 - b9 - b11
ثم يتم عدم تفعيل التشيك بوكس الخمسة و مسح التواريخ فى الخلايا b4-b6-b8b-b10-b12
و فى حالة تفعيل تشيك بوكس معين يتم ادراج التاريخ
و شكرا للاهتمام




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مساعدة فى انشاء فولدر فى مسار محدد mohamed.fawzy
3 113 YasserKhalil
كيفية وضع ملف فى فولدر تم انشاءة toytotan
12 214 YasserKhalil
انشاء قوائم كومبوبوكس معتمده على بعضها لكن على قائمة واحدة فقط احمد شريف
3 271 hassona229
سؤال عن كيفية انشاء برنامج لتوزيع المعلمين على لجان امتحانات Mr.abdullahhabashy
4 775 علي بطيخ سالم
برنامج تعديل وانشاء PDF ومميزات اخرى - مجاني AMIN FAID
1 989 AMIN FAID

الكلمات الدلالية
انشاء ، كلمات ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 09:03 AM