Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Copy Paste für bestimtte Spalten deaktivieren
Normale Version: Copy Paste für bestimtte Spalten deaktivieren
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Xenon85

09.02.2021, 12:45
Guten Tag zusammen,


ich arbeite mit meinen Kollegen gemeinsam in einer Excel Datei

Nun muss ich oft Copy Paste Fehler ausbessern und würde das am liebsten für bestimmte Spalten deaktivieren.

Für die Ganze Arbeitsmappe habe ich das schon geschafft. 

Code:
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


Nun würde ich das gern so einstellen das ich auf Sheet "Stunden" in Spalte A und Spalte D das CopyPaste deaktiviere.
und  im Sheet "Mengen" in Spalte A und G.


Vielen Dank schonmal für eure Hilfe

Fennek

09.02.2021, 13:09
Hallo,

hast Du es mit dem "Blattschutz" versucht? Das ginge ohne VBA und ist auch gegen paste-en von Ranges robust.

mfg

Xenon85

09.02.2021, 13:13
Würdest du mir genauer beschreiben wie ich das einstelle?

Danke

ReginaR

09.02.2021, 13:24
Hi, so:
- alle Spalten markieren, in denen weiter CopyPaste verwendet werden darf
- rechte Maustaste - Zellen formatieren - Registerkarte Schutz - Haken weg bei gesperrt
Dann:
- Registerkarte "Überprüfen", "Blatt schützen"

Die Spalten, die Du vorher nicht markiert hast, sind jetzt geschützt, auch gegen CopyPaste


Gruß Regina

Xenon85

09.02.2021, 15:58
(09.02.2021, 13:24)ReginaR schrieb: [ -> ]Hi, so:
- alle Spalten markieren, in denen weiter CopyPaste verwendet werden darf
- rechte Maustaste - Zellen formatieren - Registerkarte Schutz - Haken weg bei gesperrt
Dann:
- Registerkarte "Überprüfen", "Blatt schützen"

Die Spalten, die Du vorher nicht markiert hast, sind jetzt geschützt, auch gegen CopyPaste


Gruß Regina

Aber dann lässt ja gar nix mehr eintragen. Das soll schon noch gegeben sein. Nur es soll jedes Mal getippt werden und kein Copy Paste benutzt werden.

Fennek

09.02.2021, 16:36
2. Versuch:

Im Code-Teil des Sheets("Stunden")

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if target.column = 1 or target.column = 4 then _
         application.CutCopyMode = false
End Sub

Falls eine Zelle in Spalte A oder D angeklickt wird, wird das Clipboard geleert. Für das andere Sheet müßten die 2. Spalte angepasst werden.

ungeprüft

Xenon85

10.02.2021, 12:33
(09.02.2021, 16:36)Fennek schrieb: [ -> ]2. Versuch:

Im Code-Teil des Sheets("Stunden")

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if target.column = 1 or target.column = 4 then _
         application.CutCopyMode = false
End Sub

Falls eine Zelle in Spalte A oder D angeklickt wird, wird das Clipboard geleert. Für das andere Sheet müßten die 2. Spalte angepasst werden.

ungeprüft

Vielen Dank. Das ist genau das was ich gesucht habe.
Clever-Excel-Forum > Office-Anwendungen > Excel > Copy Paste für bestimtte Spalten deaktivieren