ملف يعمل على جهازين فقط

[محمد الورفلي1]

السلام عليكم

كيف اجعل هذا  الملف يعمل على جهازين فقط بتحدد مرجع معين يتظمن الرقم السري الذي  ادخله

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

 

Private Sub Workbook_Open()

'If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "A8520DF" Then
'MsgBox "Attention ! Ce programme est spécial pour M : tahar1983 ", vbCritical, "Violation des droits du programme"
'ThisWorkbook.Close savechanges = True
'End If
End Sub

 

ملف يعمل علي جهازين.rar

[وائل احمد المصري]

طيب ما تحط رقم الهاردين

انظر المرفق

ملف يعمل علي جهازين.rar

[وائل احمد المصري]

اخي محمد السلام عليكم 

رجاء عند عرض طلب برجاء التعليق اذا ماتم الحل ام لا

تحياتي

[محمد الورفلي1]

السم عليكم

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

الكود الذي ارفقته لم يفلح لكن توصلت لحل هو تغيير كلمة OR الي AND  .... ولكن هذا الكود لاياتي بنتيجة محكمة لانه عند الفورمات الجهاز يتغير هذا الرقم .........   فااصبحت ابحث عن طريقة اخرى كود اخر يخرج لي رقم الهارد  الذي لايتغير مع الفورمات

Private Sub Workbook_Open()

'If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "سريل الجاهز الاول" And Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "سريل الجهاز الثاني" Then
'MsgBox "Attention ! Ce programme est spécial pour M : tahar1983 ", vbCritical, "Violation des droits du programme"
'ThisWorkbook.Close savechanges = True
'End If
End Sub

 

[وائل احمد المصري]

الحمد لله