Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

copy&paste deaktivieren

copy&paste deaktivieren
11.03.2008 14:02:46
Schpock
Hi,
ich brauche bitte mal Hilfe bei folgendem Problem:
Wir benutzen ein im Netz freigebenes Excel File, in dem Einträge duch Auswahl in Drop-down Feldern gemacht werden. Manche Schlauberger "umgehen" das Drop-down durch copy&paste aus anderen Zellen. Alle Funktionsleisten habe ich ausgeblendet, aber über strg-c strg-v und die rechte Mastaste kann man copy&paste noch ausführen. Wie kann ich diese beiden Funktionen auch noch stilllegen?
Vielen Dank für Hilfe!
Gruss
Thomas

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: copy&paste deaktivieren
11.03.2008 14:04:43
Michael
Ich würde über Gültigkeit nur eine Liste der Werte freigeben, die erlaubt sind. Dann nützt auch keine Copy&Paste.
Gruß
Michael

AW: copy&paste deaktivieren
11.03.2008 14:09:00
Schpock
Die Drop down liste arbeitet schon mit "Gültigkeit", aber das funktioniert leider nicht, da auch mit den Werten aus der Gültigkeitsliste Missbrauch betrieben werden kann.

AW: copy&paste deaktivieren
11.03.2008 14:11:00
Uwe
Hi Thomas,
schreibe dir ins Klassenmodul der Tabellenblattes:

Private Sub Worksheet_Activate()
Application.CutCopyMode = False
End Sub




Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CutCopyMode = False
End Sub


Klappt es?
Gruß
Uwe
(:o)

Anzeige
AW: copy&paste deaktivieren
11.03.2008 14:23:00
Schpock
Nein, leider nicht. Vielleicht mache ich das auch falsch. Bei mir war kein "Klassenkodul" angezeigt. Da habe ich über "einfügen-klassenmodul" ein neues angelegt und Deinen Code dahinein kopiert. Funktioniert aber nicht...

AW: copy&paste deaktivieren
11.03.2008 15:26:56
Uwe
Hi Thomas,
das kann auch nicht klappen. Ich meinte das so:
In Deiner Datei mit Alt/F11 in den VBA Editor wechseln.
Falls nötig auf Deine Datei doppelklicken.
Falls nötig auf Microsoft Exel Objekte doppelklicken
Dann auf die Tabelle in der das funktionieren soll doppelklicken (z.B. Tabelle1 (Tabelle1))
Und DANN im Hauptfenset den Code einfügen. (Das ist das Klassenmodul des Tabellenblattes (ich hoffe ich liege da richtig mit Klassenmodul, aber auf jedenfall ist es das Modul des Tabellenblattes))
Das sollte klappen.
Gruß
Uwe
(:o)

Anzeige
AW: copy&paste deaktivieren
12.03.2008 08:29:00
Schpock
Ah... jetzt... ja... das funktioniert einwandfrei. Vielen Dank!!!!!

AW: copy&paste deaktivieren
11.03.2008 16:18:11
volti
Hallo,
hier mal ein neuer Weg.
In Modul "DieseArbeitsmappe"

Private Sub Workbook_Open()
NoCopyNoPaste
End Sub
Private Sub Workbook_Close()
PasteAgain
End Sub


In ein anderes Modul:

Private Declare Function SetTimer Lib "user32" (ByVal hWnd As _
Long, ByVal nIDEvent As Long, ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hWnd As _
Long, ByVal nIDEvent As Long) As Long
Declare Function EmptyClipboard Lib "USER32.DLL" () As Long
Declare Function OpenClipboard Lib "USER32.DLL" (ByVal hWnd As Long) As Long
Declare Function CloseClipboard Lib "USER32.DLL" () As Long
Public hTimer As Long
Sub NoCopyNoPaste()
If hTimer = 0 Then
hTimer = SetTimer(0, 0, 100, AddressOf NoCopyNoPaste)
End If
Beep
T = OpenClipboard(0)
EmptyClipboard
CloseClipboard
End Sub
Sub PasteAgain()
KillTimer 0, hTimer
hTimer = 0
End Sub


Möglicherweise noch verbesserungswürdig, also nur als Ansatz gedacht.
Der Ansatz startet eien Timer (hier 100msec Pollingtime) und löscht einfach die Zwischenablage. Nach Schließen der Arbeitsmappe wird der Timer gekillt.
PS: Während der Bearbeitung kann auch woanders nicht eingefügt werden. Das ist noch ein Manko.
viele Grüße
Karl-Heinz

