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

وشرح الكود هو انه ان تم نقل الشيت لجهاز اخر غير متوافق مع رقم الهارد ديسك او المازر بورد يتم قتل الملف وحذفه


انا لا اريد قتل الملف انا اريد رسالة تظهر للمستخدم
بانه لا يملك صلاحية الدخول

Private Sub Workbook_Open()
    If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "BE2EFE3A" Then
        With ThisWorkbook
            .Save
            .ChangeFileAccess Mode:=xlReadOnly
'هذا الامر اسفل (مخصص لقتل الاكسيل)حذفه
            Kill .FullName
            .Close SaveChanges:=False
        End With
    End If
End Sub

Sub Get_Hard_Disk_Serial_Number()
    Range("AA1").Value = Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber)
End Sub