Заблокировать пункт контекстного меню в excel 2007

[Mint86]

Товарищи, возникла необходимость в запрещении пункта "исходный текст" который появляется при нажатии правой кнопки мыши на листе (на названии листа) в Excel 2007. Вроде с помощью xml это запретить нельзя, остается макросом. Подскажите как? (в xml код <command idMso="ViewCode" enabled = "false"/> запрещает кнопку "просмотр кода" на вкладке разработчик, а в контекстном меню данный пункт остается).

[Skif-F]

Я использую такое:

    For Each newPopUp In Application.CommandBars("Cell").Controls
        If newPopUp.Caption = "Имя меню или панели" Then
            For Each a In newPopUp.Controls
                If a.Caption = "Имя пункта меню в панели" Then
                    a.Enabled = Flag 'или True'
                End If
            Next
            Exit For
        End If
    Next

это можно вставить в Workbook_Open()

[Mint86]

Skif-F не получаестя...
что значит "Имя меню или панели" ? Я "его" не знаю. Попробовал разные вариации названия, не получается. Названия различных пунктов меню брал здесь

[Skif-F]

А может, не стоит париться? Поставь пороль на макросы:
Tools/VBAProject Properties.../Protection/Password

[Mint86]

Сообщение от Skif-F

А может, не стоит париться? Поставь пороль на макросы:
Tools/VBAProject Properties.../Protection/Password

Спасибо конечно, но нужно именно запретить и именно данный пункт контекстного меню, причины разные и не важно какие. Судя по этой статье контекстные меню с помощью xml в 2007-м excel нельзя изменять. Если кто знает прошу помощи.

[Mint86]

В Excel 2003 данный пункт можно было запретить так:

Sub Disable_Bar()

EnableControl 1561, False 'Исходный текст

End Sub

Sub EnableControl(iId As Integer, blnState As Boolean)

Dim ComBar As CommandBar, ComBarCtrl As CommandBarControl
On Error Resume Next
For Each ComBar In Application.CommandBars
Set ComBarCtrl = ComBar.FindControl(ID:=iId, recursive:=True)
If Not ComBarCtrl Is Nothing Then ComBarCtrl.Enabled = blnState
Next

End Sub

При этом запрещались все аналогичные кнопки где бы они не находились. А с 2007-м дело обстоит по другому...

[SAS888]

Почему? Посмотрите вложение. Так нужно?

[Mint86]

SAS888 именно так, благодарю!

[Aent]

Вопрос конечно был про Excel 2007. Но вскользь замечу: В Excel 2010 ID другой ...

[Mint86]

Да и в Excel 2007 ID 1561 недекларирован или я ошибаюсь? По крайней мере в документе по ссылке которую я приводил выше ID 1561 нет. Возможно он оставлен для совместимости.