Note: The other languages of the website are Google-translated. Back to English
Einloggen Anmelden

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:

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.
kte tab 201905

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!
officetab unten
Kommentare (50)
Noch keine Bewertungen. Bewerten Sie als Erster!
Raftaher
Raftaher
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich mache es wie oben, aber die Funktion zum Ausschneiden und Kopieren ist in jeder Excel-Datei, die ich öffne, deaktiviert. Warum?
antworten
0
0
Stuart Davis
Stuart Davis     Raftaher
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich habe dies verwendet, um "Ausschneiden" vor Benutzern zu verbergen, und es funktioniert hervorragend, es sei denn, Sie haben eine Tabelle. Das "Ausschneiden" erscheint auf wundersame Weise wieder, wenn Sie eine Zelle in der Tabelle auswählen, genau das, was ich zu vermeiden versuche. irgendwelche Ideen? Danke!
antworten
0
0
Martin
Martin
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke, Sir, es funktioniert. Aber in der gesamten Arbeitsmappe. Wenn ich diesen Code nur in einem bestimmten Blatt brauche. Ist das möglich?
antworten
0
0
sa
sa     Martin
Dieser Kommentar wurde vom Moderator auf der Website minimiert
hast du eine antwort gefunden?
antworten
0
0
Martin
Martin
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank. Es funktioniert im gesamten Workbook. Können wir die Codierung nur für 1 Blatt durchführen? Bitte helfen Sie.
antworten
Report
0
0
Sky
Sky
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie aktiviere ich die Ausschneiden-, Kopieren- und Einfügen-Funktion wieder? Bitte beraten!
antworten
0
0
Kristall
Kristall     Sky
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Lieber Himmel
Bitte führen Sie das folgende VBA1 aus (fügen Sie den Code in das Modul ThisWorkbook ein), um die Funktion zum Ausschneiden, Kopieren und Einfügen in Ihrer Arbeitsmappe zu deaktivieren.

VBA1:
Unter DelCopy()
Mit Anwendung
.OnKey "^x", ""
.OnKey "^c", ""
.CommandBars("Cell").Controls(1).Enabled = False
.CommandBars("Cell").Controls(2).Enabled = False
Ende mit
End Sub

Führen Sie dann VBA2 aus, um all diese Funktionen wieder in Ihrer Arbeitsmappe zu aktivieren.

VBA2:
Sub RecoverCopy()
Mit Anwendung
.OnKey "^x"
.OnKey "^c"
.CommandBars("Cell").Controls(1).Enabled = True
.CommandBars("Cell").Controls(2).Enabled = True
Ende mit
End Sub
antworten
Report
0
0
Zeitschriften
Zeitschriften     Kristall
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dies scheint bei mir nicht funktioniert zu haben - sollte ich den ursprünglichen VBA-Code löschen und dann den obigen einfügen, um die Funktion Ausschneiden, Kopieren und Einfügen erneut zu aktivieren?
antworten
0
0
Kristall
Kristall     Zeitschriften
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Guten Tag,
Der obige VBA1-Kommentar ist der Ersatz des ursprünglichen Codes.
antworten
Report
0
0
Midas Pvt Ltd
Midas Pvt Ltd
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sehr geehrter,

Ich möchte das Ausschneiden, Kopieren und Einfügen in Excel 2007 deaktivieren
können Sie den Code dafür freigeben
antworten
Report
0
0
Kristall
Kristall     Midas Pvt Ltd
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Guten Tag,
Danke für deinen Kommentar. Ich versuche, die Lösung für Excel 2007 herauszufinden. Bitte warten Sie geduldig.
antworten
Report
0
0
Carmelo
Carmelo
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
Ist es möglich, nur "CUT" zu deaktivieren? aber ich könnte immer noch das Kopieren und Einfügen verwenden?
antworten
0
0
Kristall
Kristall     Carmelo
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Carmelo,
Bitte kopieren Sie den folgenden Code, fügen Sie ihn in das Arbeitsmappen-Codefenster Ihrer Arbeitsmappe ein und speichern Sie ihn dann als Excel-Makro-fähige Arbeitsmappe. Dann wird die „Cut“-Funktion deaktiviert.

Option Explizit
Private WithEvents Cmbrs As CommandBars

Private Sub Workbook_Open ()
Legen Sie Cmbrs = Application.CommandBars fest
End Sub

Private Sub Workbook_Activate ()
Wenn Application.CutCopyMode = 2 Dann
Application.CutCopyMode = 0
End If
End Sub

