Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Disabling Pop Up Menu Options
I have a spreadsheet that I want to protect from the user inserting or
deleting columns. I have this code right now: With Application.CommandBars("Cell") iPostion = .Controls("Delete...").Index Set cBut = .Controls.Add(Befo=iPostion, Temporary:=True) .Controls("Delete...").Delete .Controls("insert...").Delete End With On Error GoTo 0 Application.EnableAutoComplete = False Application.ErrorCheckingOptions.BackgroundCheckin g = False Application.ErrorCheckingOptions.IndicatorColorInd ex = 2 Application.MoveAfterReturnDirection = xlToRight It does fine for disabling the drop downs from the menu bars, but the user can still right-click and delete. How can I disable that option? Thank you, -- Markb |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Disabling Pop Up Menu Options
If you protect the spreadsheet you cannot add or delete columns.
"markb" wrote: I have a spreadsheet that I want to protect from the user inserting or deleting columns. I have this code right now: With Application.CommandBars("Cell") iPostion = .Controls("Delete...").Index Set cBut = .Controls.Add(Befo=iPostion, Temporary:=True) .Controls("Delete...").Delete .Controls("insert...").Delete End With On Error GoTo 0 Application.EnableAutoComplete = False Application.ErrorCheckingOptions.BackgroundCheckin g = False Application.ErrorCheckingOptions.IndicatorColorInd ex = 2 Application.MoveAfterReturnDirection = xlToRight It does fine for disabling the drop downs from the menu bars, but the user can still right-click and delete. How can I disable that option? Thank you, -- Markb |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Disabling Pop Up Menu Options
Well, that works great. Sometimes it pays to think a little simpler. thank
you for the help! -- Markb "Squeaky" wrote: If you protect the spreadsheet you cannot add or delete columns. "markb" wrote: I have a spreadsheet that I want to protect from the user inserting or deleting columns. I have this code right now: With Application.CommandBars("Cell") iPostion = .Controls("Delete...").Index Set cBut = .Controls.Add(Befo=iPostion, Temporary:=True) .Controls("Delete...").Delete .Controls("insert...").Delete End With On Error GoTo 0 Application.EnableAutoComplete = False Application.ErrorCheckingOptions.BackgroundCheckin g = False Application.ErrorCheckingOptions.IndicatorColorInd ex = 2 Application.MoveAfterReturnDirection = xlToRight It does fine for disabling the drop downs from the menu bars, but the user can still right-click and delete. How can I disable that option? Thank you, -- Markb |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Disabling Tools/Options setting | Excel Discussion (Misc queries) | |||
Disabling Paste Options | Excel Programming | |||
Help on Disabling Save & Print Options | Excel Programming | |||
Disabling Menu Options | Excel Programming | |||
Disabling standart menu options | Excel Programming |