تحديث قائمة الصفحات

[أيهاب ممدوح]

السلام عليكم

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

ehab.xlsm

[الـعيدروس]

وعليكم السلام

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

ehab2.xlsm

[أيهاب ممدوح]

السلام عليكم

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

 

ehab2 (1).xlsm

تم تعديل أكتوبر 13, 2019 بواسطه أيهاب ممدوح

[الـعيدروس]

السلام عليكم

اخ ايهاب ملاحظ انك نسخت اكواد حدث Workbook لماكرو

وهذا غير صحيح تعتبر احداث خاصة لاتعمل الا بواجهة المصنف فقط

او يرمز لها بأكواد مثلا حدث WorkBook Open بـ Auto_Open

Private Sub Workbook_Open()
Ref_Sh
End Sub

اذا اردات استخدامه عبر مودويل كالتالي

Sub Auto_open()
  Application.Run "Thisworkbook.Ref_Sh"
End Sub

واليك المرفق وبه طلبك

ehab3.xlsm

[أيهاب ممدوح]

شكرا استاذنا الكريم

جزاك الله خير