Доброй ночи!
Ребята!
Случайно надыбал на новый для меня форум «Форум программистов» PROGZ.EU.
И с этой вот темы: «Своё меню в Excel», которая находится по адрессу: http://www.progz.ru/t19155/ , скопировал в пустую книгу
Следующие макросы :
Sub HideMenu()
CommandBars(1).Controls("Файл").Visible = False
CommandBars(1).Controls("Правка").Visible = False
CommandBars(1).Controls("Вид").Visible = False
CommandBars(1).Controls("вставка").Visible = False
End Sub
Sub DisableAllShortcutMenus()
Dim cb As CommandBar
For Each cb In CommandBars
If cb.Type = msoBarTypePopup Then cb.Enabled = False 'True
Next cb
End Sub

И с праздного любоиытства установил их в новую пустую книгу и запустил макросы.
Теперь контекстное меню и три подменю (ПРАВКА, ВСТАВКА и ВИД) главного меню - у меня пропало во всем Екселе.
Грешным делом подумал, что все это можно будет легко восстановить.
Но увы!
Теперь вот заимел проблему. Как все это восстановить?
Удаление этих макросов вместе с книгой ничего не изменило. Средство Винды Найти и восстановить, также ничего этого не восстанавливает. Далее переустановил Офис, но и после этого проблема не исчезла.
Помогите , пожалуйста!
Спасибо заранее за помощь! Кто может.

Нашел решение .
Нужно сделать вот так:

Sub DisableAllShortcutMenus()
Dim cb As CommandBar
For Each cb In CommandBars
'If cb.Type = msoBarTypePopup Then cb.Enabled = False 'True
If cb.Type = msoBarTypePopup Then cb.Enabled = True
Next cb
End Sub

Sub HideMenu()
CommandBars(1).Controls("Файл").Visible = True 'False
CommandBars(1).Controls("Правка").Visible = True 'False
CommandBars(1).Controls("Вид").Visible = rue 'False
CommandBars(1).Controls("вставка").Visible = True 'False
End Sub

А вот как сделать так, чтобы эти макросі работали в отдельно взятой книге. это вопрос посложнее. Подскажите, пожалуйста, кто знает

viktturНе для отдельной книги, но для работы в книге :)
При открытии книги формируете меню, на событие закрытия книги вешаете макрос "все как было".

Добрый день!
Скажите пожалуйста! А "формируете меню, на событие закрытия книги" - это означает записать макрос в модуль Эта книга. Или как?
Спасибо!

Уважаемый vikttur!
Спасибо за помощь! Все работает.