logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بليغ البتول ali mohamed ali-- لا تميز خلال هذه الفترة Yasser Elaraby تجميع بيانات من عدة ملفات اكسيل اسئله واجابات



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




موضوع مغلق


  • تمت الإجابة
subject icon تمت الإجابة مراجعه كود برمجى
27-04-2022 03:06 مساءً
السلام عليكم
سؤالى لا يحتاج الى ملف لان ارقام المازر بورد تختلف
الكود يعمل وفكرته ان يعمل الملف على اجهزه معينه بمساعده داله استخراج السريل (منقوله من ملف ابوالبراء حفظه الله)
المطلوب
مراجعه الكود وهل هناك تركيبة للكود افضل من الكود المرسل
اشكركم وكل عام وانتم بخير

CODE
Sub protect_work3()
    Dim strMB, strMB2, strMB3, strMB4, strMB5, strMB6 As Variant
    'Put Your MotherBoard Serial
    strMB = "HP Compaq 8000 Elite CMT PC, D4205BF7-D2A7-11DE-BBDA-5031E28F6431"
    strMB2 = "8933B51, 811B189F-FA49-CB11-AEC2-F548BCADBD25"
    strMB3 = "Precision WorkStation T3400  , 4C4C4544-004A-3510-8058-B3C04F544B31"
    strMB4 = "HP Pavilion g6 Notebook PC, 32444335-3134-4442-444A-843497755944"
    strMB5 = "OptiPlex 990, 4C4C4544-0034-5110-8058-B5C04F595131"
'    strMB6 = "8933B51, 811B189F-FA49-CB11-AEC2-F548BCADBD25"
    saad = MBSerialNumber
    If saad = strMB Then
        Exit Sub
    ElseIf saad = strMB2 Then
        Exit Sub
    ElseIf saad = strMB3 Then
        Exit Sub
    ElseIf saad = strMB4 Then
        Exit Sub
    ElseIf saad = strMB5 Then
        Exit Sub
'    ElseIf saad = strMB6 Then
'        Exit Sub
    Else
        MsgBox ("الجهاز غير مصرح له بالدخول")
        ActiveWorkbook.Save
        ActiveWorkbook.Close
    End If
End Sub




look/images/icons/i1.gif مراجعه كود برمجى
  27-04-2022 09:11 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10510
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36676
الاعجاب : 161
وعليكم السلام
يمكنك استخدام Or للربط بين عدة شروط أي إذا تحقق أي شرط من الشروط يتم تنفيذ كذا
CODE
If saad = strMB Or saad = strMB2 Or ..... Then

أثارت هذه المشاركة إعجاب: ali mohamed ali، سعد عابد، hassona229،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
هديتى 2018_برنامج حسابات و ميزان مراجعه_ECO2_ دبل كليك 2018_G_adham Galal ELGammal
114 8814 Galal ELGammal
مراجعه في اكواد المصفوفات ناصر سعيد1
9 2265 YasserKhalil

الكلمات الدلالية
مراجعه ، برمجى ،









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

الساعة الآن 12:43 AM