Privates Sub-Cmbrs_OnUpdate()
If Me Is ActiveWorkbook Then
Wenn Application.CutCopyMode = 2 Dann
Application.CutCopyMode = 0
MsgBox "Schneideoperationen deaktiviert"
End If
End If
End Sub
antworten
Report
0
0
ERKA
ERKA     Kristall
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe es versucht, wie du gesagt hast, aber es passiert nichts. A will genau das gleiche, Nur die
"Cut"-Funktion deaktiviert. Ich muss die Option "Ausschneiden" in der Option "Rechtsklick" und in der Symbolleiste deaktivieren.
Es ist möglich, Kristall?
antworten
0
0
Kristall
Kristall     ERKA
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Guten Tag,
Der Code funktioniert in meinem Fall gut. Darf ich Ihre Office-Version wissen?
antworten
Report
0
0
Linda
Linda
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hi

Ich bin ein Anfänger von VBA-Codes und dieser Code hat 99% meiner Probleme gelöst.

Ist es möglich, das Lochblatt (wie diese Codedosis) zu sperren, aber immer noch eine Zelle entsperrt zu haben?
(Klarstellen, ich möchte das Kopieren von Informationen in nur einer Zelle im Lochblatt zulassen).

Freundliche Grüße
L
antworten
0
0
Kristall
Kristall     Linda
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Linda,
Sie können das Problem lösen, ohne VBA-Code zu verwenden.
Klicken Sie mit der rechten Maustaste auf die Zelle und wählen Sie Zellen formatieren aus dem Kontextmenü, deaktivieren Sie das Kontrollkästchen Gesperrt auf der Registerkarte Schutz im Dialogfeld. Und dann schützen Sie das Arbeitsblatt mit einem Passwort.
antworten
Report
0
0
garak0410
garak0410
Dieser Kommentar wurde vom Moderator auf der Website minimiert
War super froh, diesen Beitrag zu finden, aber ich brauche ein wenig Hilfe, um dies auf ein einzelnes Arbeitsblatt in einer Arbeitsmappe mit mehreren Arbeitsblättern zu beschränken. Und Sie müssen wissen, wie Sie dies ohne Benutzereingriff ausführen können. Wir benötigen dies so schnell wie möglich in einer Arbeitsmappe, um Fehler zu vermeiden.
antworten
Report
0
0
Kristall
Kristall     garak0410
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Guten Tag,
Der folgende VBA-Code kann Ihnen helfen, das Problem zu lösen. Und vergessen Sie nicht, "Sheet2" im Code durch Ihren Blattnamen zu ersetzen.

Öffentlicher mJWSName als Zeichenfolge

Private Sub Workbook_Open ()
mJWSName = "Blatt2"
End Sub

Private Sub Workbook_Activate ()
Wenn ActiveSheet.Name = mJWSName Dann
Application.CutCopyMode = Falsch
Anwendung.OnKey "^c", ""
Application.CellDragAndDrop = Falsch
End If
End Sub

Private Sub Workbook_Deactivate ()
Anwendung.OnKey "^c", ""
Application.CellDragAndDrop = True
Application.CutCopyMode = Falsch
End Sub


Private Sub Workbook_WindowActivate (ByVal Wn als Fenster)
Wenn ActiveSheet.Name = mJWSName Dann
Application.CutCopyMode = Falsch
Anwendung.OnKey "^c", ""
Application.CellDragAndDrop = Falsch
End If
End Sub

Private Sub Workbook_WindowDeactivate (ByVal Wn als Fenster)
Anwendung.OnKey "^c"
Application.CellDragAndDrop = True
Application.CutCopyMode = Falsch
End Sub

Private Sub Workbook_SheetSelectionChange (ByVal Sh als Objekt, ByVal Target als Bereich)
On Error Resume Next
Wenn Sh.Name = mJWSName Dann
Application.CutCopyMode = Falsch
End If
End Sub

Private Sub Workbook_SheetActivate (ByVal Sh als Objekt)
On Error Resume Next
Wenn Sh.Name = mJWSName Dann
Anwendung.OnKey "^c", ""
Application.CellDragAndDrop = Falsch
Application.CutCopyMode = Falsch
End If
End Sub

Private Sub Workbook_SheetDeactivate (ByVal Sh als Objekt)
Anwendung.OnKey "^c"
Application.CellDragAndDrop = True
Application.CutCopyMode = Falsch
End Sub
antworten
Report
0
0
garak0410
garak0410     Kristall
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Eine letzte Frage: Wohin geht dieser Code und wie wird er ausgeführt? Das Projekt, mit dem dies funktionieren muss, hängt eine XLA-Datei an das Excel-Blatt an, das einen Großteil des Codes enthält. Wusste nicht, ob dies in ein Modul oder den Code hinter diesem Blatt gehen muss. Vielen Dank...
antworten
Report
0
0
Al Hammad
Al Hammad
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank für Ihre Anleitung. Ich versuche es im Amt 2013, aber nichts hat sich geändert.
antworten
0
0
Vic
Vic
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, der Code funktioniert gut, danke.
Die Nur-Lesen-Option war jedoch aktiviert. (wenn Sie nicht ändern möchten). Wenn ich ..Datei, Speichern unter, Werkzeuge, Allgemeine Optionen, Nur Lesen empfohlen einstelle, dann funktioniert der Code nicht.

