اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كود منع تغيير اسم الملف وهو مغلق

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



05-12-2017 08:32 مساء
حاجي توفيق
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-09-2017
رقم العضوية : 558
المشاركات : 22
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 25-1-1982
يتابعهم : 8
يتابعونه : 2
قوة السمعة : 30
الاعجاب : 10
 offline 

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






05-12-2017 09:43 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4618
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13274
الاعجاب : 4904
 offline 
look/images/icons/i1.gif كود منع تغيير اسم الملف وهو مغلق
وعليكم السلام أخي الكريم
الطلب غير واضح ويرجى وضع تفاصيل أكثر

كيف سيكون هناك كود والملف مغلق وليس مفتوح .. كيف سيتم تنفيذ الكود في هذه الحالة!!؟؟

أثارت هذه المشاركة إعجاب: حاجي توفيق،




05-12-2017 10:51 مساء
مشاهدة مشاركة منفردة [2]
حاجي توفيق
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-09-2017
رقم العضوية : 558
المشاركات : 22
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 25-1-1982
يتابعهم : 8
يتابعونه : 2
قوة السمعة : 30
الاعجاب : 10
 offline 
look/images/icons/i1.gif كود منع تغيير اسم الملف وهو مغلق
مشكور اخي الفاضل على الاهتمام 
عندما يكون الملف مغلق فانك تستطيع تغيير اسمه بذهاب الى خاصيةاعادة االتسمية للملف بعد الضغط عليه دون الفتح 
المطلوب 
كود يمنع التغيير او 

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





05-12-2017 11:32 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4618
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13274
الاعجاب : 4904
 offline 
look/images/icons/i1.gif كود منع تغيير اسم الملف وهو مغلق
لا يوجد كود سيقوم بتغيير الاسم للملف عند فتحه مرة أخرى ..
يمكن عمل ذلك من خلال ملف آخر .. وصراحةً الطلب غريب ، ولا أجد سبب واضح لمثل هذا الأمر





06-12-2017 12:08 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4618
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13274
الاعجاب : 4904
 offline 
look/images/icons/i1.gif كود منع تغيير اسم الملف وهو مغلق
جرب الكود التالي في حدث فتح المصنف .. وقم بتغيير الاسم للاسم الذي ترغبه
الطريقة غير مباشرة حيث يتم حفظ الملف باسم آخر ويتم حذف الملف الأصلي .. وأنا لا أحبذ الطريقة ولكن لا يوجد طريقة أخرى
Private Sub Workbook_Open()
    Dim wbName      As String
    Dim newName     As String

    wbName = ThisWorkbook.FullName
    newName = ThisWorkbook.Path & "\YasserKhalil.xlsm"
    ActiveWorkbook.SaveAs newName
    Kill wbName
End Sub

أثارت هذه المشاركة إعجاب: حاجي توفيق، bin7shr،




06-12-2017 01:44 مساء
مشاهدة مشاركة منفردة [5]
حاجي توفيق
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-09-2017
رقم العضوية : 558
المشاركات : 22
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 25-1-1982
يتابعهم : 8
يتابعونه : 2
قوة السمعة : 30
الاعجاب : 10
 offline 
look/images/icons/i1.gif كود منع تغيير اسم الملف وهو مغلق
هذا هو المطلوب 
الغرض منه هو بعض الملفات تكون مرتبطة عندي تغيير اي طارئ فان الارتباطات لا تعمل وبهذا الكود يكون الملف رجع الى اسمه المرتبط به مع الملف الاخر
بارك الله فيك 

أثارت هذه المشاركة إعجاب: YasserKhalil،




06-12-2017 02:46 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4618
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13274
الاعجاب : 4904
 offline 
look/images/icons/i1.gif كود منع تغيير اسم الملف وهو مغلق
بارك الله فيك أخي الكريم
والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

أثارت هذه المشاركة إعجاب: حاجي توفيق،




06-12-2017 07:37 مساء
مشاهدة مشاركة منفردة [7]
bin7shr
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-11-2017
رقم العضوية : 1356
المشاركات : 19
الجنس : ذكر
تاريخ الميلاد : 7-10-1965
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 241
الاعجاب : 33
 offline 
look/images/icons/i1.gif كود منع تغيير اسم الملف وهو مغلق
أخي العزيز جاجي والاخوان الافاضل
هناك كود حماية باسم الملف

