برجاء المساعدة بكود يقوم باخفاء واظهار جميع الاشرطة والقوائم وغيره ولكن بشروط

[فضل حسين]

الى خبراء واعضاء منتداى العزيز والعظيم

سلام الله عليكم ورحمته وبركاته

كل عام وانتم بخير بمناسبة العام الميلادى الجديد

مرفق ملف موضح به المطلوب وجزاكم الله كل خير

وشكرا

اخفاء جميع الاشرطة عند الدخول واظهارها عند الخروج.rar

[الـعيدروس]

السلام عليكم

الاخ الفاضل فضل حفظك الله

فضل اسم على مسمى

حط هذه الأكواد في حدث ThisWorkbook

Private Sub Workbook_Open()

Application.DisplayFormulaBar = False

ActiveWindow.DisplayHeadings = False

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

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

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

Application.DisplayFormulaBar = True

ActiveWindow.DisplayHeadings = True

End Sub

ولاتنسانا بدعوة كذا ان الله ييسر امورنا

تم تعديل يناير 1, 2012 بواسطه alidroos

[abouelhassan]

بارك الله فيك استاذنا.

اعزك الله

[فضل حسين]

استاذى الرائع / ابو نصار

سلام الله عليك ورحمته وبركاته

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

بالنسبة للاجابة على المشاركة رائعة مثل صاحبها . ولكن يبق لى الملحوظة وهى ان عندما ادخل على الملف معظم الشرائط وشريط القوائم والصيغ موجودة

وعند الخروج بالضغط على علامة ( الاكس ) يظهر مرة اخرى شريط رؤوس المعلومات .

انا ارجو من سيادتك عندما ادخل البرنامج لايظهر اى شئ مطلقا من جميع الاشرطة سواء كانت ادوات او قياسى او غيره وكذلك شريط الصيغ وغيره وطول انا شغال على البرنامج جميع هذة الاشرطة مخفية . وعندما اخرج من البرنامج سواء بحفظ او بدون حفظ ترجع الامور الى طبيعتها اى الاشرطة جميعها تظهر مرة اخرى .

اشكر سيادتك مرة اخرى على مرورك الكريم وانا سعيد والله بهذا المرور الكريم ويارب يوفقك ويكرمك يارب امين

تم تعديل يناير 2, 2012 بواسطه فضل 1

[الـعيدروس]

اشكرك على دعائك وكلماتك الطيبه

اخي الفاصل ماهو الاوفيس الذي تعمل عليه 2003 ام 2007؟

[فضل حسين]

الاستاذ الفاضل / ابو نصار

انا اعمل على اوفيس 2003

وشكرا للاهتمام والمشاركة

[الـعيدروس]

السلام عليكم

طيب جرب هكذا

Private Sub Workbook_Open()

Application.DisplayFormulaBar = False

ActiveWindow.DisplayHeadings = False

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

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

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

Application.DisplayFormulaBar = True

ActiveWindow.DisplayHeadings = True

Application.DisplayAlerts = False

Me.Saved = True

Application.DisplayAlerts = True

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Application.DisplayFormulaBar = False

ActiveWindow.DisplayHeadings = False

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

End Sub

ومرفق ملف فيديو لتأكيد عمل الكود عندي

S_ALIDROOS.rar

[فضل حسين]

الاستاذ الرائع / ابو نصار اولا وقبل اى شئ الف الف الف شكر لسيادتك لاهتمامك وحلولك الرائعة . فانا بالفعل شاهدت الفيديو وهو يعمل بشكل ممتاز . ولكن وللاسف عندى على اوفيس 2003 لم يعمل بنفس ظهوره فى الفيديو . وانا برجع السبب هو فى اختلاف الاوفيس . فى النهاية لايسعنى الا ان اشكر سيادتك شكرا جزيل واسف لو كنت تعبتك معاية بسبب اختلاف الاوفيس ورينا يخليك لنا ويباركلنا فيك ياابو نصار وكما يقولون والله ماقصرت

تم تعديل يناير 2, 2012 بواسطه فضل 1