كيفية جعل الملف يفتح على وضع ملء الشاشة

[megonil]

إخوانى فى منتدانا المتميز

اريد منكم مساعدتى وإمدادى بكيفية جعل الملف يفتح على الوضع ملء الشاشة

مع إخفاء كل أشرطة الإكسل إن أمكن وشكرآ

أخوكم محى الدين عنتر

سبحان الله وبحمده شبحان الله العظيم

سبحان الله وبحمده شبحان الله العظيم

سبحان الله وبحمده شبحان الله العظيم

أرجو الدعاء لوالدى بالشفاء

[ابو اسامة العينبوسي]

السلام عليكم

hide.rar

[شحادة بشير]

أخ أبو أسامة هل لك أن تشرح لنا الطريقة؟

لأنها غير واضحة بملفك المرفق

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

[cleaverman]

شكرا للأخ أبو اسامة

واضم صوتى مع الاخ ابو اكرم

لان المثل يقول لا تعطيني سمكة ولكن علمني كيف اصطاد

[ابو اسامة العينبوسي]

السلام عليكم

الكود التالى يقوم باخفاء اشرطه الادولت كلها و بتنفيذ امر (العرض ملء الشاشة)

و هو كود يعمل عند فتح الملف Workbook_Open

Private Sub Workbook_Open()
 On Error Resume Next
        With Application
           .DisplayFullScreen = True
           .CommandBars("Full Screen").Visible = False
           .CommandBars("MyToolbar").Enabled = False
           .CommandBars("MyToolbar").Visible = False
           .CommandBars("Worksheet Menu Bar").Enabled = False
        End With
    On Error GoTo 0

End Sub

تم تعديل نوفمبر 9, 2007 بواسطه ابو اسامة العينبوسي

[شحادة بشير]

جزاك الله خيرا أخ أبو أسامة

طيب ما الطريقة التي نستطيع من خلالها إلغاء هذا الكود بعد وضعه؟

سؤال آخر: نتمنى أن تكمل معروفك معنا وتعطينا طريقة نضع فيها زراً لذلك (إظهار / إخفاء)

حياك الله

[ابو اسامة العينبوسي]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  On Error Resume Next
        With Application
           .DisplayFullScreen = False
           .CommandBars("MyToolbar").Enabled = False
           .CommandBars("Worksheet Menu Bar").Enabled = True
        End With
    On Error GoTo 0

End Sub

[شحادة بشير]

جربت الكود الأخير ولم يعمل..

ما المشكلة؟