الرجاء المساعده فى كود يمكن اكتر من جهاز لفتح الملف

[seao]

السلام عليكم ورحمه الله وبركاته

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

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

حماية برقم الهارد ديسك.xls

[أ / محمد صالح]

يمكنك استعمال هذه الطريقة

بوضع السيريلات المسموحة في مصفوفة myserials بينها فاصلة 

Private Sub Workbook_Open()
myserials = Array("589CC486", "mr-mas.com", "") 
myhd = Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber)
If Not UBound(Filter(myserials, myhd)) > -1 Then
MsgBox "أي رسالة هنا"
ThisWorkbook.Close savechanges = True
End If
End Sub

بالتوفيق

[seao]

جزاك الله خيرا 

وزادك من علمه و فضله 

[أ / محمد صالح]

جميعا بإذن الله