B
brownti via OfficeKB.com
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:=292).Enabled = False ' Insert
from cell
Application.CommandBars("Cell").FindControl(ID:=295).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:=295).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.
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:=292).Enabled = False ' Insert
from cell
Application.CommandBars("Cell").FindControl(ID:=295).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:=295).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.