ممكن شرح هذا الكود الرائع

[هامور]

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

 

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

 

http://www.officena.net/ib/index.php?showtopic=36483

 

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

هل من يشرح لنا جزاكم الله خير

نفس الملف في الرابط مرفق

منع فتح الملف إذا تم نقله أو تغيير إسمه ومنع حفظه بإسم جديد.rar

[هامور]

وهل من الممكن حذف شرط المسار من الكود فقط وترك الباقي كما هو 

[عبدالله المجرب]

وهل من الممكن حذف شرط المسار من الكود فقط وترك الباقي كما هو 

 

الكود سيصبح هكذا 

Private Sub Workbook_Open()
Dim MyFlName As String
 MyFlName = "TEST-1.xls"
 If ThisWorkbook.Name <> MyFlName Then
 Application.DisplayAlerts = False
 ThisWorkbook.Close
 End If
End Sub

وهنا يتم تعديل اسم الملف 

MyFlName = "TEST-1.xls"

[هامور]

 

وهل من الممكن حذف شرط المسار من الكود فقط وترك الباقي كما هو 

 

الكود سيصبح هكذا 

Private Sub Workbook_Open()
Dim MyFlName As String
 MyFlName = "TEST-1.xls"
 If ThisWorkbook.Name <> MyFlName Then
 Application.DisplayAlerts = False
 ThisWorkbook.Close
 End If
End Sub

وهنا يتم تعديل اسم الملف 

MyFlName = "TEST-1.xls"

الله يرزقك المال المبارك والذريه الصالحه  والعلم النافع

[عبدالله المجرب]

حياك الله اخي الفاضل

=======

تمت الإجابة