كيفية منع حذف الصفوف أو الأعمدة في مصنف مشترك غير محمي؟
عند مشاركة مصنف مع الآخرين ، كيف يمكنك منع الآخرين من حذف أعمدة أو صفوف المصنف المشترك دون حماية المصنف؟ أجد هنا رمز VBA الذي يمكنه منع الآخرين من حذف الأعمدة والصفوف في مصنف مشترك.
منع حذف الصفوف أو الأعمدة في مصنف مشترك باستخدام VBA
منع حذف الصفوف أو الأعمدة في مصنف مشترك باستخدام VBA
1. صحافة ALT + F11 فتح Microsoft Visual Basic للتطبيق نافذة.
2. انقر إدراج > وحدة لفتح نافذة وحدة نمطية ، ثم انسخ VBA التالي إلى النافذة.
فبا: منع حذف الصفوف أو الأعمدة.
Sub StopDeleteRowCols()
'Updateby20221221
Dim xBarControl As CommandBarControl
Application.OnKey "^{-}", ""
For Each xBarControl In Application.CommandBars.FindControls(ID:=293)
xBarControl.Enabled = False
Next
For Each xBarControl In Application.CommandBars.FindControls(ID:=294)
xBarControl.Enabled = False
Next
End Sub
3. انقر يجري زر أو F5 مفتاح على لوحة المفاتيح لتشغيل هذا الرمز.
ثم عندما ينقر الآخرون بزر الماوس الأيمن لحذف الأعمدة أو الصفوف المحددة ، لا يمكن تطبيق خيار الحذف في قائمة السياق. انظر لقطة الشاشة:
كما أنه يمنع المستخدمين من استخدام الاختصار Ctrl + - مفاتيح لحذف الصفوف أو الأعمدة.
ملحوظة:
(1) إذا قمت بمشاركة المصنف الخاص بك مع التقيم > مشاركة المصنف، لا يمكنك إضافة أي وحدات ماكرو VBA بعد الآن. لذلك ، من الأفضل إضافة VBA قبل مشاركة المصنف.
(2) سيعطل VBA ملف حذف في قائمة السياق في جميع المصنفات عند النقر بزر الماوس الأيمن فوق الأعمدة أو الصفوف المحددة.
(3) لاستعادة ملف حذف في قائمة السياق ، يرجى استبدال كليهما خطأ مع صواب في VBA أعلاه ، وقم بتشغيل VBA مرة أخرى.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!