مثل الحماية برقم الهارد
وهوا اجراء فحص اسم الملف إذا كان نفس اسم الملف في الكود فيتم تشغيل البرنامج وإذا كان تم تغيرة لا يشتغل البرنامج
ولكن ليس لدي الكود الان ولم اتطرق  له من قبل 
ولكن يمكن تطبيق الفكرة
تحياتي

أثارت هذه المشاركة إعجاب: حاجي توفيق، YasserKhalil،




06-12-2017 11:09 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4618
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13274
الاعجاب : 4904
 offline 
look/images/icons/i1.gif كود منع تغيير اسم الملف وهو مغلق
بارك الله فيك أخي العزيز سعد
نعم يمكن أيضاً الاعتماد على سيريال الماذزر بورد وقد قدمت من فترة موضوع مشابه لذلك .. وطرق الحماية مختلفة ولكنها تفتقر إلى الضعف داخل الإكسيل 

أثارت هذه المشاركة إعجاب: bin7shr،




07-12-2017 11:40 صباحا
مشاهدة مشاركة منفردة [9]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1406
الجنس : ذكر
الدعوات : 11
يتابعهم : 0
يتابعونه : 356
قوة السمعة : 10924
الاعجاب : 2723
 offline 
look/images/icons/i1.gif كود منع تغيير اسم الملف وهو مغلق

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


Private Sub Workbook_Open()
Dim MyFlName As String
  MyFlName = "أكاديمية الصقر للتدريب.xlsm"
   If ThisWorkbook.Name <> MyFlName Then
   Application.DisplayAlerts = False
   Application.Quit
   MsgBox "عفوا غير مسموح بتغيير اسم الملف اسم الملف أكاديمية الصقر للتدريب ", vbInformation, "خطأ"
  End If
End Sub

واليك ملف مرفق للتطبيق 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 
 
  أكاديمية الصقر للتدريب.zip   تحميل zip مرات التحميل :(18)
الحجم :(11.643) KB


أثارت هذه المشاركة إعجاب: هيثم رمو، YasserKhalil، حاجي توفيق،




07-12-2017 02:07 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4618
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13274
الاعجاب : 4904
 offline 
look/images/icons/i1.gif كود منع تغيير اسم الملف وهو مغلق
أخي العزيز حسام ..
إنت فكرتك رائعة وعجبتني عشان كدا قفلت السكة عليه إنه يفتح الملف لو غير اسمه .. تسلم ياالغالي 113

أثارت هذه المشاركة إعجاب: الصقر، حاجي توفيق،




07-12-2017 03:07 مساء
مشاهدة مشاركة منفردة [11]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1406
الجنس : ذكر
الدعوات : 11
يتابعهم : 0
يتابعونه : 356
قوة السمعة : 10924
الاعجاب : 2723
 offline 
look/images/icons/i1.gif كود منع تغيير اسم الملف وهو مغلق

تسلم أخى الحبيب ابوبراء
بعض ما عندكم وما العبد الا قطره فى بحر علمكم
111


أثارت هذه المشاركة إعجاب: YasserKhalil، حاجي توفيق،




07-12-2017 07:11 مساء
مشاهدة مشاركة منفردة [12]
حاجي توفيق
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-09-2017
رقم العضوية : 558
المشاركات : 22
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 25-1-1982
يتابعهم : 8
يتابعونه : 2
قوة السمعة : 30
الاعجاب : 10
 offline 
look/images/icons/i1.gif كود منع تغيير اسم الملف وهو مغلق
وياليتها كانت قطرة في بحرهم هم أستاذتنا بارك الله لنا في علمهم  rolleyes






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
أكواد لتغيير لون كافة العناصر على الفورم وهو نشط - أكاديمية الصقر للتدريب الصقر
5 1489 محمد النيل
تغيير امتداد ملفات الاكسل الى EXE ثم عمل SetUp محمود الشريف
20 2528 yehya mahmoud
المشكلة منع اخترق الاكسيل والملفات VBA حتي لو تم تغيير المسار رمضان بكري
4 93 رمضان بكري
كيفية تغيير ايقونة برنامج الاكسل بليغ البتول
6 353 بليغ البتول
كيف عندما اقوم بتغيير في خلية ان تتغير خلايا اخرى عبد الله السعيد
14 243 Eslam Abdullah

الكلمات الدلالية
تغيير ، الملف ، مغلق ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 12:59 صباحا

أعلن هنا
أعلن هنا
أعلن هنا