For Each x In CommandBars  
   Debug.Print x.Visible  
Next

ну перед запуском запоминаете видимые, потом ищете прибавку..  
 
в любом случае можете промазать - окно может закрыться до осуществления проверки.  
 
может лучше объявить все меню, невидимые до запуска, как недоступные?

ничего муторного:  
 
Sub t()  
   Dim x As CommandBar, r As New Collection  
   For Each x In CommandBars  
       If Not x.Visible Then  
           r.Add x  
           x.Enabled = False  
       End If  
   Next  
   Do  
   ' тут ваш код  
   DoEvents  
   Loop Until [a1] = 1
   For Each x In r  
       x.Enabled = True  
   Next  
End Sub  
 
обратите внимание на условие выхода из цикла, если будете пробовать :)

Спасибо Владимир, что откликнулись.  
 
Задача в следующем: Создал собственное контекстное меню, которое вызывается API-функцией GetKeyState по правому клику мышы. Срабатывание нечеткое в некоторых мне непонятных случаях вызываются стандартные меню, поэтому и появилась идея подавить только эти контекстные меню, имен которых я не знаю...  
 
Владимир, не могли бы Вы по подробнее раскрыть действие свойства Application.Interactive. Будет ли работать меню пользователя?

Application.DisplayAlerts = False полностью блокирует клавиатуру и мышку, работает только код макроса.  
 
Для озвученной цели можно обойтись без API.  
Чтобы подавить все контекстные меню по правому клику мышки и вызвать свое меню, например, только на листе с кодовым именем Лист1, подойдет такой макрос в модуле ЭтаКнига:  
 
' Код в модуле ЭтаКнига  
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)  
 If Not Sh Is Лист1 Then Exit Sub  
 With Application.CommandBars.Add(Name:="Custom", Position:=msoBarPopup, Temporary:=True)  
   .Controls.Add Type:=msoControlButton, ID:=3, Temporary:=True  
   .Controls.Add Type:=msoControlComboBox, Temporary:=True  
   .ShowPopup  
   .Delete  
 End With  
 Cancel = True  
End Sub  
 
Панель с 2-мя контролами приведена для примера, нужно вписать свой код.

Владимир, в коде, который я привел выше, достаточно сначала определить, есть ли под курсором диаграмма. Если есть, то выполнить код, иначе - Exit Sub.  
При этом будет подавлено только контекстное меню диаграмм.

Прошу прощения, забыл вложение...

Саш, правый клик на диаграмме - контекстное меню доступно...

Ну  это понятно. В 2003 диаграммы организованы иначе нежели в 2007.    
 
Пытался увидеть через Watch, но безрезультатно...

Не знаю поможет это вам или нет (а может это и есть в Вашем коде), но как вариант "щлепнуть" все  
 
Sub io()  
Dim x As Object  
For Each x In CommandBars  
   If x.Type = msoBarTypePopup Then  
Debug.Print x.Name  
       x.Enabled = False ' True  
   End If  
Next  
End Sub  
 
 
Вот тут еще один интересный вопрос, мож Вы знаете ответ?)  
http://www.planetaexcel.ru/forum.php?thread_id=31716&page_forum=5&allnum_forum=124

{quote}{login=VovaK}{date=18.10.2011 09:20}{thema=}{post}Безнадега какая-то с этим меню... Воспользовался советом Владимира(ZVI)...{/post}{/quote}  
Владимир, я же потом, когда выяснил назначение, предложил использовать событие.  
Приложил пример кода с модулем класса для пользовательского меню на выделенной диаграмме.

Бог мой, как красиво, задыхаюсь от восторга. Владимир низкий поклон. Только вот появился вопрос. Проверяю дома и  у меня и на выделенной и на не выделенной диаграмме отрабатывает класс, предварительно выделив диаграмму. Второй вариант гасит уже пользовательское меню (отрабатывает oChart_Activate).  
Вопрос: Владимир, почему все таки меню диаграмм в локализации Excel 2007 (где диаграммы это - объекты типа Shape) не доступны для редактирования через коллекцию Application.CommandBars? Ну к примеру вставить дополнительную команду в меню "Chart" или "Cure", или те же попытки заблокировать их посредством .Enabled = True.  
Очень запал этот вопрос, потому как уже давно изучаю диаграммы и вижу на каждом шагу различия в организации диаграмм версий Excel 2003 и 2007 года. Но прочитать про эти различия нигде не могу, в инете просто нет этой информации.    
 
Еще раз огромное спасибо,  
 
Владимир.

Спасибо Владимир,  
 
Пытался использовать Ваш Вариант, но из цикла по DoEvents события почему-то не отрабатываются.  
 
Нашел подходящее решение средствами WinAPI (подсказал знакомый системщик):  
 
Private Const APPCOMMAND_VOLUME_MUTE As Long = &H80000  
Private Const WM_APPCOMMAND As Integer = &H319  
Declare Function SendMessageW Lib "user32.dll" (ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long  
...  
On Error Resume Next  
If Not(obj.Type = msoChart) Then  
DoEvents  
Else  
SendMessageW Application.hwnd, WM_APPCOMMAND, Application.hwnd, APPCOMMAND_VOLUME_MUTE  
Application.Interactive = False  
DoEvents  
Application.Interactive = True  
SendMessageW Application.hwnd, WM_APPCOMMAND, Application.hwnd, APPCOMMAND_VOLUME_MUTE  
End If  
...  
Всем еще раз спасибо,  
 
Владимир.