Removing Cut, copy and Paste

[Daniel C]

Hi
using the search facility i've cobbeld together this code in order to help remove the cut copy and paste functions.

Private Sub Workbook_Open()
Application.OnKey "^{c}", "" 'Copy
Application.OnKey "^{v}", "" 'Paste
Application.OnKey "^{x}", "" 'Cut

On Error Resume Next
ShortcutMenus(xlWorksheetCell).MenuItems("Cut").Delete
ShortcutMenus(xlWorksheetCell).MenuItems("Copy").Delete
ShortcutMenus(xlWorksheetCell).MenuItems("Paste").Delete
ShortcutMenus(xlWorksheetCell).MenuItems("PasteSpecial").Delete
On Error GoTo 0
Application.CommandBars("Standard").Visible = False
End sub

However you can still use the the Worksheet command bar > Edit > cut

I originally thought that may be
Application.CommandBars("worksheet menu bar").Visible = False

would work but to no avail, what should i do?
Dan

 

[DominicB]

Good afternoon Daniel C

Try this :

Sub Test()
Dim ctrl As Object, ctrlMenuItem As Object
For Each ctrl In CommandBars("Worksheet Menu Bar").Controls
If ctrl.Caption = "&Edit" Then
For Each ctrlMenuItem In ctrl.Controls
If ctrlMenuItem.Caption = "Cu&t" Then ctrlMenuItem.Enabled = False ' Change to true to restore
If ctrlMenuItem.Caption = "&Copy" Then ctrlMenuItem.Enabled = False ' Change to true to restore
Next ctrlMenuItem
End If
Next ctrl
End Sub

FWIW, Ivan F Moala has put together a routine which prevents copying and pasting here :

http://www.xcelfiles.com/VBA_Quick13.html

HTH

DominicB

 

[Daniel C]

Cheers Boss !