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
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
