Wie deaktiviere ich Funktionen zum Ausschneiden, Kopieren und Einfügen in Excel?
Angenommen, Sie haben eine Arbeitsmappe mit wichtigen Daten, die Sie vor dem Ausschneiden, Kopieren und Einfügen schützen müssen. Wie erreicht man das? Dieser Artikel bietet eine VBA-Methode, mit der Sie die Funktionen zum Ausschneiden, Kopieren und Einfügen gleichzeitig in einer Excel-Arbeitsmappe deaktivieren können.
Deaktivieren Sie die Funktionen zum Ausschneiden, Kopieren und Einfügen mit VBA-Code
Deaktivieren Sie die Funktionen zum Ausschneiden, Kopieren und Einfügen mit VBA-Code
Gehen Sie wie folgt vor, um die Funktionen zum Ausschneiden, Kopieren und Einfügen in einer Excel-Arbeitsmappe zu deaktivieren.
1. In der Arbeitsmappe müssen Sie die Funktionen zum Ausschneiden, Kopieren und Einfügen deaktivieren. Drücken Sie die Taste Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Fenster, bitte doppelklicken DiesesWorkbook in der linken Projekt Bereich, und kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das ein DiesesArbeitsbuch (Code) Fenster. Siehe Screenshot:
VBA-Code: Deaktivieren Sie die Funktionen zum Ausschneiden, Kopieren und Einfügen gleichzeitig in Excel
Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub
3. Dann drücken Sie bitte die Andere + Q Tasten zum Verlassen des Microsoft Visual Basic für Applikationen Fenster.
Jetzt können Sie keine Daten aus dieser Arbeitsmappe ausschneiden oder kopieren. In der Zwischenzeit können Daten, die Sie aus anderen Arbeitsblättern oder Arbeitsmappen kopiert haben, nicht in diese Arbeitsmappe eingefügt werden.
Hinweis: Die Drag & Drop-Funktion ist auch deaktiviert, nachdem der obige VBA-Code ausgeführt wurde.
In Verbindung stehende Artikel:
- Wie deaktiviere ich die rechte Maustaste auf die Blattregisterkarte in Excel?
- Wie deaktiviere ich das Rechtsklick-Menü in einem bestimmten Arbeitsblatt oder einer ganzen Arbeitsmappe in Excel?
- Wie kann ich den Bearbeitungsmodus verhindern oder deaktivieren, indem ich in Excel auf die Zelle doppelklicke?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools for Excelund erleben Sie Effizienz wie nie zuvor. Kutools for Excel Bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt eine Tab-Oberfläche 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!














