Wie verhindert man das Löschen von Zeilen oder Spalten in einer freigegebenen, nicht geschützten Arbeitsmappe?
Wenn Sie eine Arbeitsmappe für andere freigeben, wie können Sie verhindern, dass diese Spalten oder Zeilen in Ihrer freigegebenen Arbeitsmappe löschen – ohne die gesamte Arbeitsmappe zu schützen? Hier habe ich einen VBA-Code gefunden, der genau das verhindert: das Löschen von Spalten und Zeilen in einer freigegebenen Arbeitsmappe.
Verhindern des Löschens von Zeilen oder Spalten in einer freigegebenen Arbeitsmappe mit VBA
Verhindern des Löschens von Zeilen oder Spalten in einer freigegebenen Arbeitsmappe mit VBA
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 das Fenster ein.
VBA: Löschen von Zeilen oder Spalten verhindern.
Sub StopDeleteRowCols()
'Updateby20221221
Dim xBarControl As CommandBarControl
Application.OnKey "^{-}", ""
For Each xBarControl In Application.CommandBars.FindControls(ID:=293)
xBarControl.Enabled = False
Next
For Each xBarControl In Application.CommandBars.FindControls(ID:=294)
xBarControl.Enabled = False
Next
End Sub
3. Klicken Sie auf die Schaltfläche Ausführen oder drücken Sie die Taste F5 auf der Tastatur, um diesen Code auszuführen.
Wenn andere anschließend mit der rechten Maustaste auf ausgewählte Spalten oder Zeilen klicken, um sie zu löschen, ist die Option „Löschen“ im Kontextmenü nicht verfügbar. Siehe Screenshot:
Außerdem verhindert es, dass Benutzer die Tastenkombination Strg + – verwenden, um Zeilen oder Spalten zu löschen.
Hinweis:
(1) Wenn Sie Ihre Arbeitsmappe bereits über Überprüfen > Arbeitsmappe freigeben freigegeben haben, können Sie keine VBA-Makros mehr hinzufügen. Fügen Sie das VBA-Skript daher am besten hinzu, bevor Sie die Arbeitsmappe freigeben.
(2) Dieses VBA deaktiviert den Befehl Löschen im Kontextmenü aller Arbeitsmappen, wenn Sie mit der rechten Maustaste auf ausgewählte Spalten oder Zeilen klicken.
(3) Um den Befehl Löschen im Kontextmenü wiederherzustellen, ersetzen Sie bitte beide False durch True im obigen VBA-Code und führen Sie den Code erneut aus.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
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