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





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

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



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




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

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

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



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

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




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




06-12-2017 12:08 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 152
قوة السمعة : 4937
الاعجاب : 1403
 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
المشاركات : 18
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 25-1-1982
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 22
الاعجاب : 6
 offline 
look/images/icons/i1.gif كود منع تغيير اسم الملف وهو مغلق
هذا هو المطلوب 
الغرض منه هو بعض الملفات تكون مرتبطة عندي تغيير اي طارئ فان الارتباطات لا تعمل وبهذا الكود يكون الملف رجع الى اسمه المرتبط به مع الملف الاخر
بارك الله فيك 

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



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

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



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

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

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



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

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



07-12-2017 11:40 صباحا
مشاهدة مشاركة منفردة [9]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 549
الجنس : ذكر
الدعوات : 3
يتابعهم : 0
يتابعونه : 154
قوة السمعة : 3091
الاعجاب : 716
 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 مرات التحميل :(10)
الحجم :(11.643) KB


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



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

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



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

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


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



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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اسهل واسرع طريقة لتغيير خلفية اليوزرفورم بدون الدخول الى محرر الاكواد بطريقة ديناميكية emad ghazi
1 30 emad ghazi
تغيير إسمى فى المنتدى Eslam Abdullah
2 21 Eslam Abdullah
تعديل على كود تغيير البيانات وترحيلها حسب شروط معنية زيد2017
3 44 زيد2017
كيفية تغيير خلفية الخلايا المحددة من خلال ScrollBar فى userform emad ghazi
1 33 emad ghazi
التغيير بالبيانات في كافة الشيتات مرة واحد زيد2017
3 48 محمود ابو الدهب

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


 







الساعة الآن 02:58 صباحا