طلب في الارتباط التشعبي لربط ازرار بملفات معينة

[حمادة عمر]

السلام عليكم

المطلوب بالمرفق

وهو

عمل ارتباط تشعبي لهذه الازرار لفتح الملفات الموجودة بمسمياتها في نفس الفولدر

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

وما اريده هنا انه عند الضغط علي الزر يقوم باغلاق الملف الرئيسي المسمي ( فتح ) ويقوم بفتح الملف المطلوب فقط

وان امكن الربط وهذه الملفات مخفية ايضا

1 خزينة.rar

تم تعديل ديسمبر 27, 2012 بواسطه حمادة عمر

[ahmd_asd4]

1 خزينة.rarالأخ حمادجة عم ر لقد قمت بعمل الربط على حد معلوماتي الالتي لا تذكر أما غلق الصفحة الأم لا أعرف عنه شئ

[حمادة عمر]

السلام عليكم

الاخ / ahmd_asd4

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

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

[حمادة عمر]

للرفع

[حمادة عمر]

للرفع

[حمادة عمر]

للرفع

[أبو حنــــين]

السلام عليكم

اخي جرب هذا الكود و اكتبه في حدث Workbook_Open في جميع الملفات ماعدى الملف الرئيسي

قم بعملية نسخ لصق للكود

Private Sub Workbook_Open()

On Error Resume Next

Dim xl As Workbook

Set xl = Workbooks("فتح.xls")

With xl

.Close

End With

End Sub

تم تعديل ديسمبر 28, 2012 بواسطه أبو حنين

[رجب جاويش]

السلام عليكم

أخى الفاضل

جرب الملف المرفق

1 خزينة.rar

[رجب جاويش]

أخى الحبيب / أبو حنين

رفعنا الحلين فى وقت واحد تقريبا كالعادة

تقبل أرق تحياتى

[أبو حنــــين]

لكنني سبقتك . . .

بثواني قليلة رغم انني اكتب بيد واحدة فما بالك لو كنت بكلتا اليدين

ههههههههههههه

تقبل تحياتي الاخوية جدا جدا جدا

[رجب جاويش]

تسلم ايديك الإثنين

وتسلم أفكارك وروحك الحلوة

[حمادة عمر]

السلام عليكم

الاستاذ الكبير جدا / أبو حنين

الاستاذ الكبير جدا / رجب جاويش

الكود يعمل بشكل رائع ولايسعني ولا اجد كلمات للرد علي اساتذه عظام مثلكم الا كما امرنا رسول الله صلي الله عليه وسلم

بأنه لكي توفي حق احد صنع لك معروفا ان تقول له (((( جزاك الله خير ))))

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

هل يمكن اضافة جزء للكود ليقوم بحفظ الملف الرئيسي قبل اغلاقة وفتح الملف المختار

وأأسف للالحاح في طلب الرد ولكني اريد هذا الحل لانهي ملفي قبل بداية العام

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

تلميذكم

[الـعيدروس]

السلام عليكم

بعد اذن الاساتذه الافاضل بيكون كالتالي

Private Sub Workbook_Open()

On Error Resume Next

Dim xl As Workbook

Set xl = Workbooks("فتح.xls")

With xl

.Close

.Save

End With

End Sub

[حمادة عمر]

السلام عليكم

الاستاذ الكبير القدير جدا / ALIDROOS ( أبو نصار )

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

ولكن عندما وضعت الكود الاخير كان يطلب مني الاكسيل دائما ( هل تريد حفظ الملف فتح ) فقمت بتعديل بسيط في الكود وهو

.Save

.Close

بدلا من

.Close

.Save

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

جزاكم الله عنا وعن هذا المنتدي خيراً

[أبو حنــــين]

ضع هذا السطر بعد with xl

Application.DisplayAlerts = False

تم تعديل ديسمبر 29, 2012 بواسطه أبو حنين

[حمادة عمر]

السلام عليكم

اسعد الله صباحك يا ابو حنين

هل يتم اضافة هذا السطر بعد تعديل الكود ( كود الاستاذ / عباد ) ام قبله في ( كود / سيادتكم ) او كود الاستاذ الرائع / رجب جاويش

جزاكم الله خيرا وزادكم الله علما اساتذتنا الرائعين

[أبو حنــــين]

ضع الكود بهذه الطريقة

Private Sub Workbook_Open()

On Error Resume Next

Dim xl As Workbook

Set xl = Workbooks("فتح.xls")

With xl

Application.DisplayAlerts = False

.Close

.Save

End With

End Sub

[حمادة عمر]

السلام عليكم

آسف علي تأخري عنكم اساتذتي الكرام ولكن لظروف صعبة

الكود يعمل استاذي القدير ولكن بالطريقة التي ذكرتها لسيادتكم

بوضع save قبل close في الكود مع اضافة السطر الذي قدمته الي استاذي / ابوحنين

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

فهل لو اصبح الكود بالطريقة التي ذكرتها لسيادتكم يصبح به مشكلة

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