Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Uh Oh... :-(
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 |