كود إخفاء شريط العنوان في الاكسل ومنع استخدام المفتاح Esc من لوحة المفاتيح

[ابو تميم]

تحية حارة إلى جميع مشرفين وأعضاء منتدى اوفيسنا

ما هو الكود الذي يعمل على إخفاء شريط العنوان في ملف الاكسل وأيضا كود لمنع المستخدم من استخدام مفتاح Esc من لوحة المفاتيح على ملف الاكسل

والغاية من ذلك أني أستخدم في ملف اكسل لدي خاصية إخفاء جميع أشرطة الأدوات وطريقة العرض بوضع كامل الصفحة Full screen وإذا قام المستخدم بالضغط على مفتاح Esc يتم إلغاء وضع Full screen وإذا قام المستخدم بالضغط على زر الاغلاق X من شريط العنوان يقوم بإغلاق الملف

والمطلوب في الملف هو

1. إجبار المستخدم من الخروج من البرنامج فقط وحصريا بالضغط على زر الخروج الذي تم تخصيصه له في البرنامج فقط ومنعه من الخروج من أية طريقة أخرى مثل زر X في شريط العنوان

2. منع المستخدم من استخدام زر Esc وذلك لإجباره على استخدام وضع العرض Full screen وعدم التحول إلى وضع آخر وعدم استخدام أشرطة الأدوات بأي شكل من الأشكال

شكرا للجميع

[الـعيدروس]

السلام عليكم

تفضل هذا الكود لتقييد الرجوع

Full screen

Sub ALI_CANCEL()

ActiveWindow.DisplayHeadings = False

Application.DisplayFormulaBar = False

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

End Sub

وهكذا للرجوع للوضع العادي

Sub ALI_SHOW()

ActiveWindow.DisplayHeadings = True

Application.DisplayFormulaBar = True

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

End Sub

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

لمنع الإغلاق من زر الإكسل

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Cancel = True

End Sub

والسلام عليكم

[أبو أنس حاجب]

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

أستاذي الفاضل النبيل أبا نصار نور قلبك ربي

اللهم زده علماً على علم واحفظه من فوقه ومن تحته وعن يمينه وعن شماله واعوذ بعزتك أن يغتال من تحته أوخلفه

أبوأنس ناصر حاجب

[الـعيدروس]

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

الاخ الفاضل حاجب اسعدني مرورك العطر وكلماتك الطيبه

ولك مثل دعائك اضعاف مضاعفة ان شاء الله

تقبل تحياتي وشكري

[اوفيس 2003]

جزاك الله كل خير استاذ علي

[ابو تميم]

تحياتي أخي alidroos

كود جميل جدا

ولكن في حال وضع كود منع الاغلاق من زر اكسل فإن ذلك يمنع الخروج أيضا من زر الحفظ والخروج الذي تم تخصيصه للمستخدم بالكود التالي

Sub save_exit()

	ThisWorkbook.Save

	Application.Quit

End Sub

وإذا قمنا بإزالة كود منع الاغلاق من زر الاكسل يستطيع المستخدم عندها استخدام المفتاح Esc من لوحة المفاتيح

أي أن منع الاغلاق من زر الاكسل يتعارض هنا مع منع استخدام مفتاح Esc

هل يمكن تعديل الكود ليتناسب مع المطلوب

شكرا للجميع

[ريان أحمد]

السلام عليكم

أين يوظع الكود الأول والثاني وجزاكم الله كل حير

[عبدالله باقشير]

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

الشكر واصل للحبيب ابو انصار

نفس الاكواد المستخدمة اعلاه

وضعتها في موديل آخر

(ليس موديل حدث ThisWorkbook)

دخول وخروج للورك بوك

Sub Auto_Open()

With Application

    .ActiveWindow.DisplayHeadings = False

    .DisplayFormulaBar = False

    .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"

End With

End Sub

هذا الكود سيستخدم اتوماتيكيا عند الضغط على اكس الخروج وايضا ممكن تربطه بزر آخر

Sub Auto_Close()

With Application

    .ActiveWindow.DisplayHeadings = True

    .DisplayFormulaBar = True

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

    .Workbooks(ThisWorkbook.Name).Save

    .Quit

End With

End Sub

جرب

انا لم اضيف شي هذه اكوادكم ردت اليكم

