Kopieren daktivieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

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

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread