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

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