Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren daktivieren

Forumthread: Kopieren daktivieren

Kopieren daktivieren
20.11.2005 16:07:09
Tino
Hallo,
ist es möglich beim öffnen bestimmter Excel-Dateien
die Kopierfunktion abzustellen?
egal ob ich über
Bearbeiten - Kopieren
oder
rechte Maus - Kopieren
oder
Strg + C
oder
mit dem Pinsel
Gruss Tino
Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren daktivieren
20.11.2005 16:15:18
Hajo_Zi
Hallo Tino,
Ja
nur wie kopiert man mit dem Pinsel?


AW: Kopieren daktivieren
20.11.2005 16:26:17
Tino
Hallo,
bei aufzeichnen eines Macros wird Kopiert.

Sub Makro2()
' Makro2 Makro
' Makro am 20.11.2005 von ts aufgezeichnet
Selection.Copy
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Gruss Tino
Anzeige
AW: Kopieren daktivieren
20.11.2005 16:26:26
Tino
Hallo,
bei aufzeichnen eines Macros wird Kopiert.

Sub Makro2()
' Makro2 Makro
' Makro am 20.11.2005 von ts aufgezeichnet
Selection.Copy
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Gruss Tino
Anzeige
AW: Kopieren daktivieren
20.11.2005 16:26:31
Tino
Hallo,
bei aufzeichnen eines Macros wird Kopiert.

Sub Makro2()
' Makro2 Makro
' Makro am 20.11.2005 von ts aufgezeichnet
Selection.Copy
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Gruss Tino
Anzeige
AW: Kopieren daktivieren
20.11.2005 16:26:35
Tino
Hallo,
bei aufzeichnen eines Macros wird Kopiert.

Sub Makro2()
' Makro2 Makro
' Makro am 20.11.2005 von ts aufgezeichnet
Selection.Copy
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Gruss Tino
Anzeige
AW: Kopieren daktivieren
20.11.2005 16:28:35
Hajo_Zi
Hallo Tino,
schöne viele Beiträge aber keiner beatwortet die Frage.
Gruß Hajo
AW: Kopieren daktivieren (sorry)
20.11.2005 16:41:23
Tino
Hallo,
nochmal sorry für die vielen doppelten Einträge!
Beim aufzeichnen habe ich den Pinsel benutzt
und steht im Macro "Selection.Copy"
Daher denke ich dies ist wie Kopieren. Oder liege ich falsch?
Gruss Tino
Anzeige
AW: Kopieren daktivieren (sorry)
20.11.2005 16:43:44
Hajo_Zi
Hallo Tino,
in meinen Excelversionen wird mit dem Pinsel das Format übertragen und es wird nichts kopiert.
Gruß Hajo
AW: Kopieren daktivieren (sorry)
20.11.2005 16:52:19
Tino
Hallo,
ist ja eigendlich egal, wichtig ist mir nur kopieren
abzustellen. Könntest du mir dabei Helfen?
Danke
Gruss Tino
Anzeige
AW: Kopieren daktivieren (sorry)
20.11.2005 17:49:38
Hajo_Zi
Hallo Timo,
ein Teil des Codes. Alles unter DieseArbeitsmappe.

Option Explicit
Private Sub Workbook_Activate()
'   Eintrag in Menüleiste
Application.CommandBars(1).Controls("Bearbeiten").Controls("kopieren").Enabled = False
'   Symboleiste Standard
Application.CommandBars("Standard").Controls("kopieren").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'   Eintrag in Menüleiste
Application.CommandBars(1).Controls("Bearbeiten").Controls("kopieren").Enabled = True
'   Symboleiste Standard
Application.CommandBars("Standard").Controls("kopieren").Enabled = True
End Sub
Private Sub Workbook_Deactivate()
'   Eintrag in Menüleiste
Application.CommandBars(1).Controls("Bearbeiten").Controls("kopieren").Enabled = True
'   Symboleiste Standard
Application.CommandBars("Standard").Controls("kopieren").Enabled = True
End Sub
Private Sub Workbook_Open()
'   Eintrag in Menüleiste
Application.CommandBars(1).Controls("Bearbeiten").Controls("kopieren").Enabled = False
'   Symboleiste Standard
Application.CommandBars("Standard").Controls("kopieren").Enabled = False
End Sub

Strg+C bin ich noch am Suchen. Probleme hast Du natürlich falls jemand die Makro deaktiviert oder sich das Symbol in eine andere Symbolleiste zieht.
Gruß Hajo
Anzeige
AW: Kopieren daktivieren (sorry)
20.11.2005 18:11:04
Eule
Hi Tino, hi Hajo
vielleicht sucht Ihr dies:
in DieseArbeitsmappe:

Sub procKopierenAusschneidenAus()
'Tastenkombinationen deaktivieren
Application.OnKey "^x", ""
Application.OnKey "^c", ""
Application.OnKey "^v", ""
Application.OnKey "+{DEL}", ""
Application.OnKey "+{INSERT}", ""
'Drag & Drop ausschalten
Application.CellDragAndDrop = False
' Schaltflaechen deaktivieren
procControlEnableDisable 21, False  ' Ausschneiden
procControlEnableDisable 19, False  'Kopieren
procControlEnableDisable 22, False  'Einfuegen
procControlEnableDisable 755, False 'Inhalte einfuegen
End Sub



Sub procKopierenAusschneidenEin()
'Tastenkombinationen einschalten
Application.OnKey "^x"
Application.OnKey "^c"
Application.OnKey "^v"
Application.OnKey "+{DEL}"
Application.OnKey "+{INSERT}"
'Drag & Drop wieder erlauben
Application.CellDragAndDrop = True
' Schaltflaechen aktivieren
procControlEnableDisable 21, True ' Ausschneiden
procControlEnableDisable 19, True 'Kopieren
procControlEnableDisable 22, True  'Einfuegen
procControlEnableDisable 755, True 'Inhalte einfuegen
End Sub



Sub procControlEnableDisable(intId As Integer, _
bolStatus As Boolean)
Dim cmbSuche As CommandBar
Dim cmbcSteuerelement As CommandBarControl
For Each cmbSuche In Application.CommandBars
Set cmbcSteuerelement = _
cmbSuche.FindControl(Id:=intId, recursive:=True)
If Not cmbcSteuerelement Is Nothing Then
cmbcSteuerelement.Enabled = bolStatus
End If
Next
End Sub

Gruss Eule
Anzeige
AW: Kopieren daktivieren (sorry)
20.11.2005 18:43:30
Hajo_Zi
Hallo Eule
Danke für Deine Information
Gruß Hajo
Danke für die Hilfe?
20.11.2005 19:32:04
Tino
Hallo,
ich möchte mich für die Hilfe bei Euch bedanken.
Euer
Tino
AW: Kopieren daktivieren
20.11.2005 16:26:52
Tino
Hallo,
bei aufzeichnen eines Macros wird Kopiert.

Sub Makro2()
' Makro2 Makro
' Makro am 20.11.2005 von ts aufgezeichnet
Selection.Copy
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Gruss Tino
Anzeige
AW: Kopieren daktivieren
20.11.2005 16:36:34
Tino
Hallo,
bei aufzeichnen eines Macros wird Kopiert.

Sub Makro2()
' Makro2 Makro
' Makro am 20.11.2005 von ts aufgezeichnet
Selection.Copy
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Gruss Tino
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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