megonil قام بنشر يوليو 1, 2007 مشاركة قام بنشر يوليو 1, 2007 إخوانى فى منتدانا المتميز اريد منكم مساعدتى وإمدادى بكيفية جعل الملف يفتح على الوضع ملء الشاشة مع إخفاء كل أشرطة الإكسل إن أمكن وشكرآ أخوكم محى الدين عنتر سبحان الله وبحمده شبحان الله العظيم سبحان الله وبحمده شبحان الله العظيم سبحان الله وبحمده شبحان الله العظيم أرجو الدعاء لوالدى بالشفاء رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يوليو 2, 2007 مشاركة قام بنشر يوليو 2, 2007 السلام عليكم hide.rar رابط هذا التعليق شارك More sharing options...
شحادة بشير قام بنشر نوفمبر 8, 2007 مشاركة قام بنشر نوفمبر 8, 2007 أخ أبو أسامة هل لك أن تشرح لنا الطريقة؟ لأنها غير واضحة بملفك المرفق جزاك الله خيراً رابط هذا التعليق شارك More sharing options...
cleaverman قام بنشر نوفمبر 9, 2007 مشاركة قام بنشر نوفمبر 9, 2007 شكرا للأخ أبو اسامة واضم صوتى مع الاخ ابو اكرم لان المثل يقول لا تعطيني سمكة ولكن علمني كيف اصطاد رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر نوفمبر 9, 2007 مشاركة قام بنشر نوفمبر 9, 2007 (معدل) السلام عليكم الكود التالى يقوم باخفاء اشرطه الادولت كلها و بتنفيذ امر (العرض ملء الشاشة) و هو كود يعمل عند فتح الملف 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 بواسطه ابو اسامة العينبوسي رابط هذا التعليق شارك More sharing options...
شحادة بشير قام بنشر نوفمبر 9, 2007 مشاركة قام بنشر نوفمبر 9, 2007 جزاك الله خيرا أخ أبو أسامة طيب ما الطريقة التي نستطيع من خلالها إلغاء هذا الكود بعد وضعه؟ سؤال آخر: نتمنى أن تكمل معروفك معنا وتعطينا طريقة نضع فيها زراً لذلك (إظهار / إخفاء) حياك الله رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر نوفمبر 9, 2007 مشاركة قام بنشر نوفمبر 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 رابط هذا التعليق شارك More sharing options...
شحادة بشير قام بنشر نوفمبر 9, 2007 مشاركة قام بنشر نوفمبر 9, 2007 جربت الكود الأخير ولم يعمل.. ما المشكلة؟ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.