lior03
07-09-2007, 03:39 AM
hello
i wanted tio restore excel to default positon.namely delete all custom icones & custom toolbars and shortcut menues.this is what i came up with
shortcut menu....
Sub deleteitemshortcut()
On Error Resume Next
Dim NewItem As CommandBarControl
If Not NewItem.BuiltIn Then
NewItem.Visible = False
End If
End Sub
toolbars...........
On Error Resume Next
Dim ocb As CommandBar
For Each ocb In Application.CommandBars
If Not ocb.BuiltIn Then
ocb.Reset
ocb.Delete
ocb.Enabled = False
ocb.Visible = False
End If
Next ocb
i did not got satisfactory result.
not all icones and shortcuts had been deleted why?
thanks
i wanted tio restore excel to default positon.namely delete all custom icones & custom toolbars and shortcut menues.this is what i came up with
shortcut menu....
Sub deleteitemshortcut()
On Error Resume Next
Dim NewItem As CommandBarControl
If Not NewItem.BuiltIn Then
NewItem.Visible = False
End If
End Sub
toolbars...........
On Error Resume Next
Dim ocb As CommandBar
For Each ocb In Application.CommandBars
If Not ocb.BuiltIn Then
ocb.Reset
ocb.Delete
ocb.Enabled = False
ocb.Visible = False
End If
Next ocb
i did not got satisfactory result.
not all icones and shortcuts had been deleted why?
thanks