تامين ملف اكسيل من زرار شيفت

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

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






 ' كود التحقق من الخلايا B5000 و A5000
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("List") ' تأكد من أن اسم الشيت هو "List"
    
    If ws.Range("B5000").value <> ws.Range("A5000").value Then
        ' إذا كانت القيم غير متساوية، يتم حفظ الملف وإغلاقه
        ThisWorkbook.Save
        ThisWorkbook.Close SaveChanges:=False
        Exit Sub
    End If
    ' خلية رقم A5000 فيها المعادلة دى
    
    ' =INFO("DIRECTORY") & " | " & INFO("OSVERSION")
    ' كود التحقق من اسم الجهاز
    Dim MachineName As String
    MachineName = Environ("COMPUTERNAME")
    
    If MachineName <> "DESKTOP-B76NADI" Then
        MsgBox "لا يمكنك فتح هذا الملف على هذا الجهاز.", vbCritical
        
        ' حفظ الملف قبل الإغلاق
        ThisWorkbook.Save
        
        ' إغلاق الملف
        ThisWorkbook.Close SaveChanges:=False
        Exit Sub
    End If