عمر أبو صهيب قام بنشر فبراير 18, 2013 قام بنشر فبراير 18, 2013 (معدل) هذه أول مشاركة لي في المنتدى راجيا من الله أن أجد منكم المساعدة و التوجيه . أنشأت ملفا لحساب معدلات التلاميذ و استخراج شواهدهم . ما أريده .. كود لإخفاء زر الأوفيس و كل قوائم الإكسل و لا يبقى إلا الخلايا و شريط التمرير لتوزيعه على باقي أساتذة مدرستي . مع التنصيص على أن يكون الأمر في هذا الملف فقط ... أي عندما أفتح ملفا آخر يكون بطريقة عادية و جزاكم الله خيرا تم تعديل فبراير 18, 2013 بواسطه عمر أبو صهيب
جلال محمد قام بنشر فبراير 19, 2013 قام بنشر فبراير 19, 2013 اخي عمر السلام عليكم ارفقت لك ملف كان موجود عندي من فترة فهل هو المطلوب ؟ Book2.rar 1
حمادة عمر قام بنشر فبراير 19, 2013 قام بنشر فبراير 19, 2013 السلام عليكم الاخ الكريم / عمر أبو صهيب لإثراء الموضوع وعلي حسب فهمي هو نفس الطريقة المستخدمة من الاخ الكريم / جلال محمد .... جزاه الله خيرا يفعل ما تريد عند فتح الملف (يقوم باخفاء كل قوائم الاكسيل ) وعند اغلاق الملف ( يقوم باعادة القوائم لطبيعتها ) بوضع الكود في حدث ThisWorkbook ارجو ان اكون وفقت فيما طلبت جزاك الله خيراً Book2+.rar 1
عمر أبو صهيب قام بنشر فبراير 20, 2013 الكاتب قام بنشر فبراير 20, 2013 جزاكما الله خيار و أحسن إليكما أخواي الكريمان جلال محمد و حمادة عمر على الاهتمام و المساعدة هذا بالضبط ما أبحث عنه أسأل الله لكما الأجر و الثواب الجزيل
حمادة عمر قام بنشر فبراير 20, 2013 قام بنشر فبراير 20, 2013 السلام عليكم الاخ الكريم / عمر أبو صهيب بارك الله فيك وان شاء الله ستسعد كثيراً بالانضمام الينا في اسرة هذا الصرح العملاق جزاك الله خيراً
عمر أبو صهيب قام بنشر مارس 5, 2013 الكاتب قام بنشر مارس 5, 2013 قمت بوضع الكود كما يلي : فعلا الأمر يشتغل تمام التمام لكن المشكل يكمن في أن الأمر يطبق على كل ملف تم فتحه بعد ذلك ... و هذا غير مرغوب فيه ... بل أود أن يخص الخيار الملف المطبق عليه فقط . فما العمل ؟ و جزاكم الله خيرا و بارك في مساعيكم .
حمادة عمر قام بنشر مارس 5, 2013 قام بنشر مارس 5, 2013 لسلام عليكم الاخ الكريم / عمر أبو صهيب ضع الكود بالشكل التالي في حدث ThisWorkbook Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Application.DisplayFullScreen = False ActiveWorkbook.Application.CommandBars("FULL SCREEN").Visible = True ActiveWorkbook.Application.CommandBars("WORKSHEET MENU BAR").Enabled = True ActiveWorkbook.Application.CommandBars("STANDARD").Visible = True ActiveWorkbook.Application.CommandBars("FORMATTING").Visible = True ActiveWorkbook.Application.DisplayStatusBar = True ActiveWorkbook.Application.DisplayFormulaBar = True End Sub Private Sub Workbook_Open() ActiveWorkbook.Application.DisplayFullScreen = True ActiveWorkbook.Application.CommandBars("FULL SCREEN").Visible = False ActiveWorkbook.Application.CommandBars("WORKSHEET MENU BAR").Enabled = False ActiveWorkbook.Application.CommandBars("STANDARD").Visible = False ActiveWorkbook.Application.CommandBars("FORMATTING").Visible = False ActiveWorkbook.Application.DisplayStatusBar = False ActiveWorkbook.Application.DisplayFormulaBar = False End Sub حيث يعمل عند الفتح بعمل الشاشة بشكل كامل واخفاء جميع الاشرطة وكود آخر عند الاغلاق لاعادة كل شئ الي طبيعته كما هو وجود بالملف في المشاركة رقم 3# جزاك الله خيرا
عمر أبو صهيب قام بنشر مارس 5, 2013 الكاتب قام بنشر مارس 5, 2013 جزاك الله خيرا أخي الفاضل حمادة عمر الأمر كله مرتبط بجهل وظيفة الجزء الثاني من الكود . تحياتي الأخوية الصادقة
حمادة عمر قام بنشر مارس 5, 2013 قام بنشر مارس 5, 2013 السلام عليكم الاخ الكريم / عمر أبو صهيب بارك الله فيك جزاك الله خيرا
وليد زقزوق قام بنشر مارس 5, 2013 قام بنشر مارس 5, 2013 ممتاز ولكن هل من الممكن في كود الاخفاء ان نلغي اخفاء شريط الحالة او المعلومات
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.