كيفية اضافة ماكرو اغلاق

[allovers]

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

لدي مجموعة من مصنفات على اكسيل كل منها يخدم جزء محدد من مجال عملي وقمت بعمل واجهة انتقال الى كل قسم

المشكلة التي اواجهها هي كالاتي :

عند فتح اكثر من مصنف تبقى مفتوحة مما يضعف من اداء الجهاز فهل من كود معين عندما اضغط على رابط الصفحة المراد الانتقال الها يقوم تلقائيا بحفظ الصفحة الرئيسة واغلاقها .

اي تبقى فقط الواجهة التي اعمل بها فقط .

الرجاء الثاني : كيفية اخفاء الاعمدة الغير مستخدمة في العمل حيث انني لا احتاج سوى اربع او خمس اعمدة فكيف اخفي الباقي بحيث لا يظهر امامي الا الاعمدة التي احتاجها فقط .

وشكرا لكم جزيل الشكر

[علي السحيب]

الكود التالي يقوم بحفظ ثم إغلاق جميع المصنفات المفتوحة .. ماعدا المصنف النشط (الذي تم تشغيل الكود منه)

Public Sub CloseAllWorkbooksExceptMe()
    For Each Wkb In Workbooks
      If Wkb.Name <> ThisWorkbook.Name Then
          Wkb.Saved = True
          Wkb.Close
      End If
    Next Wkb

End Sub

شاهد المرفق،

_________________________________________.rar

[allovers]

اشكرك استاذي العزيز وادعو الله لك ان يجزيك خير الجزاء .

الكود الذي ابحث عنه استاذي العزيز هو بطريقة معكوسة اي ان الكود يقوم بحفظ واغلاق المصنفات المفتوحة بما فيها الذي اشغل الكود منه ويفتح المصنف الذي اريده من خلال الكود .

اسف جدا على ازعاجك استاذي .

واكرر شكري لك

[علي السحيب]

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

Private Sub Workbook_Open()
For Each Wkb In Workbooks
      If Wkb.Name <> ThisWorkbook.Name Then
          Wkb.Saved = True
          Wkb.Close
      End If
    Next Wkb
End Sub

لإختبار عمل الكود قم بفتح عدد من المصنفات أولاً .. ثم أفتح المصنف الموجود في المرفقات.

_____________________________________________________..rar

[allovers]

اشكرك استاذي العزيز جزيل الشكر . و لا املك الا الدعاء لك اخي العزيز

بارك الله فيك ولك ومنك وعليك