منع فتح الملف لو تم تغيير اسمه

[ابو حمادة]

 

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

الاخوة الكرام

ارجو الدخول للمرفق ومساعدتى في عمل الملطلوب

ولكم مني جزيل الشكر والاحترام

TEST-1.rar

TEST-1.rar

TEST-1.rar

[KHMB]

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

MyPath = "D:\الله اكبر"

 روح علي الدرايف D وأنشئ مجلد بإسم الله اكبر حسب المكتوب بالضبط ثم ضع داخله ملف الاكسل TEST-1 إذا غيًرت اسم المجلد من الله اكبر إلي أي اسم فلابد ات تغًير الاسم الجديد داخل الكود

مثلا سميت المجلد علي الدرايف D الي اسم AboHamadah فيكون في الكود كالتالي :

 MyPath = "D:\AboHamadah"

 

       -------------------------------------------------------------------------------------------------------------------------------------------------------------------

إنتبــــــــــــــــــــــــــــــــــــــــــــــه ملفك مكتوب بغير إسم الملف داخل الكود فملفك بإسم TEST-1 وبحروف كبيرة وداخل الكود Text-1 لن يعمل معك الكود

MyFlName = "Text-1.xls"

الخلاصة :

إسم ملفك الفعلي بالضبط ضعه داخل المجلد علي الدرايف D

بإمكانك تغيير الدرايف او إسم المجلد او إسم الملف لكن يجب التغيير حسب ماتم توضيحة اعلاه

وإذا ماوضحت أي نقطة فلاتتردد في الإستفسار مره ومرتسن وثلاثة .......

اخيكم في الله / ابو الحسن والحسين

تم تعديل يناير 7, 2016 بواسطه KHMB

[ابو حمادة]

شكرا اخي الكريم

ولكن انت لم تفهم قصدي

انا اعي جيدا ما قلته واعلمه تمام

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

بمعني ادق اريد تغيير الكود بهذا الشكل

MyFlName = Sheets("ورقة1").Range("A1").Select

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

اتمنى تكون فكرتى وصلت

تم تعديل يناير 7, 2016 بواسطه ابو حمادة

[ابو حمادة]

انت موجود استاذ

KHMB

[KHMB]

ايش اللي تريد وضعة في الخلية A1 هل هو إسم ملف الاكسل او مسار الملف أي المجلد

طبعا واضح انة الملف صحيح

تم تعديل يناير 7, 2016 بواسطه KHMB

[ابو حمادة]

اريد اضع اسم ملف الاكسل  في الخلية والكود يعمل بناء علي الاسم الذي اضعه في الخليه

تم تعديل يناير 7, 2016 بواسطه ابو حمادة

[KHMB]

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

تفضل الملف غير الاسماء اللي ترغب شغًال عندي وتمت التجربة 100 %

إن يعمل معاك

عندي Office 2013

 

KHMB.rar

نعم حسب طلبك شاهد الملف

[ابو حمادة]

تسلم ايدك ياغالي بجد عمل رائع وهو المطلوب

ناقص حاجه وحده فقط ومش عارف ممكن تتعمل ولا لاء وهي

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

 

[KHMB]

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

تفضل تظهر الرسالة إذا تغير إسم الملف ويفتح معك الملف وهو لكي تعدل

