Office: (Office 2007) paste verhindern in excel

2easy · 4. April 2008

Hallo,
- ist es in excel möglich die copy and paste funktion zu verhindern? Genauer gesagt geht es darum zu verhindern, dass man mittels paste die Gültigkeitsfunktion von excel scheinbar umgehen kann und ich dies gerne verhindern möchte!
- oder ist dies nur mittels VBA code möglich?

:)

jinx · 6. April 2008

Moin, Rob,

Blattschutz verwenden. Ansonsten ein Ansatz per VBA:

Code:

'DieseArbeitsmappe
Private Sub Workbook_Activate()

Call UmsschaltenXCV(False)

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Call UmsschaltenXCV(True)

End Sub

Private Sub Workbook_Deactivate()

Call UmsschaltenXCV(True)

End Sub

Private Sub Workbook_Open()

Call UmsschaltenXCV(False)

End Sub

'Standardmodul
Sub UmsschaltenXCV(blnStatus As Boolean)

Call UmsschaltenMenüPunkt(21, blnStatus)
Call UmsschaltenMenüPunkt(19, blnStatus)
Call UmsschaltenMenüPunkt(22, blnStatus)
Call UmsschaltenMenüPunkt(755, blnStatus)

Application.CellDragAndDrop = blnStatus

With Application
Select Case blnStatus
Case Is = False
.OnKey "^c", "CutCopyPasteAusgeschaltet"
.OnKey "^v", "CutCopyPasteAusgeschaltet"
.OnKey "^x", "CutCopyPasteAusgeschaltet"
.OnKey "+{DEL}", "CutCopyPasteAusgeschaltet"
.OnKey "^{INSERT}", "CutCopyPasteAusgeschaltet"
Case Is = True
.OnKey "^c"
.OnKey "^v"
.OnKey "^x"
.OnKey "+{DEL}"
.OnKey "^{INSERT}"
End Select
End With

End Sub

Sub UmsschaltenMenüPunkt(intControlID As Integer, blnEnabled As Boolean)

Dim oComBar As CommandBar
Dim oComBarControl As CommandBarControl

For Each oComBar In Application.CommandBars
If oComBar.Name "Clipboard" Then
Set oComBarControl = oComBar.FindControl(ID:=intControlID, recursive:=True)
If Not oComBarControl Is Nothing Then oComBarControl.Enabled = blnEnabled
End If
Next

Set oComBarControl = Nothing

End Sub

Sub CutCopyPasteAusgeschaltet()

MsgBox "In dieser Mappe steht das Kopieren, Ausschneiden und Einfügen nicht zur Verfügung!"

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

2easy · 6. April 2008

Danke für die schnelle Antwort.

- Blattschutz allein funktioniert bei mir nicht!*frown.gif*

- danke für den code, werde diesen sogleich ausprobieren. Allerdings wollte ich ohne VBA code auskommen.*mrcool

Office: (Office 2007) paste verhindern in excel

paste verhindern in excel

paste verhindern in excel

paste verhindern in excel - Similar Threads - paste verhindern excel

VBA Copy an Paste

Copy and Paste unter bestimmten Bedingungen VBA

VBA. Range-Cut-Paste-Verschieben

Wieder mal "Paste nur Werte"

Laufzeitfehler 1004 mit Paste-Methode

Laufzeitfehler 13 & Blattschutz (VBA Excel 2016)

Formelwert per copy & paste Ã¤ndern