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,
--
Markb

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(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,
> --
> Markb

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(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,
> > --
> > Markb