AW: copy/paste blockieren
26.03.2013 17:23:09
Sascha
Hallo Hajo
Vielen Dank für die schnelle Antwort. Jedoch, entweder habe ich dein Vorschlag falsch verstanden oder es funktioniert nicht.
Folgendes habe ich versucht:
In VBA der gewünschten Datei, zunächst Mal im VBAProjekt "DieseArbeitsmappe" doppelklickt und dann den vorhandenen Code:
'*** In the ThisWorkbook Module ***
Option Explicit
Private Sub Workbook_Activate()
Call ToggleCutCopyAndPaste(False)
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call ToggleCutCopyAndPaste(True)
End Sub
Private Sub Workbook_Deactivate()
Call ToggleCutCopyAndPaste(True)
End Sub
Private Sub Workbook_Open()
Call ToggleCutCopyAndPaste(False)
End Sub
am Schluss mit dem folgenden ergänzt:
'*** Zwischenspeicher bei Zellauswahl löschen ***
Private Sub Test1()
Application.DataEntryMode = False
End Sub
VBA geschlossen, Datei gespeichert und neu gestartet. Das funktionierte aber nicht, daher wieder gelöscht.
Dann habe ich auch im "Modul1" versucht, jedoch den Code am Anfang gesetzt:
'*** In a standard module ***
Option Explicit
'*** Zwischenspeicher bei Zellauswahl löschen ***
Sub Test1()
Application.DataEntryMode = False
End Sub
Sub ToggleCutCopyAndPaste(Allow As Boolean)
'Activate/deactivate cut, copy, paste and pastespecial menu items
Call EnableMenuItem(21, Allow) ' cut
Call EnableMenuItem(19, Allow) ' copy
Call EnableMenuItem(22, Allow) ' paste
Call EnableMenuItem(755, Allow) ' pastespecial
'Activate/deactivate drag and drop ability
Application.CellDragAndDrop = Allow
'Activate/deactivate cut, copy, paste and pastespecial shortcut keys
With Application
Select Case Allow
Case Is = False
.OnKey "^c", "CutCopyPasteDisabled"
.OnKey "^v", "CutCopyPasteDisabled"
.OnKey "^x", "CutCopyPasteDisabled"
.OnKey "+{DEL}", "CutCopyPasteDisabled"
.OnKey "^{INSERT}", "CutCopyPasteDisabled"
Case Is = True
.OnKey "^c"
.OnKey "^v"
.OnKey "^x"
.OnKey "+{DEL}"
.OnKey "^{INSERT}"
End Select
End With
End Sub
Sub EnableMenuItem(ctlId As Integer, Enabled As Boolean)
'Activate/Deactivate specific menu item
Dim cBar As CommandBar
Dim cBarCtrl As CommandBarControl
For Each cBar In Application.CommandBars
If cBar.Name "Clipboard" Then
Set cBarCtrl = cBar.FindControl(ID:=ctlId, recursive:=True)
If Not cBarCtrl Is Nothing Then cBarCtrl.Enabled = Enabled
End If
Next
End Sub
Sub CutCopyPasteDisabled()
'Inform user that the functions have been disabled
MsgBox "Sorry! Ausschneiden, kopieren und einfügen sind in dieser Tabelle ausgeschaltet!"
End Sub
Auch das hat leider nicht funktioniert.
gruss
Sascha