Jak zakázat možnost vkládání řádků a sloupců do aplikace Excel?
Za normálních okolností můžeme vkládat řádky a sloupce mezi existující data rychle a snadno, pokud ostatním zabráníte vkládání sloupců nebo řádků do listu, můžete chránit list a deaktivovat funkci vkládání řádků nebo sloupců. Jak ale můžete deaktivovat funkci vkládání řádků a sloupců bez ochrany listu?
Zabraňte ostatním vkládat řádky a sloupce pomocí kódu VBA
Zabraňte ostatním vkládat řádky a sloupce pomocí kódu VBA
Následující kód VBA vám pomůže zakázat funkci vkládání řádků a sloupců v sešitu aplikace Excel, postupujte takto:
1. lis Alt + F11 otevřít a Microsoft Visual Basic pro aplikaci okno.
2, klikněte Vložit > Modul otevřete okno modulu a do okna zkopírujte následující VBA.
Kód VBA: zabránit vkládání řádků a sloupců:
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. lis F5 klíč ke spuštění tohoto kódu, nyní, když kliknete pravým tlačítkem na vložení řádků nebo sloupců, Vložit možnost nelze použít v místní nabídce. Viz snímek obrazovky:
Poznámky:
1. Tento VBA zakáže funkci Vložit v místní nabídce ve všech sešitech, když kliknete pravým tlačítkem a vložíte řádky nebo sloupce.
2. Chcete-li obnovit příkaz Vložit v místní nabídce, použijte následující kód:
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
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
