كيف اغلاق وحفظ مصنف يقوم بفتح مصنف اخر

[roushdy]

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

السادة الكرام

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

وان يكون اغلاق المصنف الأول فور فتح الاخر

ومرفق ملف:

Roushdy.rar

[roushdy]

اذا كان الموضوع صعب لهذه الدرجة

فيمكن استبدال سؤالى

هل يمكن فتح مصنف عن طريق مصنف اخر بماكرو

[عبدالله باقشير]

السلام عليكم

يوخذ اسم الملف من الزر نفسه

Sub openfill()
On Error Resume Next
Dim MyFile As String
Dim Mybook As String
Mybook = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
    MyFile = ActiveWorkbook.Path & "\" & Mybook
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Workbooks.Open MyFile
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
On Error GoTo 0
 End Sub

تفضل المرفق

Roushdy.rar

[roushdy]

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

جزاك الله خيرا على تعب محبتك وفرج الله عنك كربتك اللهم امين

واطمع سيدى فى حل المشكلة تماما وانا اثق ان الحل عند حضرتك

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

واتمنى من الله تعال ان يدوم علمك وأن يسدد كل احتياجاتك

[عبدالله باقشير]

السلام عليكم

إن شاء الله ثم في استطاعتنا شي لن نتاخر عن الخدمة

سنناقش الموضوع مساءا

إن شاء الله

تصبح على خير

[عبدالله باقشير]

السلام عليكم

كل الازرار ترتبط بكود واحد في الملف المفتوح

وهونفس الكود في جميع الملفات الموجودة في المجلد

(Roushdy)

عمل الكود:

يقوم الكود بحفظ الملف المفتوح واغلاقه

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

الكود:

Sub OpenFill()
On Error Resume Next
Dim Mybook_close As Workbook
Dim MyFile As String
Dim Mybook As String
Set Mybook_close = ActiveWorkbook
Mybook_close.Save
Mybook = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
    MyFile = ActiveWorkbook.Path & "\" & Mybook
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Workbooks.Open MyFile
    Mybook_close.Close
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
On Error GoTo 0
 End Sub

تفضل المرفق

Roushdy.rar

[roushdy]

بارك الله فى عمل يديك

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

وللمرة الثانية هذا هو ما تعودناه منك " عبقرى "

الف شكر

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

[عبدالله باقشير]

السلام عليكم

على فكرة الكود ده هو حل سريع للموضوع فقط

ولكن ليس بالحل الامثل

إن شاء الله

اذا توصلت الى حل آخر ساطلعك عليه

تقبل تحياتي وشكري