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

[cocacola7]

السلام عليكم جميعا 

لدي ملف اكسل و اريد عدم سرقته و فتحه في اي جهاز اخر .

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

 

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

هذا هو الكود  الذي معي في الوقت الحالي لكنه لا يعمل بشكل صحيح:

 

Private Sub Workbook_Open()
  Dim requiredFile As String
  Dim filePath As String

  ' حدد المسار والملف المطلوبين
  filePath = "C:\Program Files\new\officeteam.txt"
  requiredFile = "officeteam.txt"
  ' تحقق من وجود الملف
  If Dir(filePath & "\" & requiredFile) = "" Then
    MsgBox "ليس لديك الاذن في الاستخدام, يرجى التواصل مع مالك النظام . تنبيه.", vbCritical
    ThisWorkbook.Close SaveChanges:=False
  End If
End Sub

[Foksh]

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

جرب هذا التعديل أخي الكريم :-

Private Sub Workbook_Open()
    Dim filePath As String

    ' المسار الكامل للملف
    filePath = "C:\Program Files\new\officeteam.txt"

    ' تحقق من وجود الملف
    If Dir(filePath) = "" Then
        MsgBox "ليس لديك الاذن في الاستخدام, يرجى التواصل مع مالك النظام . تنبيه.", vbCritical
        ThisWorkbook.Close SaveChanges:=False
    End If
End Sub

المشكلة أن الكود الذي كتبته يحتوي على خطأ في طريقة تحديد المسار ، حيث إنك قمت بدمج filePath مع requiredFile مرتين  .

 

[cocacola7]

شكرا لك اخي
سوف يتم تجربة الكود المرسل منك , ثم سوف اعود اليكم و اخباركم بما سيحدث معي