Wie kann man die Möglichkeit, Zeilen und Spalten in Excel einzufügen, deaktivieren?
Normalerweise können wir Zeilen einfügen und Spalten zwischen vorhandenen Daten schnell und einfach einfügen. Wenn Sie verhindern möchten, dass andere Benutzer Spalten einfügen oder Zeilen in einem Arbeitsblatt einfügen, können Sie das Blatt schützen, um die Funktion zum Zeilen einfügen oder Spalten zu deaktivieren. Doch wie können Sie die Funktion zum Einfügen von Zeilen und Spalten deaktivieren, ohne das Arbeitsblatt zu schützen?
Verhindern Sie das Einfügen von Zeilen einfügen und Spalten mithilfe von VBA-Code
Verhindern Sie das Einfügen von Zeilen einfügen und Spalten mithilfe von VBA-Code
Der folgende VBA-Code hilft Ihnen, die Funktion zum Einfügen von Zeilen und Spalten in Ihrer Excel-Arbeitsmappe zu deaktivieren. Gehen Sie dazu wie folgt vor:
1. Drücken Sie Alt + F11, um ein Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie auf Einfügen > Modul, um ein Modulfenster zu öffnen, und fügen Sie anschließend den folgenden VBA-Code in dieses Fenster ein.
VBA-Code: Verhindert das Zeilen einfügen und Spalten:
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. Drücken Sie die F5-Taste, um diesen Code auszuführen. Sobald Sie nun mit der rechten Maustaste klicken, um Zeilen oder Spalten einzufügen, steht die Option Einfügen im Kontextmenü nicht mehr zur Verfügung. Siehe Screenshot:
Hinweise:
1. Dieser VBA-Code deaktiviert die Einfüge-Funktion im Kontextmenü aller Arbeitsmappen, sobald Sie mit der rechten Maustaste klicken, um Zeilen oder Spalten einzufügen.
2. Um den Befehl „Einfügen“ im Kontextmenü wiederherzustellen, verwenden Sie bitte den folgenden 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
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins