السلام عليكم
اخي الفاضل اليك الملف المرفق
في الملف ستجد زر سيقوم بإظهار رقم الفلاشة
هذا الرقم تكتبه في حدث ThisWorkbook
في هذا السطر
'If xxx = "رقم الفلاشه ضعه هنا" Then
ثم تقوم بإزالة الفاصلة الموجودة في بداية هذه الاسطر
'If xxx = "رقم الفلاشه ضعه هنا" Then
'MsgBox " hi"
'Else
'MsgBox "الرقم التسلسلي غير مطابق"
'Application.Quit
'End If
ثم تحفظ ما قمت به بعد ذلك افتح الملف
اذا كانت الفلاشة مختلفة لن يعمل الملف لعدم تطابق الرقم التسلسلي
وشكراً
الفلاشة.zip