أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


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





مراجعه كود برمجى

السلام عليكم سؤالى لا يحتاج الى ملف لان ارقام المازر بورد تختلف الكود يعمل وفكرته ان يعمل الملف على اجهزه معينه بمساعده ..


موضوع مغلق


subject icon تمت الإجابة مراجعه كود برمجى
27-04-2022 03:06 مساء
سعد عابد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 135
الدولة : مصر
الجنس : ذكر
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 220
عدد الإجابات: 3
 offline 

السلام عليكم
سؤالى لا يحتاج الى ملف لان ارقام المازر بورد تختلف
الكود يعمل وفكرته ان يعمل الملف على اجهزه معينه بمساعده داله استخراج السريل (منقوله من ملف ابوالبراء حفظه الله)
المطلوب
مراجعه الكود وهل هناك تركيبة للكود افضل من الكود المرسل 
اشكركم وكل عام وانتم بخير

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


أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام
يمكنك استخدام Or للربط بين عدة شروط أي إذا تحقق أي شرط من الشروط يتم تنفيذ كذا
If saad = strMB Or saad = strMB2 Or ..... Then
عرض الإجابة




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



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


 










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

الساعة الآن 07:31 مساء