Anzeige
AW: copy&paste deaktivieren
12.03.2008 11:21:12
volti
Hallo,
noch mal ein Update, mit dem nun außerhalb von Excel normal kopiert und eingefügt werden kann.


Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function SetTimer Lib "user32" (ByVal hWnd As _
Long, ByVal nIDEvent As Long, ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hWnd As _
Long, ByVal nIDEvent As Long) As Long
Declare Function EmptyClipboard Lib "USER32.DLL" () As Long
Declare Function OpenClipboard Lib "USER32.DLL" (ByVal hWnd As Long) As Long
Declare Function CloseClipboard Lib "USER32.DLL" () As Long
Public hTimer As Long
Sub NoCopyNoPaste()
Dim hfWnd As Long
hfWnd = GetForegroundWindow()
If hTimer = 0 Then
hTimer = SetTimer(0, 0, 100, AddressOf NoCopyNoPaste)
hWndTimer = FindWindow("XLMAIN", vbNullString)
End If
If hfWnd = hWndTimer Then
T = OpenClipboard(0)
EmptyClipboard
CloseClipboard
End If
End Sub
Sub PasteAgain()
KillTimer 0, hTimer
hTimer = 0
End Sub


viele Grüße
KH

Anzeige

251 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
aus kompletter Mappe NUR WERTE kopieren
Lauren

Hallo zusammen,
das ist wohl etwas simples aber ich bin nicht dahintegekommen.
Ich will eine Kopie einer Excel-Mappe mit ca. 80 Tabellenblättern erstellen aber es sollen NUR DIE WERTE kopiert werden also ohne Formeln usw. nur die Werte.
Dann in allen Tabellenblättern in der Kopierte...
17.09.2008 11:04:00
Thread-ID: 1010287
5 Beiträge
nur Werte kopieren
Pet


Guten Abend,
könnte mal wieder etwas Hilfe von Euch gebrauchen.
Unten stehender Code kopiert die bedingte Formatierung aus Tabelle1 mit.
Wie muss ich es ändern, dass nur die Werte kopiert werden?
Vielen Dank vorab für Eure Hilfe.
Gruß, Pet
Sub SchaltflächeCopy() D...
01.11.2008 21:04:45
Thread-ID: 1021094
7 Beiträge
Anzeige
copy & Paste inkl. Formeln
meixner

Hallo zusammen,
möchte einige Daten inkl. Formeln in ein anderes Tabellenblatt kopieren. Bei dem Copy & Paste Vorgang gehen die Formeln aber verloren. Wie kann ich das ändern?
Sub makro_copy()
Worksheets("tabelle1").Range("D2:D40, E2:E40").Copy Destination:=Worksheets("tabelle4"...
18.01.2009 16:07:00
Thread-ID: 1041161
6 Beiträge
Nur Werte kopieren!
markus473

Hallo zusammen,
ich habe ein Makro, welches Daten kopiert.
Jetzt wäre es besser, wenn es nur die Werte kopiert, da dann die Formatierung erhalten bleibt.
Wie müßte das denn dann aussehen?
Danke Gruß Markus
Sub Uebernahme_Januar() Dim sh As Worksheet UF_Dateiauswahl1.Show I...
26.01.2009 15:27:51
Thread-ID: 1043917
7 Beiträge
Makro Copy&Paste
Julia

Hallo,
ich habe in einem Ordner die Datei Pivot.xls dort gibt es das Tabellenblatt Rohdaten.
In dieses Tabellenblatt sollen der gesamte Inhalt von Rohdaten.xls (Tabellenblatt hier heißt: Table1)
in Pivot.xls (Tabellenblatt Rohdaten) kopiert werden.
Ich habe folgenden Code:
...
25.02.2009 10:37:16
Thread-ID: 1053778
3 Beiträge
nur werte kopieren!
lisa

Hallo zusammen
Dieses Thema ist nicht nur in diesem Forum mehrfach angesprochen worden.
Ich rafe es nicht, trotz Recherche, hiefür nur den Wert kopieren zu lassen.
Das ist mein Orig. Gode
Private Sub CommandButton3_Click() Sheets("Dateneingabe").Range("L2").Copy Sheets("Liefer...
03.03.2009 14:07:47
Thread-ID: 1055975
5 Beiträge
Autofilter - nur gefilterte Werte kopieren ?
Piet

Hallo zusammen,
angenommen ich habe in Spalte A diverse Produkte (Produkt A, Produkt B, usw.)
und in Spalte B diverse Zahlenwerte zu den Produkten.
Z.B.:
Produkt Wert
a 27
b 13
b 17
a...
08.04.2009 15:38:42
Thread-ID: 1067762
3 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
4
6
6
5
6
2
4
2
12
3
2
2
2
3
12
4
2
1
3
3
2
6
7