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

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

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

تم تعديل يناير 19 بواسطه هشام جمال الدين

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

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

 

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

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

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

انا عدلته بالكود ده 
Dim MachineName As String MachineName = Environ("COMPUTERNAME") If MachineName <> "DESKTOP-B76NADI" Then MsgBox "لا يمكنك فتح هذا الملف على هذا الجهاز.", vbCritical ' حفظ الملف قبل الإغلاق ThisWorkbook.Save ' إغلاق الملف ThisWorkbook.Close SaveChanges:=False End If