منع فتح ملف إكسل مفتوح مسبقاً

[ابوالزوز]

السلام عليكم ..

أخواني الأفاضل لو تكرمتم أحتاج إلى كود يمنع فتح ملف إكسل مفتوح بالأصل بحيث لا تظهر الرسالة التي تفيد بأن (الملف مفتوح

وهل تريد إعادة فتحه أم لا) فهل يمكن تحقيق ذلك ؟؟!

أرجو الإفادة جزاكم الله خيراً

[ابوالزوز]

--- Up ---

[ابوالزوز]

... Up ...

[احمد حمور-ابوعبدالله]

اخي الكريم

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

ولكني اعتقد انه صعب لانه ان كان يوجد كود فما الذي سيطلب منه

* ان يفتح الملف مثلا مره واحده فقط

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

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

[ابوالزوز]

السلام عليكم ..

أخواني أرجو من أهل الخبرة مساعدتي في التوصل لحل لمنع فتح الملف المفتوح

وشكراً لكم جميعاً

[ابوالزوز]

للرفع .. للأهمية

[ابوالزوز]

... up ...

أعذروني أخواني لكن لأهمية الموضوع

[احمد حمور-ابوعبدالله]

اخي الكريم

اعلم ان محتاج الى حل مشكلتك

وكل مره ارى مشاركتك اتوقع ان وجدت الحل، ولكني اتفاجأ انك تطلب بالاجابه

وصدقني اني حاولت ان اخرج لك حلا من مواقع الانترنت العربيه منها والانجليزيه ولكن دون فائده ، وبحسب تصوري للموضوع لا اعتقد انه يوجد حل

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

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

[أبوعبد الله]

أخي العزيز / abuzzouz

أرجو الاطلاع على المرفق وإن شاء الله يكون به الفكرة المطلوبة ، وللعلم تم استخدام كود في حدث فتح الملف والكود هو :

Private Sub Workbook_Open()

On Error Resume Next

Application.DisplayAlerts = False

ActiveWorkbook.Open

Application.DisplayAlerts = True

End Sub

ملحوظة :

يمكن أيضاً استبدال الجزء بالكود ActiveWorkbook.Open بالجملة Cancel = True وأيضاً سيعطى نفس النتيجةوهي عدم ظهور الرسالة .

تقبل تحياتي

أبو عبدالله

عدم ظهور رسالة عند فتح ملف مفتوح.rar

[احمد حمور-ابوعبدالله]

اخي ابوعبدالله

بارك الله فيك

بالنسبه للكود اسمحلي ان اتدخل لانه اصبح عندي اصرار اكثر من السائل لمعرفة ان كان يوجد حل ام لا

انا حسب ما فهمت من السائل فهو يقول انه في حال ان الملف مفتوح واجري عله تعديلات ولكن بطريق الخطأ تم فتحه وهو لم يغلق اصلا

فانه يظهر رساله مفادها ان الملف مفتوح وان كنت تريد فتحه مره اخرى ستخسر كل شئ تم حفظه او تختار لا ليبقى كل شئ محفوظ

انا بصراحه جربت الكود ولكن في حال تم كتابة اي شئ في الملف وم ثم فتحه مره اخرى فانه يظهر الملاحظه نفسها وان اخترت نعم ستخسر كل شئ

واريد ان اطرح تساؤل لو اردنا ان نكتب الكود بالعربي ماذا سنحاكي الكود ان يعمل

* ان تفتح الملف

* وفي حال تم فتحه مره اخرى ان لا تفتحه او ان تحذف الرساله التي تظهر او يكون الزر الافتراضي للرساله هو لا

المعذره اخي ابوعبدالله للاطاله ولكن الموضوع محير بعض الشئ

[ابوالزوز]

السلام عليكم ..

أولاً شكراً جزيلاً لكم إخواني على اهتمامكم بالموضوع

أخي AHMADHAMOOR أردت إبقاء الموضوع في الواجهة فترة حتى لا يتم نسيانه وليتمكن غالبيةالخبراء من مشاهدته عله لديهم الحل

كما أن هذه المشكلة أخي الكريم واجهتني أكثر من مرة مع المستخدمين فأنت لاتدري من منهم غير المدرك لما يفعل أو من منهم المسيء

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

أخي أبوعبدالله شكراً لك أخي الكريم على مجهودك الطيب لكن المشكلة لم تحل وما تفضل به الأخ AHMADHAMOOR هو فعلاً ما أردته بالضبط

مع ذلك أود أن أطرح فكرة ربما أحد الأخوة الخبراء يقوم بإيجاد حل ما من خلالها حيث قمت بالمحاولة بخبرتي المتواضعة ولم أفلح

وهي أنه في موضوع سابق كنت قد طرحته لمنع فتح أكثر من ملف إكسل بوجود ملف إكسل مفتوح ومحدد الإسم وقد توصلت إلى الحل بمساعدة الأخوة

جزاهم الله كل خير ، الفكرة هي أنه كما تم منع أي ملف آخر من الفتح بوجود ملف محددالإسم مفتوح فهل يمكننا منع فتح نفس الملف

إذا كان بالأصل مفتوح أيضاً... هل يمكن ذلك؟؟ .. (أرجو ذلك)

قمت بتجميع حل الموضوع السابق في الملف المرفق لتسهيل إجراء التجارب عليه

شكراً لكم جميعاً وعذراً للإطالة

أنتظر ردكم الكريم

Stop Open Another Files.zip

[ابو تميم]

لأهمية الموضوع أحببت تجديده لعلنا نصل إلى حل في هذا الموضوع

جزاكم الله خيرا

[ابو تميم]

للعلم أنا استخدمت أغلب الأكواد من مواقع أجنبية ولكن جميعها بنفس النتيجة وهي أنها تعمل على إعادة فتح ملف الاكسل إلى تم حفظ البيانات التي تم عملها مؤخرا

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

شكرا

[حمادة عمر]

السلام عليكم

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

بعد رد الاستاذ القدير / احمد حمور

اعتقد انه ايضا لا يوجد حل لذلك الا الكود المقدم

واصبح لدي قناعة بذلك ... لثقتي في قدراته ولكن ...

وننتظر معاً رأي الاساتذة الخبراء

جزاك الله خيرا

[أ / محمد صالح]

بسم الله الرحمن الرحيم

أنا مش فاهم المطلوب بالضبط
هل هو عدم فتح ملف مفتوح

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

وإذا كان المطلوب هو إمكانية فتح أكثر من نسخة من الملف فهذا موجود من خلال فتح الملف في نافذة جديدة ويظهر في آخر اسم الملف 1 أو 2 أو 3 حسب عدد النوافذ

ياريت مزيد من التوضيح للمطلوب وما استخدامه الفعلي ربما يجد الأخ السائل ما يسره