Home |
Search |
Today's Posts |
#1
|
|||
|
|||
No "Options" option
Hi guys,
I recently put the following code in a spreed sheet and lost the access to options (greyed out): Sub DisableCuts() Dim oCtls As CommandBarControls, oCtl As CommandBarControl Set oCtls = CommandBars.FindControls(ID:=21) ''Cut If Not oCtls Is Nothing Then For Each oCtl In oCtls oCtl.Enabled = False Next End If Set oCtls = CommandBars.FindControls(ID:=522) ''Options If Not oCtls Is Nothing Then For Each oCtl In oCtls oCtl.Enabled = False Next End If With Application .OnKey "^x", "" .OnKey "+{Del}", "" .CellDragAndDrop = False End With End Sub This has effected both home and work computers, the only ones that i installed this code in... Any ideas? Regards Keef |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
XML Data menu option -- not listed / available. How do you fix thi | Excel Discussion (Misc queries) | |||
Option Button on Forms Toolbar | Excel Discussion (Misc queries) | |||
How to protect Option button in worksheet | Excel Worksheet Functions | |||
Pivot Table Refresh Options | Excel Discussion (Misc queries) | |||
What does Insert>name>LABEL option do ? | Excel Discussion (Misc queries) |