إخفاء شريط الأدوات بالكود

[obad65]

أساتذتي الأفاضل

كل عام وانتم بألف خير

هل توجد طريقة باستخدام الأكواد لإخفاء :

شريط الأدوات - شريط الصيغة - أرقام الصفوف والأعمدة - شريط التمرير الأفقي والعمودي

مع خالص الشكر والتقدير للجميع

[عبد الفتاح كيرة]

ماذا يبقى لتظهره

هذا أولا

إخفاء القوائم و شريط الصيغة جربه

On Error Resume Next


        With Application


           .DisplayFullScreen = True


           .CommandBars("Full Screen").Visible = False


           .CommandBars("MyToolbar").Enabled = True


           .CommandBars("MyToolbar").Visible = True


           .CommandBars("Worksheet Menu Bar").Enabled = False


        End With


    On Error GoTo 0

وهذا

Sub HideRibbon() 


Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" 


End Sub 

تم تعديل نوفمبر 19, 2010 بواسطه kemas

[obad65]

لم يبقى سوى سلامتك والدعاء لك بكل خير

جزاك الله الف خير أخي kemas

[الزرقطوني]

الاخ المحترم kemas عذرا لو سمحت اين نضع هذا الكود

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

[عبد الفتاح كيرة]

اعمل زر أمر

و ضعه فيه

أو فى

thisworkbook

أو فى

worksheet_active

[الزرقطوني]

شكرا جزيلا الاخ kemas

لكن نعود الى الوضعية الاصلية بعد تطبيق الامر

ارجو المعذرة

[عبد الفتاح كيرة]

فقط

غير كل false فى الكودين إلى true

[الزرقطوني]

عذرا اخي

يبدو انني لم اكن واضحا

اريد كودين احدهما هو السابق الموجود بحوزتنا

واريد كود أخر يقوم بإظهار ما تم اخفائه

اعتقد أنني اوضحت الامر

شكرا جزيلا اخي kemas

[الزرقطوني]

اخي kemas

هذا الكود لما جربته على احد الملفات فقدت شريط الادوات من الاكسل

ولم استطع ارجاعه رغم حدف الملف كله الذي كان يحتوي هذا الكود

ارجو ان تفك عقدتي

لك جزيل الشكر

[عبد الفتاح كيرة]

Sub RestoreToolbars()


    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

,

Sub HideRibbon() 


Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)" 


End Sub 

تم تعديل نوفمبر 20, 2010 بواسطه kemas

[احمد حمور-ابوعبدالله]

اخي كيماس

مبدع كعادتك

وردود واضحه وقيمه

وارجوا ان تسمح لمشاركتكم بالجواب

المرفق به ملف بطلب السائل بزرين امر اخفاء واظهار كما طلب

وبه ايضا استرجاع ملفات الاكسيل فقط ما عليك الا ان تصغط دبل كليك ومن ثم ok ok

=================================

وعذرا مره اخرى لتطفلي بالاجابه ولكن من باب المشاركه

New Folder.rar

[عبد الفتاح كيرة]

أحسن الله إليك أبا عبد الله

و شكرا لمساعدتك

و تفضل بدون استئذان

تم تعديل نوفمبر 20, 2010 بواسطه kemas

[الزرقطوني]

شكرا جزيلا أخي ahmad hamour

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

[أبو محمد أشرف]

رائع أستاذ عبد الفتاح كيره 

وطالت غيبتك لعل المانع خير

[أبو أنس80]

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

[sh3esha3]

هل باستطاعتى ان اخفى الريبون وعدم اظهارها الى بابسورد

[baiomy91]

بخصوص الكود انا استخدمته والحمدلله تمام تسلم بس فى نقطة ان لما اقفل ملف الاكسل وافتحة الاقي شريط الادوات ظهر تانى

تم تعديل نوفمبر 23, 2016 بواسطه baiomy91