بالنسبة لكلك يميين على اى خلية بالشيت

[mhareek]

اخوانى اريد ان الغى القائمة التى تاتى عند ضغط كليك يمين على اى خلية فى صفحة الاكسيل

بحيث لو ضغطت كليك يمين تاتى رسالة تقول لايمكن التعديل

ارجو المساعدة

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

تم تعديل مايو 25, 2009 بواسطه mhareek

[احمدزمان]

الكود بالرابط التالي

http://www.officena.net/ib/index.php?s=&am...ost&p=87893

و غير true - false

[mhareek]

جميل

مشكور اخى الحبييب على سرعة الرد والتفاعل

بارك الله فيك

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

[mhareek]

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

[ياسر خليل أبو البراء]

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

عاشق الإكسيل

[هادى محمد المامون سالم]

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

بسم الله الرحمن الرحيم

طبعا ممكن نضحك على vba

انسخ الكود التالى فى صفحه اكواد ورقه العمل

Private Sub Worksheet_Activate()
    Application.CommandBars("cell").Enabled = False
End Sub
Private Sub Worksheet_Deactivate()
    Application.CommandBars("cell").Enabled = True
End Sub

مرفق ملف يغلق الماوس فى Sheet1 فقط و باقى اوراق العمل يعود الوضع الطبيعى للماوس

السلام عليكم

Right_Click.rar

[يحيى حسين]

بعد إذن الاخوة

يمكنك الغاء عمل الكليك اليمين من خلال الحدث

Worksheet_BeforeRightClick

على الشكل التالي

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

[mhareek]

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

الاستاذ هادى محمد بارك الله فيك عمل رائع جزاك الله خيرا

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

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

[ياسر خليل أبو البراء]

الأخ هادي

الأخ Justice

إبداع - تميز - رقي - روعة

مشاركات رائعة وأكواد مفيش بعد كدا

عاشق الإكسيل