اريد تعطيل الخيارات من قائمة الادوات في ملف الاكسل . ما هي الطريقة؟؟

[المستفيد نت]

اريد تعطيل الخيارات من قائمة الادوات في ملف الاكسل . ما هي الطريقة؟؟هل هناك كود او امر معين؟

[ابو اسامة العينبوسي]

السلام عليكم

Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=522).Enabled = False

ضع الكود في حدث فتح الملف

Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=522).Enabled = False
End Sub

* اخبرنى بالنتيجه

تم تعديل يونيو 20, 2008 بواسطه ابو اسامة العينبوسي

[h63]

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

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

وترسل مرفق

شكرا مقدما

الله الموفق

[المستفيد نت]

اخوي ابو اسامة مشكور

على مجهودك .

لكن الكود يظهر خطأ كما هو في الملف المرفق

Book1.rar

[ابو اسامة العينبوسي]

السلام عليكم

حاول هذه

Application.CommandBars("Tools").FindControl(ID:=522).Enabled = False

قد تعمل مع اكسل 2003 فما دون

تم تعديل يونيو 20, 2008 بواسطه ابو اسامة العينبوسي

[المستفيد نت]

شكرا لك ابو اسامة .

لكن الملف ما صار فيه اي تعطيل لقائمة الخيارت علما اني اعمل على 2003

[ابو اسامة العينبوسي]

السلام عليكم

الكود يعمل 100%

جربته على Excel 2003

[المستفيد نت]

هل ممكن تعطينا الكود داخل ملف ولك الشكر

[نزار سليمان عيد]

السلام عليكم

بعد اذن اخي ابو اسامة

انظر للمرفق

Options.rar

[يحيى حسين]

اخي

لقد جربت كود ابو اسامة و هو يعمل 100%

و هذه صورة مرفقة توضح كيف تم تنفيذ الكود

وكيف تم تعطيل الامر Option

و دمتم بود

disabile_Option_from_menu.rar

[المستفيد نت]

يعطيكم العافية جميعا والله لا يحرمنا منكم ومشكور اخوي نزار .الخيارات تعطلت

[h63]

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

للاسف ولا ملف منهم يعمل عندى

الله الموفق

[Best]

الاخ المستفيد نت

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

اي انك ستجبر المستخدم من خلال اخفاء الخيارات في عدم القدرة على التحكم

و لم تطلب عمل ازرار لاخفاء و اظهار هذه الاشياء