طبعا إذا تبغاه تأتيك الرسالة ثم يغلق أزل علامة التنصيص الفردية  ( ' ) التي امام الكود اللي بعد الرسالة

'Application.DisplayAlerts = False
'ThisWorkbook.Close

رسالة إذا تغير مسار الملف

واخرى إذا تغير إسم الملف

الآن خارج بعجاله إذا فيه أي استفسار اتركه إلي غد إن شاء الله

ممكن تلاحظني انني موجود فأنا فعلا ما اخرج من النت إلا إذا فصل لحاله فانا اترك الجمل بما حمل لان يوجد آخريين يدخلوا علي ملفات للعمل عليها طبعا خاص بالعمل

KHMB.rar

تم تعديل يناير 7, 2016 بواسطه KHMB
اضفت الكود

[ابو حمادة]

شكرا جدا اخي الكريم بالفعل ظهر رساله عند تغيير الاسم عمل اكثر من رائع بجد

ولكن لو كان هناك طريقه افضل بحيث لا يفتح الملف نهائيا لان هذا الكود بالرغم من انه جميل جدا ويؤدي الغرض ولكن يفتح الملف ثم تظهر الرساله ثم يغلق لو امكن منع فتح الملف نهائيا وظهور الرساله عند الفتح يكون الكود افضل واروع

لك مني تحياتي

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

انى احبك في الله

 

 

[ياسر خليل أبو البراء]

أخي الكريم أبو حماده

لم أتابع الموضوع بشكل جيد من البداية لكن يبدو أن أخونا أبا الحسن والحسين أبدع في الإجابة عليك ..

بارك الله فيك أبا الحسن والحسين وجزيت خير الجزاء

 

اقباساً من كلامك أخي الفاضل أبو حمادة :

16 دقائق مضت, ابو حمادة said:

ولكن لو كان هناك طريقه افضل بحيث لا يفتح الملف نهائيا لان هذا الكود بالرغم من انه جميل جدا ويؤدي الغرض ولكن يفتح الملف ثم تظهر الرساله ثم يغلق لو امكن منع فتح الملف نهائيا وظهور الرساله عند الفتح يكون الكود افضل واروع

كيف سيتم تنفيذ الكو بدون فتح ملف الإكسيل .. الكود مرتبط بحدث فتح المصنف الذي يختبر مسار الملف ويرى إذا ما كان مطابق للمسار الفعلي أم لا ..فإذا لم يكن نفس المسار يتم إغلاق الملف ..

إذا كنت قد فهمت الأمر مختلف فأعلمني ..أو قم بتوضيح المسألة بشكل أعمق لكي نفهم الفكرة المطلوبة

تقبل تحياتي

 

[ابو حمادة]

هي مجرد فكره في مخى يعنى لو اتعمل للملف

application.visible=false

[ياسر خليل أبو البراء]

تمام كدا وضحت الفكرة ..إذاً ضع هذا السطر في الكود ليختفي التطبيق ثم تظهر الرسالة في حالة عدم التطابق لمسار الملف مع مسار الملف الموجود في الكود

Private Sub Workbook_Open()
    Dim KHM As String
    
    Application.Visible = False
    KHM = Trim(Sheets("Sheet1").Range("A1"))
    Dim MyPath As String
    '*************************************************************************************
    '''''''' KHMB.xls ويوضع داخله ملف الإكسل KHMB وإسم المجلد  D:\ هنا إسم المسار في الدرايف
    MyPath = "D:\KHMB"
    '*************************************************************************************
    If ThisWorkbook.Path <> MyPath Then
        MsgBox "مسار الملف" & vbNewLine & "تم تغيير مسار الملف ولن يعمل معك إلاً من مسارة الصحيح"
        'Application.DisplayAlerts = False
        Application.Quit
    Else
        MsgBox MyPath
    End If
    Dim MyFlName As String
    '*************************************************************************************
    '''''''  D:\ في الدرايف KHMB وهنا إسم ملف الإكسل يتم وضعة داخل المجلد
    MyFlName = KHM
    '*************************************************************************************
    
    If ThisWorkbook.Name <> MyFlName Then
        MsgBox "إسم الملف" & vbNewLine & "لقد تم تغيير إسم الملف ولن يفتح معاك إلاً بإسمة"
        'Application.DisplayAlerts = False
        'ThisWorkbook.Close
    Else
        MsgBox KHM
        
    End If
End Sub

أضفت السطر الذي ذكرته في بداية الكود ..وأضفت سطر لإغلاق التطبيق ككل وليس المصنف فقط بعد الرسالة في حالة عدم التطابق

تقبل تحياتي

[ابو حمادة]

تسلم حبيب قلبي استاذ ياسر
هذا المطلوب

[ياسر خليل أبو البراء]

الحمد لله أن تم المطلوب على خير

والفضل لله عزوجل ثم لأخونا أبا الحسن والحسين ..

الحمد لله الذي بنعمته تتم الصالحات

تقبل تحياتي

[KHMB]

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

اخي واستاذي ومشرفي ياسر خليل ابو البراء

بكل صدق اسعدني وشرفني ليس ردكم فقط بل مروركم يكفيني شرفا وحبا .فجزاك الله خير الجزاء وبارك فيك وفعلا احبك في الله وسبق ان جربناك في اخلاقك وحلمك علينا وطيبتك بدون حدود.

اخي الفاضل ابوحمادة احبك الله الذي احببتني فيه بارك الله فيك وجزاك الله خير

الحمد لله الذي به تتم الصالحات وكان ختامها مسك من قبل المشرف الغالي ابو البراء بوضع اللمسات الاخيره جزاه الله خير