افضل طريقة لتامين برنامج على اكسيل لمنع نسخه ولصقة باى جهاز اخر

[هشام جمال الدين]

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

تم تعديل منذ 23 ساعات بواسطه هشام جمال الدين

[خالد المصـــــــــــرى]

Private Sub Workbook_Open()
    Dim MachineName As String
    MachineName = Environ("COMPUTERNAME")
    
    If MachineName <> "اسم_الجهاز_المسموح" Then
        MsgBox "لا يمكنك فتح هذا الملف على هذا الجهاز.", vbCritical
        ThisWorkbook.Close
    End If
End Sub