Hogyan lehet letiltani a sor és az oszlop beszúrásának képességét az Excelben?

Normális esetben gyorsan és egyszerűen beilleszthetünk sorokat és oszlopokat a meglévő adatok közé, ha megakadályozzuk, hogy mások beszúrjanak oszlopokat vagy sorokat egy munkalapba, akkor védheti meg a lapot a sorok vagy oszlopok beszúrása funkció letiltásához. De hogyan lehet letiltani a sor és oszlop beillesztését a lap védelme nélkül?

Akadályozza meg, hogy VBA-kóddal sorokat és oszlopokat illesszen be

Akadályozza meg, hogy VBA-kóddal sorokat és oszlopokat illesszen be

A következő VBA-kód segíthet a sor- és oszlopfüggvény beszúrásában az Excel munkafüzetben, kérjük, tegye a következőket:

1. nyomja meg Alt + F11 megnyitni a Microsoft Visual Basic alkalmazásokhoz ablak.

2. Kattints betétlap > Modulok a Modul ablak megnyitásához, majd másolja a következő VBA-t az ablakba.

VBA kód: megakadályozza a sorok és oszlopok beszúrását:

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. nyomja meg F5 gombot a kód futtatásához, amikor jobb egérgombbal kattint a sorok vagy oszlopok beszúrására, a betétlap opció nem alkalmazható a helyi menüben. Lásd a képernyőképet:

Megjegyzések:

1. Ez a VBA letiltja a Beszúrás funkciót az összes munkafüzet helyi menüjében, amikor jobb gombbal kattint a sorok vagy oszlopok beszúrására.

2. Az Insert parancs helyreállításához a helyi menüben, kérjük, írja be a következő kódot:

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