انتقل إلى المحتوى الرئيسي

كيفية تعطيل النقر بزر الماوس الأيمن على علامة تبويب الورقة في إكسيل؟

تتناول هذه المقالة تعطيل النقر بزر الماوس الأيمن فوق علامة تبويب الورقة في مصنف. يرجى القيام بالطريقة التالية خطوة بخطوة.

قم بتعطيل النقر بزر الماوس الأيمن فوق علامة تبويب الورقة في Excel برمز VBA


قم بتعطيل النقر بزر الماوس الأيمن فوق علامة تبويب الورقة في Excel برمز VBA

يمكن أن يساعدك البرنامج النصي VBA التالي في تعطيل قائمة النقر بزر الماوس الأيمن في علامة تبويب الورقة في Excel. الرجاء القيام بما يلي.

1. في المصنف ، تحتاج إلى تعطيل وظيفة النقر بزر الماوس الأيمن في علامة تبويب الورقة ، اضغط على قديم + F11 مفاتيح في نفس الوقت لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر مرتين ThisWorkbook على اليسار قسم المشاريع ، ثم انسخ والصق رمز فبا التالي في ملف ThisWorkbook (كود) نافذة او شباك. انظر لقطة الشاشة:

كود فبا: تعطيل النقر بزر الماوس الأيمن على علامة تبويب الورقة في إكسيل

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Ply").Enabled = True
End Sub

Private Sub Workbook_Open()
    Application.CommandBars("Ply").Enabled = False
End Sub

3. ثم اضغط على قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

4. انقر قم بتقديم > حفظ باسم. في حفظ باسم مربع الحوار ، يرجى تحديد مجلد حيث تريد حفظ المصنف ، قم بتسميته في اسم الملف مربع كما تريد ، وحدد مصنف Excel ممكن بماكرو الخيار من حفظ كنوع القائمة المنسدلة ، ثم انقر فوق الزر حفظ .

الآن تم حفظ المصنف كمصنف Excel ممكّن لماكرو ، وتم تعطيل وظيفة النقر بزر الماوس الأيمن في علامة تبويب الورقة أثناء استخدام هذا المصنف.


مقالات ذات صلة:

أفضل أدوات إنتاجية المكتب

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

علامة تبويب kte 201905


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Can you explain this function, I don't understand, thank you " Application.CommandBars("Ply") "
This comment was minimized by the moderator on the site
Hi kitti,
Using the CommandBar named "Ply", it is possible to disable right clicks on a sheet tab:
This comment was minimized by the moderator on the site
How can i get a message when i disable richt click on worksheet tab
This comment was minimized by the moderator on the site
Hi Glenn Daelman,
Sorry I didn't get your point. Would you explain with more details? Thank you for your comment.
This comment was minimized by the moderator on the site
Superb Right Click in sheet tab is working.

Thanks alot
This comment was minimized by the moderator on the site
Private Sub Workbook_Open()
Application.CommandBars("Ply").Enabled = False
End Sub

this only deactivates RIGHT CLICK -- does not prevent the DOUBLE CLICK on tab from being renamed...
many thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations