كيفية تعطيل إمكانية إدراج الصفوف والعمود في إكسيل؟
عادةً ، يمكننا إدراج صفوف وأعمدة بين البيانات الموجودة بسرعة وسهولة ، إذا منعت الآخرين من إدراج أعمدة أو صفوف في ورقة عمل ، فقد يكون بإمكانك حماية الورقة لتعطيل وظيفة صفوف أو أعمدة الإدراج. ولكن ، كيف يمكنك تعطيل وظيفة إدراج الصف والعمود دون حماية الورقة؟
منع الآخرين من إدراج صفوف وأعمدة برمز VBA
منع الآخرين من إدراج صفوف وأعمدة برمز VBA
يمكن أن يساعدك رمز VBA التالي في تعطيل وظيفة إدراج الصفوف والعمود في مصنف Excel ، يرجى القيام بذلك على النحو التالي:
1. صحافة ALT + F11 فتح Microsoft Visual Basic للتطبيق نافذة.
2. انقر إدراج > وحدة لفتح نافذة وحدة نمطية ، ثم انسخ VBA التالي إلى النافذة.
كود فبا: منع إدراج الصفوف والأعمدة:
Sub NoInsert()
'Updateby Extendoffice
Dim I As Integer
Dim cbStr As String
Dim cbCtrl As CommandBarControl
Application.ScreenUpdating = False
For I = 1 To 2
If I = 1 Then
cbStr = "row"
Else
cbStr = "column"
End If
For Each cbCtrl In Application.CommandBars(cbStr).Controls
If cbCtrl.ID = 3183 Then
cbCtrl.Enabled = False
End If
Next
Next
Application.ScreenUpdating = True
End Sub
3. صحافة F5 مفتاح لتشغيل هذا الرمز ، الآن عند النقر بزر الماوس الأيمن للذهاب لإدراج صفوف أو أعمدة ، فإن إدراج لا يمكن تطبيق الخيار في قائمة السياق. انظر لقطة الشاشة:
الملاحظات:
1. سيعطل VBA وظيفة الإدراج في قائمة السياق في جميع المصنفات عند النقر بزر الماوس الأيمن لإدراج صفوف أو أعمدة.
2. لاستعادة الأمر Insert في قائمة السياق ، يرجى تطبيق الكود التالي:
Sub NoInsert()
'Updateby Extendoffice
Dim I As Integer
Dim cbStr As String
Dim cbCtrl As CommandBarControl
Application.ScreenUpdating = True
For I = 1 To 2
If I = 1 Then
cbStr = "row"
Else
cbStr = "column"
End If
For Each cbCtrl In Application.CommandBars(cbStr).Controls
If cbCtrl.ID = 3183 Then
cbCtrl.Enabled = True
End If
Next
Next
Application.ScreenUpdating = True
End Sub
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!