Hvordan deaktiveres evnen til at indsætte række og kolonne i Excel?

Normalt kan vi hurtigt og nemt indsætte rækker og kolonner mellem eksisterende data, hvis du forhindrer andre i at indsætte kolonner eller rækker i et regneark, kan du muligvis beskytte ark for at deaktivere funktionen indsæt rækker eller kolonner. Men hvordan kunne du deaktivere indsæt række- og kolonnefunktion uden at beskytte ark?

Undgå, at andre indsætter rækker og kolonner med VBA-kode

Undgå, at andre indsætter rækker og kolonner med VBA-kode

Følgende VBA-kode kan hjælpe dig med at deaktivere indsættelsesrækken og kolonnefunktionen i Excel-projektmappe, gør venligst som denne:

1. Trykke Alt + F11 at åbne en Microsoft Visual Basic til anvendelse vindue.

2. Klik indsatte > Moduler for at åbne et modulvindue, kopier derefter følgende VBA til vinduet.

VBA-kode: forhindrer indsættelse af rækker og kolonner:

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. Trykke F5 nøgle til at køre denne kode, nu når du højreklikker for at gå til at indsætte rækker eller kolonner, vises indsatte indstillingen kan ikke anvendes i genvejsmenuen. Se skærmbillede:

Bemærkninger:

1. Denne VBA deaktiverer funktionen Indsæt i kontekstmenuen i alle projektmapper, når du højreklikker for at indsætte rækker eller kolonner.

2. For at gendanne kommandoen Indsæt i kontekstmenuen skal du anvende følgende kode:

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