I added this code to a workbook:

Private Sub Worksheet_Activate()
Application.CommandBars("Cell").Reset
Application.CommandBars("Row").Reset
Application.CommandBars(1).Reset
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=296) 'insert
from menu bar
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=478) ' delete from
menu bar
Ctrl.Enabled = False
Next Ctrl
Application.CommandBars("Row").FindControl(ID:=293 ).Enabled = False ' Delete
from Row
Application.CommandBars("Row").FindControl(ID:=296 ).Enabled = False ' Insert
From row
Application.CommandBars("Cell").FindControl(ID:=29 2).Enabled = False ' Insert
from cell
Application.CommandBars("Cell").FindControl(ID:=29 5).Enabled = False ' Delete
from cell
End Sub

Then changed it to get rid of the disallow Insert function so it looked like
this:

Private Sub Worksheet_Activate()
Application.CommandBars("Cell").Reset
Application.CommandBars("Row").Reset
Application.CommandBars(1).Reset
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=478) ' delete
from menu bar
Ctrl.Enabled = False
Next Ctrl
Application.CommandBars("Row").FindControl(ID:=293 ).Enabled = False '
Delete from Row
Application.CommandBars("Cell").FindControl(ID:=29 5).Enabled = False '
Delete from cell
End Sub

It didnt quite function as i wanted it to. So i deleted it. But now it wont
let me delte rows in any workbook i open. Except the first sheet allows
delete, but not insert. I dont know what i did, but i dont like it. Any
help is appreciated.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200703/1