Wie deaktiviere ich die Möglichkeit, Zeilen und Spalten in Excel einzufügen?
Normalerweise können wir Zeilen und Spalten schnell und einfach zwischen vorhandenen Daten einfügen. Wenn Sie verhindern, dass andere Spalten oder Zeilen in ein Arbeitsblatt einfügen, können Sie das Blatt möglicherweise schützen, um die Funktion zum Einfügen von Zeilen oder Spalten zu deaktivieren. Aber wie können Sie die Funktion zum Einfügen von Zeilen und Spalten deaktivieren, ohne das Blatt zu schützen?
Verhindern Sie, dass andere Zeilen und Spalten mit VBA-Code einfügen
Verhindern Sie, dass andere Zeilen und Spalten mit VBA-Code einfügen
Der folgende VBA-Code kann Ihnen beim Deaktivieren der Funktion zum Einfügen von Zeilen und Spalten in die Excel-Arbeitsmappe helfen. Gehen Sie dazu folgendermaßen vor:
1. Drücken Sie Alt + F11 öffnen Microsoft Visual Basic für Anwendung Fenster.
2. Klicken Sie Insert > Modul Um ein Modulfenster zu öffnen, kopieren Sie die folgende VBA in das Fenster.
VBA-Code: Einfügen von Zeilen und Spalten verhindern:
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 F5 Wenn Sie mit der rechten Maustaste klicken, um Zeilen oder Spalten einzufügen, klicken Sie auf Insert Option kann nicht im Kontextmenü angewendet werden. Siehe Screenshot:
Anmerkungen:
1. Dieser VBA deaktiviert die Einfügefunktion im Kontextmenü in allen Arbeitsmappen, wenn Sie mit der rechten Maustaste klicken, um Zeilen oder Spalten einzufügen.
2. Um den Befehl Einfügen im Kontextmenü wiederherzustellen, wenden Sie den folgenden Code an:
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!