Cut and Copy Menus Disabled

[Maz]

Maybe I have done it in my sleep, or someone is secretly playing a trick on me but I seem to have diabled the cut and copy menus on both the toolbar and the cell menu's. There doesn't appear to be any VBA causing it but I was playing around with this stuff a few weeks ago but didn't think I had saved it...any ideas?

 

[Andrew Poulsom]

Was this what you were playing around with?

http://www.mrexcel.com/board2/viewtopic.php?t=188412

 

[Maz]

I did have a look at that but it was something far simpler. I'm just new to VBA so it would have been a real easy section of code, ten lines or less I'm sure!

 

[Andrew Poulsom]

Try pasting this part of the code into a General module and running it:

Sub EnableCopyCutAndPaste() 
EnableControl 21, True ' cut 
EnableControl 19, True ' copy 
EnableControl 22, True ' paste 
EnableControl 755, True ' pastespecial 
Application.OnKey "^c" 
Application.OnKey "^v" 
Application.OnKey "+{DEL}" 
Application.OnKey "+{INSERT}" 
Application.CellDragAndDrop = True 
Application.OnDoubleClick = "" 
CommandBars("ToolBar List").Enabled = True 
End Sub 

Sub EnableControl(Id As Integer, Enabled As Boolean) 
Dim CB As CommandBar 
Dim C As CommandBarControl 

On Error Resume Next 
For Each CB In Application.CommandBars 
Set C = CB.FindControl(Id:=Id, recursive:=True) 
If Not C Is Nothing Then C.Enabled = Enabled 
Next 

End Sub

 

[Maz]

Nope, doesn't work. I can still use CTRL+X and CTRL +C but nothing else. When I look at the VB code window, all it says is Option Explicit. There doesn't appear to be anything going on, no modules there or anything and it's the same in every workbook I open.