Kopien/Einfügen/Herunterziehen verhindern

Hallo zusammen,
gerne würde ich das "Kopieren/Ausschneiden/Einfügen" sowie das "Herunterziehen" von Zelleninformationen in nicht gesperrten Zellen (Blattschutz aktiv) verhindern.
Dazu habe ich auch bereits die passenden Befehle in das Microsoft Excel Modul "Dieses Arbeitsblatt" kopiert (Code s.u.).
Das Problem ist nun, dass ich in der gesamten datei nichts mehr Kopieren/Herunterziehen kann. Wie kann man dieses Code auf nur ein Tabellenblatt (z.B. "Rechenblatt") anwenden? Kann mir jemand dabei helfen?
Vielen Dank und viele Grüße
Martin

Option Explicit
Dim bolDRAGnDrop As Boolean
Private Sub Workbook_Activate()
bolDRAGnDrop = Application.CellDragAndDrop
Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CellDragAndDrop = bolDRAGnDrop
End Sub
Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = bolDRAGnDrop
End Sub
Private Sub Workbook_Open()
bolDRAGnDrop = Application.CellDragAndDrop
Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Activate() If ActiveSheet.Name = "xxx" Then bolDRAGnDrop = Application.CellDragAndDrop Application.CellDragAndDrop = False End If End Sub Private Sub Workbook_Open() If ActiveSheet.Name = "xxx" Then bolDRAGnDrop = Application.CellDragAndDrop Application.CellDragAndDrop = False End If End Sub

Option Explicit Dim bolDRAGnDrop As Boolean Private Sub Workbook_Activate() If ActiveSheet.Name = "Rechenblatt" Then bolDRAGnDrop = Application.CellDragAndDrop Application.CellDragAndDrop = False End If End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.CellDragAndDrop = bolDRAGnDrop End Sub Private Sub Workbook_Deactivate() Application.CellDragAndDrop = bolDRAGnDrop End Sub Private Sub Workbook_Open() If ActiveSheet.Name = "Rechenblatt" Then bolDRAGnDrop = Application.CellDragAndDrop Application.CellDragAndDrop = False End If End Sub End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.CutCopyMode = False End Sub

Option Explicit Dim bolDRAGnDrop As Boolean Private Sub Worksheet_Activate() Application.CellDragAndDrop = False Application.CutCopyMode = False End Sub Private Sub Worksheet_Deactivate() Application.CellDragAndDrop = True End Sub

Hallo Herbert,
die folgende Vorgehensweise ist bei der Datei vorgesehen:
- Man füllt ein Blatt mit Eingabewerte aus.
- Die Eingabewerte werden dann mittels VBA in das Rechenblatt übertragen.
- Im Rechenblatt kann man noch ein paar Änderungen vornehmen (um das Rechenblatt nicht zu beschädigen soll aber nichts kopierte/eingefügt bzw. heruntergerzogen werden dürfen).
- Wenn das Rechenblatt fertig ausgefüllt ist, kann dieses für eine Variantenrechnung genutzt werden (weiteres Tabellenblatt).
- Die Ergebnisse der Variantenrechnung werden in dem Tabellenblatt "Auswertung" dargestellt. Diese Ergebnisse soll der Nutzer kopieren und IN EINER ANDEREN DATEI wieder einfügen können. Zum Schutz der Datei möchte ich vermeiden, dass irgendetwas an der eigentlichen Rechendatei verändert werden kann.
Ist die Vorgehensweise verständlich bzw. gibt es vielleicht eine sinnvollerer Herangehensweise?
Vielen Dank und viele Grüße
Martin

Beliebteste Forumthreads (12 Monate)

Kopien/Einfügen/Herunterziehen verhindern

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

183 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kopien/Einfügen/Herunterziehen verhindern

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

183 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread