SOS!!! Как заблокировать в Excel ВСЁ меню и правую клавишу?

[Adincom]

Господа Программеры! Памагите плиз ещё раз!

Как написать в Excel процедуру, которая запустится при открытии файла и заблокирует доступ к меню и правую клавишу мышки!

Заранее БЛАГОДАРЕН!

[ANDLL]

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

Private Sub Workbook_Open()
Application.CommandBars("Worksheet menu bar").Enabled = False
End Sub


Это в коде объекта "ЭтаКнига"

[Adincom]

Спасиба а правую клавишу?

[ANDLL]

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

Application.CommandBars("Cell").Enabled = False

А вообще, рекомендую:

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

Dim I As CommandBar
For Each I In Application.CommandBars
    If I.Type = msoBarTypePopup Then MsgBox I.Name
Next