ودمتم في حفظ الله

[الـعيدروس]

السلام عليكم

جزاك الله خير استاذ عبدالله

دائما نتعلم منكم

وهذه حيلة بسيطه زبطت معي

هذه اكواد حدث THISWORKBOOK

Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next

If Sheets(1).Range("IT1").Value = 0 Then

Cancel = True

Else

Cancel = False

End If

End Sub

Private Sub Workbook_Open()

Sheets(1).Range("IT1").Value = 0

ActiveWindow.DisplayHeadings = False

Application.DisplayFormulaBar = False

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

End Sub

وهذا الكود الإغلاق

Sub XX()

On Error Resume Next

Application.EnableEvents = False

Sheets(1).Range("IT1").Value = 1

With ThisWorkbook

	    .Save

End With

	    Application.Quit

Application.EnableEvents = True

End Sub

[الـعيدروس]

السلام عليكم

الاخ طاهر

تفضل المرفق وبه الأكواد

C_SHOW_A.rar

[الشهابي]

الأستاذ القدير : أبو نصار

جزاك الله كل خير أنت واستاذنا الكبير عبد الله باقشير

قمت بتحميل الملف المرفق في المشاركة رقم 10

وفتحت الملف وتم عمل اللازم

ولكن عند وجود ملف آخر ويطلب منك الحفظ أوعدمه أوإلغاء الأمر وتلغي أمر الإغلاق

يظهر شريط المهام ويمكن الإغلاق بالضغط على زر أكس

والعفو منكم

[ابو تميم]

شكرا للجميع على الاستجابة

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

هل يمكن تعديل الكود لإغلاق الملف الذي يوجد به هذا الكود فقط دون الحاجة لإغلاق باقي الملفات

وشكرا للجميع

[الـعيدروس]

السلام عليكم

إضافة بسيطه للكود الاخير

جرب بعد التعديل ان شاء الله يزبط معاك

Sub XX()

On Error Resume Next

Application.EnableEvents = False

Sheets(1).Range("IT1").Value = 1

With ThisWorkbook

			.Save

			.Close

End With

'			Application.Quit

Application.EnableEvents = True

End Sub

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

[ابو تميم]

كود جميل جدا أخي alidroos

التعديل الأخير يفي بالغرض ويغلق الملف صاحب العلاقة دون التدخل في الملفات الأخرى المفتوحة على الجهاز

ولكني الآن أبحث عن تعديل بسيط على الكود الأصلي وذلك حيث انه إذا قام المستخدم بالضغط على زر X لإغلاق الاكسل فإنه هنا يتم إظهار شريط الصيغة تلقائيا

هل يمكن التعديل على الكود الأصلي لمنع ظهور شريط الصيغة عند الضغط على زر X

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

[الـعيدروس]

جرب هكذا

Sub XX()

On Error Resume Next

Application.EnableEvents = False

Sheets(1).Range("IT1").Value = 1

Application.DisplayFormulaBar = False

With ThisWorkbook

	    .Save

End With

	    Application.Quit

Application.EnableEvents = True

End Sub

[ابو تميم]

شكرا أخي ابو نصار لقد جربت ذلك ولم يفلح بشيء ومشكلة ظهور شريط الصيغة لا زال يظهر عند الضغط على زر X

ولكن هذا الكود لا يختلف عن الكود القديم لأن الإضافة التي تمت إضافتها عليه وهي :

Application.DisplayFormulaBar = False

هي أصلا موجودة في الكود الأصلي ولم نغير عليها شيء

شكرا أخي ابو نصار على جهودك

[lvhsdl]

السلام عليكم

ممكن اضافة كود لاخفاء شريط الصفحات

[الـعيدروس]

السلام عليكم

الاخ الفاضل lvhsdl

تم اضافة اخفاء شريط الصفحات

تفضل المرفق

C_SHOW_A_1.zip

[اوفيس 2003]

موضوع رائع

[عمر أبو صهيب]

فعلا موضوع شيق

لكن تبقى الإشكالية العالقة التي صادفتها في عدة مواضيع مشابهة هي عدم ظهور رسالة الحفظ قبل الإغلاق

[اوفيس 2003]

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

[ايمن ريا]

السلام عليكم 

برجاء الاطلاع على المرفق ، ولكم كل الشكر

C_SHOW_A_2.rar