Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1836to1840
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1836to1840
1836to1840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

copy & paste unterbinden mit MsgBox

copy & paste unterbinden mit MsgBox
19.07.2021 09:55:27
Georg
Liebe MitgliederInnen,
folgender Code funktioniert wunderbar für das Verhindern, von copy & paste, ich würde gerne aber noch eine MsgBox hinzufügen, sobald der Anwender STRG+c oder falls das einfacher ist STRG-v drückt mit dem Hinweis, dass kopieren eben nicht erlaubt ist, im Sinne der Userfreundlichkeit.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub
Vielen Dank G

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: copy & paste unterbinden mit MsgBox
19.07.2021 10:16:34
Klaus 

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
msgbox("Kopieren ist nicht erlaubt!")
End Sub
So?
LG,
Klaus M.
AW: copy & paste unterbinden..vielen Dank..
19.07.2021 10:48:49
Georg
hätte ich auch selber draufkommen können :-( dachte man muss da noch i-eine if-Schleife einfügen.. Gruß G
AW: copy & paste unterbinden.
19.07.2021 10:55:30
Georg
Jetzt muss ich den Thread doch nochmal aufmachen, da mit diesem Code die Meldung sofort bei Auswahl einer Zelle kommt. Kann man das anders lösen? Gruß G

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
MsgBox ("Kopieren ist in dieser Datei nicht erlaubt!")
End Sub

Anzeige
AW: copy & paste unterbinden.
19.07.2021 11:24:05
Nepumuk
Hallo Georg,
teste mal:
Code:



[Cc]



Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  With Application
      If .CutCopyMode = xlCopy Or .CutCopyMode = xlCut Then
         .CutCopyMode = False
         MsgBox "Kopieren ist in dieser Datei nicht erlaubt!", vbExclamation, "Hinweis"
      End If
  End With
End Sub
Gruß
Nepumuk
Anzeige
AW: copy & paste unterbinden..perfekt...
19.07.2021 11:37:04
Georg
und vielen Dank Nepomuk! Gruß G

300 Forumthreads zu ähnlichen Themen

Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Anzeige
Excel Datei trotz Copy/ Paste Values zu groß
Max

Hallo liebe Helfer,
ich sitze gerade an einer Excel Datei, die riesig groß und langsam geworden ist. Ich habe per vlookup Daten aus einer Liste mit ~40.000 Zeilen auslesen müssen - klar, dass die Datei dabei sehr groß wird (40 MB). Im Anschluss habe ich alle Formeln per Copy/ Paste Special...
30.10.2009 20:14:13
Thread-ID: 1113418
4 Beiträge
Copy/paste per makro geht einfach nicht
Julian

Liebe Excelgemeinde,
ich bin vollkommen ratlos, ich möchte eine liste kopieren per:
Worksheets("Bond Portfolios").Range(Chr(64 + i) & "13:" & Chr(64 + i) & LastRow).Copy
was auch zu klappen scheint, sobald ich aber in der nächsten funktion das kopierte wieder eingefügen...
20.11.2009 20:16:25
Thread-ID: 1118957
4 Beiträge
Anzeige
ribbons ausschalten, copy and paste verhindern
manfred

Mit
enable control 21, false 'cut
enable control 19, false 'copy
enable control 22, false 'pste
enabel control 755, flase 'paste special
konnte ich bislang cut, copy und paste in der Menueleiste abschalten
mit
commandbars ("ToolBar List").enabled = false
das...
23.08.2010 10:57:26
Thread-ID: 1173683
2 Beiträge
Copy and Paste in Tabelle mit VBA erkennen
Helmut

Hallo,
kann ich über eine Ereignisprozdur erkennen, ob ein User in einer Tabelle manuell einen Bereich von A nach B kopiert oder ausgeschnitten hat.
Mich interessiert dann in VBA der Range der Quelle und der Range des Ziels, sobald das Ereignis eingetreten ist.
Danke im Voraus
H...
21.03.2011 15:17:35
Thread-ID: 1206677
7 Beiträge
copy and paste
ptonka

Hallo zusammen,
ich habe im Rahmen eines größeren Makros u.a. einen einfachen copy and paste - Befehl eines kompletten Blattes (Blattname: "Legende").
Dieses Blatt enthält in einigen Zellen Textpassagen, die mehrfach mit Zeilenumbruch versehen sind, so das z.B. 15 Zeieln enthalten sind....
15.04.2011 16:44:11
Thread-ID: 1210638
8 Beiträge
copy-paste und bedingte Formatierung
Marlon

Guten Morgen,
eine Frage zum Kopieren und Einfügen:
Wenn ich Daten mit
range(Cells(lrow, 15), Cells(lrow + 1000, 53)).Copy
Cells(lrow + 1, 15).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
verschiebe, dann wird leider die be...
21.05.2011 12:44:08
Thread-ID: 1215456
5 Beiträge
Copy - paste hinter letzte Zeile
Burghard

Hallo,
ich möchte aus dem aktiven Tabellenblatt die aktive Zelle in ein anderes Tabellenblatt hinter die letzte belegte Zeile einfügen, aber in meinem Code steckt der Wurm:
Kann hier jemand helfend eingreifen?
Schönen Gruß
Burghard
================= Sub Test_C() letzte = Wor...
16.06.2011 14:51:35
Thread-ID: 1218588
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
10
5
3
3
4
1
6
7
4
6
2
5
3
3
8
6
3
1
2
5
1
3
3
2
2