Disabling Pop Up Menu Options

[markb]

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(Before:=iPostion, Temporary:=True)
.Controls("Delete...").Delete
.Controls("insert...").Delete
End With
On Error GoTo 0
Application.EnableAutoComplete = False
Application.ErrorCheckingOptions.BackgroundChecking = False
Application.ErrorCheckingOptions.IndicatorColorIndex = 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,

 

[Squeaky]

If you protect the spreadsheet you cannot add or delete columns.

 

[markb]

Well, that works great. Sometimes it pays to think a little simpler. thank
you for the help!