Vielen Dank im Voraus.
antworten
Report
0
0
Sam
Sam
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Es funktioniert wirklich gut, vielen Dank.
antworten
0
0
RN PK
RN PK
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke, es funktioniert perfekt .... kann es nur irgendwie auf eine Strecke angewendet werden?
antworten
Report
0
0
Kristall
Kristall     RN PK
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Guten Tag,
Sorry kann dir da nicht helfen. Willkommen, um Fragen in unserem Forum zu stellen: https://www.extendoffice.com/forum.html. Danke für deinen Kommentar.
antworten
Report
0
0
RAHUL-MODI
RAHUL-MODI
Dieser Kommentar wurde vom Moderator auf der Website minimiert
DANKE HERR
antworten
0
0
Apollo
Apollo
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank, sehr nützlich.
antworten
0
0
Harish
Harish
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ausschneiden Kopieren Einfügen anwendbar Gesamte Arbeitsmappe. Wenn ich diesen Code nur in einem bestimmten Blatt brauche. Ist das möglich?
bitte helfen. Wir brauchen nur eine Blatt-Deaktivierungsfunktion. ein weiteres Blatt wir arbeiten alle Funktionen...
antworten
0
0
AMB
AMB
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dieser Code funktioniert in meinem Excel 2016 nicht für ein einzelnes Blatt anstelle der gesamten Arbeitsmappe
antworten
0
0
Tabby Mulla
Tabby Mulla
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dies ermöglicht weiterhin das Einfügen aus Notepad oder Microsoft Edge. Bitte prüfen Sie, ob es eine Möglichkeit gibt, das Einfügen aus einer beliebigen Quelle zu verhindern.
antworten
Report
0
0
Kristall
Kristall     Tabby Mulla
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
Wenn Sie das Einfügen aus einer beliebigen Quelle verhindern, müssen wir die Notepad-Funktion verhindern, was zu Unannehmlichkeiten führen kann. Wir empfehlen dies nicht. Tut mir leid, da kann ich dir nicht helfen.
antworten
Report
0
0
Mohamed Säbel
Mohamed Säbel
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe diesen Code verwendet und möchte ihn erneut aktivieren? wie kann man es wieder aktivieren?
antworten
Report
0
0
Mohamed Säbel
Mohamed Säbel
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Verwenden Sie diesen Code, um das Kopieren, Ausschneiden und Einfügen zu deaktivieren



Private Sub Workbook_Activate ()

Application.CutCopyMode = Falsch

Anwendung.OnKey "^c", ""

Application.CellDragAndDrop = Falsch

End Sub



Private Sub Workbook_Deactivate ()

Application.CellDragAndDrop = True

Anwendung.OnKey "^c"

Application.CutCopyMode = Falsch

End Sub



Private Sub Workbook_WindowActivate (ByVal Wn als Fenster)

Application.CutCopyMode = Falsch

Anwendung.OnKey "^c", ""

Application.CellDragAndDrop = Falsch

End Sub



Private Sub Workbook_WindowDeactivate (ByVal Wn als Fenster)

Application.CellDragAndDrop = True

Anwendung.OnKey "^c"

Application.CutCopyMode = Falsch

End Sub



Private Sub Workbook_SheetSelectionChange (ByVal Sh als Objekt, ByVal Target als Bereich)

Application.CutCopyMode = Falsch

End Sub



Private Sub Workbook_SheetActivate (ByVal Sh als Objekt)

Anwendung.OnKey "^c", ""

Application.CellDragAndDrop = Falsch

Application.CutCopyMode = Falsch

End Sub



Private Sub Workbook_SheetDeactivate (ByVal Sh als Objekt)

Application.CutCopyMode = Falsch

End Sub





und möchten diese Funktion wieder aktivieren
antworten
Report
0
0
L König
L König
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dies funktioniert hervorragend, wie würde man dies ändern, um Kopieren/Einfügen in bestimmten Spalten zu ermöglichen, die Pulldown-Menüs haben, die an benannte Bereiche akzeptabler Eingaben und nur an akzeptable Eingaben gebunden sind. Zum Beispiel würde ein Name, der Jetson, George, 25 ist, ein Kopieren/Einfügen von Jetson, George, 25, aber nicht Jeston, George, 26 zulassen. Oder ein Ziehen und Ausfüllen, das zu Jetson, George, 25 und dann 26 führen würde , dann 27 usw.
In meinem Arbeitsblatt möchte ich das Ausschneiden/Kopieren/Einfügen in bestimmten Spalten vollständig deaktivieren und dann nur das Ausschneiden, Kopieren und Einfügen akzeptabler Daten aus Dropdown-Listen zulassen.
Danke.
antworten
0
0
Es sind noch keine Kommentare vorhanden
Mehr laden
Hinterlassen Sie Ihre Kommentare
GUEST
Als Gast posten
Einloggen
×
Bewerte diese Nachricht:
Zurücksetzen
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL