تجميع ورقات العمل في شكل برنامج متكامل

[mohgadal]

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

[احمدزمان]

السلام عليكم ورحمة الله

هذا ما تعلمته من اساتذتي في هذا المنتدى

هذا اذاكانت صفحة البداية اسمها رئيس

و الله اعلم

Sub auto_open()
'تكبير العرض في وندوذ الى مكبر
    Application.WindowState = xlMaximized
'عرض ملء الشاشة
    Application.DisplayFullScreen = True
'اظهار شريط عرض ملء الشاشة
    Application.CommandBars("Full Screen").Visible = False
'اختيار صفحة البداية
    Sheets("رئيس").Select
'الصفحة المختارة اخفاء رئوس الصفوف و الأعمدة +اخفاء قيم الصفر +اخفاء قائمة اسماء الأوراق
        With ActiveWindow
        .DisplayHeadings = False
        .DisplayZeros = False
        .DisplayWorkbookTabs = False
    End With
End Sub

[mohgadal]

ولكن أخي احمد كيف سأقوم بهذه العملية ..اريد الخطوات ..واين سأضع هذا الكود ..في اي ورقة..وفي اي موضع ... مع العلم ان جميع ورقات العمل جاهزه (ورقة تحكم + الورقات الاخرى )

مع شكري للجميع ....

[ابوالزوز]

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

أخي العزيز يتم وضع الكود التالي في open workbook :

Sheets("اسم الورقة").activate

تم تعديل أبريل 7, 2008 بواسطه abuzzouz

[احمدزمان]

السلام عليكم

اخي الحبيب

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

ثم ضع كامل الكود المرفق مسبقا بة

وعند تشغيل الملف سوف يعمل تلقائيا

الملف المرفق من دروس الأستاذ القدير محمد طاهر جزاه الله عنى خير الجزاء

____________________________________.rar

[azozato]

مشكور ياغالى

وجدت ما أبحث عنه