Copy Paste für bestimtte Spalten deaktivieren

[Xenon85]

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]

Hallo,

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

mfg

[Xenon85]

Würdest du mir genauer beschreiben wie ich das einstelle?

Danke

[ReginaR]

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]

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]

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]

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.