[Waldos]

Hello GeeksToGo!

I have a doubt about the Office 2003 Clipboard.
So this is my problem: I have a machine that i need not cut/copy/paste so I instert a Macro that block the cut/copy/paste/drag/RigthClic and this configuration is for the complete Workbook, so the Sheets and cells blocked. << Nice till here

So my final thing to do is block or unistall the Office clipboard. I searched a lot (Googling) but I have not found anything more than what I have so far.

So i ask you, anyone have an idea to block this particulary problem?

Thanks indeed!!

[Advertisements]

Not really an option as it's an Office feature.

Anyway if you've locked your sheet down properly there should be no need to worry about the office clipboard.

[Neil Jones]

Not really an option as it's an Office feature.

Anyway if you've locked your sheet down properly there should be no need to worry about the office clipboard.

[Waldos]

oohh ok ... I think that i´m not properly doing the locked. Can you check it?

My macro is this:

Thx indeed!!

Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long

Sub ClearClipboard()
    OpenClipboard (0&)
    EmptyClipboard
    CloseClipboard
End Sub


Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_Open()
Application.CutCopyMode = False
Beep
End Sub

Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
Application.CutCopyMode = False
MsgBox "Right click menu deactivated." & vbCrLf & _
"Cannot copy or ''drag & drop''.", 16, "For this workbook:"
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub