كيفية تعطيل القدرة على إدراج صفوف وأعمدة في Excel؟

عادةً، يمكننا إدراج صفوف وأعمدة بين البيانات الموجودة بسرعة وسهولة. إذا كنت ترغب في منع الآخرين من إدراج أعمدة أو صفوف في ورقة العمل، يمكنك حماية الورقة لتعطيل وظيفة إدراج الصفوف أو الأعمدة. ولكن، كيف يمكنك تعطيل وظيفة إدراج الصفوف والأعمدة دون حماية الورقة؟

منع الآخرين من إدراج صفوف وأعمدة باستخدام كود VBA

منع الآخرين من إدراج صفوف وأعمدة باستخدام كود VBA

يمكن أن يساعدك الكود التالي من VBA في تعطيل وظيفة إدراج الصفوف والأعمدة في مصنف Excel، يرجى القيام بما يلي:

1. اضغط على Alt + F11 لفتح نافذة Microsoft Visual Basic for Application.

2. انقر فوق إدراج > وحدة لفتح نافذة وحدة، ثم قم بنسخ الكود التالي من VBA إلى النافذة.

كود 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. لاستعادة أمر الإدراج في قائمة السياق، يرجى تطبيق الكود التالي:

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