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?
Die besten Tools für die Office-Produktivität
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
- Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
- Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
- Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
- Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
- Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
- Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
- Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
- Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
- Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.

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!


































