Hide And Show The Menu Bar

[Yasser Fathi Albanna]

أحبائى أعضاء وأساتذة المنتدى العظيم

أتمنى من الله أن تكونوا جميعا بخير

أقدم لكم اليوم كودين

الكود الأول وهو لإخفاء أشرطة الأدوات

والكود الثانى لإظهار أشرطة الأدوات

ولا أدرى إذا كان الموضوع مكرر أم لا

عموما للفائدة

Sub RemoveToolbars_HH()

    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

End Sub

Sub RestoreToolbars_HH()

    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

Hide And Show The Menu Bar Yasser Albanna.rar

تم تعديل مايو 31, 2015 بواسطه Eng : Yasser Fathi Albanna

[أحمد عبد العاطي رشيدي]

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

[Yasser Fathi Albanna]

شرفت بمرورك أخى الفاضل / أحمد الرشيدي81

[علي الشيخ]

شكرا جزيلا أستاذ ياسر وجزاك الله خيرا

[Yasser Fathi Albanna]

شكرا جزيلا أستاذ ياسر وجزاك الله خيرا

شرفنى مرورك القدير أخى الفاضل أ / على الشيخ

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

[خزاني]

شكرا جزيلا 

[Yasser Fathi Albanna]

شكرا جزيلا 

أخى أ / خزانى شرفت بمرورك

[مختار حسين محمود]

جزاكم الله خيراً أخى ياسر  تقبل تحياتى

[الزباري]

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

Eng : Yasser Fathi Albanna

[Yasser Fathi Albanna]

جزاكم الله خيراً أخى ياسر  تقبل تحياتى

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

[Yasser Fathi Albanna]

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

Eng : Yasser Fathi Albanna[/quote

جزيت خير الجزاء اخي الفاضل

شكرا لمرورك