Wie kann verhindert werden, dass Zeilen oder Spalten in einer freigegebenen ungeschützten Arbeitsmappe gelöscht werden?
Wie können Sie verhindern, dass andere die Spalten oder Zeilen Ihrer freigegebenen Arbeitsmappe löschen, ohne die Arbeitsmappe zu schützen, wenn Sie eine Arbeitsmappe für andere freigeben? Hier finde ich einen VBA-Code, der verhindern kann, dass andere die Spalten und Zeilen in einer freigegebenen Arbeitsmappe löschen.
Verhindern Sie das Löschen von Zeilen oder Spalten in einer freigegebenen Arbeitsmappe mit VBA
Verhindern Sie das Löschen von Zeilen oder Spalten in einer freigegebenen Arbeitsmappe mit VBA
1. Drücken Sie Alt + F11 öffnen Microsoft Visual Basic für Anwendung Fenster.
2 Klicken Insert > Modul Um ein Modulfenster zu öffnen, kopieren Sie die folgende VBA in das Fenster.
VBA: Verhindern Sie das Löschen von Zeilen oder Spalten.
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 Führen Sie Knopf oder F5 Taste auf der Tastatur, um diesen Code auszuführen.
Wenn andere mit der rechten Maustaste klicken, um ausgewählte Spalten oder Zeilen zu löschen, kann die Option Löschen im Kontextmenü nicht angewendet werden. Siehe Screenshot:
Außerdem wird verhindert, dass Benutzer die Tastenkombination Strg + - verwenden, um Zeilen oder Spalten zu löschen.
Hinweis:
(1) Wenn Sie Ihre Arbeitsmappe mit geteilt haben Bewertung > Arbeitsmappe freigebenkönnen Sie keine VBA-Makros mehr hinzufügen. Fügen Sie daher den VBA hinzu, bevor Sie die Arbeitsmappe freigeben.
(2) Dieser VBA deaktiviert die Löschen im Kontextmenü in allen Arbeitsmappen, wenn Sie mit der rechten Maustaste auf ausgewählte Spalten oder Zeilen klicken.
(3) Um die wiederherzustellen Löschen Bitte ersetzen Sie im Kontextmenü beide falsch mit Wahre in der VBA oben, und führen Sie die VBA erneut aus.
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!