И опять контекстное меню...

[asafr]

Как в VBA Excel "заглушить", сделать недоступными пункты существующего контекстного меню, а так же пункты системного меню...
Заранее благодарен

[Calvin]

Ну попробуй свойство Enabled
Вот это для контекстного меню (например для первого элемента меню)

Код: Выделить всё

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
        Cancel As Boolean)
If Not Application.Intersect(Target, Target) Is Nothing Then
   Application.CommandBars("cell").Controls(1).Enabled = False
End If
End Sub


а вот для главного меню, то это уже можно сделать из любой процедуры

Код: Выделить всё

Application.CommandBars("Worksheet Menu Bar").Controls(1).Controls(2).Enabled = False


где первый уровень Controls (это элементы меню - типа "файл", правка" и т.д.), а второй уровень это элементы "подменю".....

[asafr]

Cпасибо!
А я сегодня из-за такого несложного вопроса часа 2 потерял, а то и все три! Вот, что значет ламер неприкаяный....