Здравствуйте PavelT100, Вы писали:

PT> MS Office 2000 Premium. Excel. В ходе своих экспериментов случайно удалил пункт меню "Help", хорошо, что до других дело не дошло, вот такой строкой:

PT>Application.CommandBars("Worksheet Menu Bar").Controls(12).Delete

PT>Как его востановить, подскажите, и вообще что произошло? Я хотел удалить меню только для
PT>данной книги и для данного запуска, а теперь даже после удаления и новой установки всего MS Office
PT>это меню не возвращается.

PT>Попутно вопрос на ту же тему, скопировал код из хелпа VBA :
PT>Set mybar = CommandBars _
PT> .Add(Name:="Custom", Position:=msoBarTop, _
PT> Temporary:=True)
PT>With mybar
PT> .Controls.Add Type:=msoControlButton, Id:= _
PT> CommandBars("Edit").Controls("Paste").ID
PT> .Visible = True
PT>End With

PT>Запускаю, не работает.

PT>Run-time error'91'

PT>Object variable or With block variable not set

Чтобы восстановить меню, нужно выполнить:

  Application.CommandBars("Worksheet Menu Bar").Reset

Всё вернется в исходное состояние.

А для того чтобы изменения в меню происходили только для данной книги, нужно поставить:

  Application.CommandBars("Worksheet Menu Bar").Controls(12).Delete True
  '[Temporary]=True

На второй вопрос:
Нужно объявить переменную mybar.

 Dim mybar as CommandBar