Hoe kun je het invoegen van rijen en kolommen in Excel uitschakelen?

Normaal gesproken kunnen we snel en gemakkelijk rijen en kolommen tussen bestaande gegevens invoegen. Als je anderen wilt voorkomen om kolommen of rijen in een werkblad in te voegen, kun je mogelijk het werkblad beveiligen om de functie voor het invoegen van rijen of kolommen uit te schakelen. Maar hoe kun je de functie voor het invoegen van rijen en kolommen uitschakelen zonder het werkblad te beveiligen?

Voorkom dat anderen rijen en kolommen invoegen met VBA-code

Voorkom dat anderen rijen en kolommen invoegen met VBA-code

De volgende VBA-code kan je helpen om de functie voor het invoegen van rijen en kolommen in een Excel-werkboek uit te schakelen. Doe het volgende:

1. Druk op Alt + F11 om een Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module om een Module-venster te openen en kopieer de volgende VBA-code naar het venster.

VBA-code: voorkom het invoegen van rijen en kolommen:

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. Druk op de F5-toets om deze code uit te voeren. Nu zal bij rechts-klikken om rijen of kolommen in te voegen, de optie Invoegen niet meer beschikbaar zijn in het contextmenu. Zie screenshot:

Opmerkingen:

1. Deze VBA zal de Invoegfunctie in het contextmenu uitschakelen in alle werkboeken wanneer je rechts-klikt om rijen of kolommen in te voegen.

2. Om het Invoercommando in het contextmenu te herstellen, gebruik dan de volgende code:

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