هامور قام بنشر ديسمبر 17, 2014 مشاركة قام بنشر ديسمبر 17, 2014 السلام عليكم ورحمة الله وبركاته بحثت عن ملف منع نسخ وتغيير الاسم ووجدت هذا الموضوع في هذا المنتدى الكبير على الرابط http://www.officena.net/ib/index.php?showtopic=36483 ولكن للاسف لم استطع ان اعرف البحث عن مسار الملفات في جهازي وتعديلها في الكود وكذالك الاسم هل من يشرح لنا جزاكم الله خير نفس الملف في الرابط مرفق منع فتح الملف إذا تم نقله أو تغيير إسمه ومنع حفظه بإسم جديد.rar رابط هذا التعليق شارك More sharing options...
هامور قام بنشر ديسمبر 17, 2014 الكاتب مشاركة قام بنشر ديسمبر 17, 2014 وهل من الممكن حذف شرط المسار من الكود فقط وترك الباقي كما هو رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالله المجرب قام بنشر ديسمبر 18, 2014 أفضل إجابة مشاركة قام بنشر ديسمبر 18, 2014 وهل من الممكن حذف شرط المسار من الكود فقط وترك الباقي كما هو الكود سيصبح هكذا 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" 2 رابط هذا التعليق شارك More sharing options...
هامور قام بنشر ديسمبر 18, 2014 الكاتب مشاركة قام بنشر ديسمبر 18, 2014 وهل من الممكن حذف شرط المسار من الكود فقط وترك الباقي كما هو الكود سيصبح هكذا 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" الله يرزقك المال المبارك والذريه الصالحه والعلم النافع رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر ديسمبر 18, 2014 مشاركة قام بنشر ديسمبر 18, 2014 حياك الله اخي الفاضل ======= تمت الإجابة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها