Как можно убрать все панели меню из окна приложения ?

[MItya]

Я рисую формочки в Outlook.
Можно ли как нибудь убрать все панели меню из окна приложения (чтобы пользователи не тыкали куда не нужно).
На данный момент я могу только дисаблить кнопки, но это не очень красиво.

[Nicky]

Может, как везде в офисе: Application.CommandBars...Visible = False ?

[MItya]

Стандартная панель так не убирается.
К тому же панель меню (файл, правка, вид и т.д.) так по моему не убрать

[Nicky]

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

Sub Макрос1()
  Dim i As Long, aBars() As Boolean
  On Error GoTo er
 
  ReDim aBars(1 To Application.CommandBars.Count)
  For i = 1 To Application.CommandBars.Count
    aBars(i) = Application.CommandBars(i).Enabled
    Application.CommandBars(i).Enabled = False
  Next
  MsgBox "Вуаля!"
 
er:
  For i = 1 To Application.CommandBars.Count
    Application.CommandBars(i).Enabled = aBars(i)
  Next
End Sub


И все прекрасно убирается

[MItya]

а можно все тоже самое на VBs повторить ?

[Nicky]

А при чем тут vbs?
Начало было

Я рисую формочки в Outlook

В случае vbs, панели чего убирать?

[MItya]

формочки рисую для Outlook на vbs потому что в штатном конструкторе Outlook редактор сделан под vbs.

А проблемку я свою решил так:

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

Sub cbars_click
   Dim i
   Dim aBars
   Dim objInsp
   Dim colCB
   Dim objCBB
   On Error Resume Next
   Set objInsp = Item.GetInspector
   Set colCB = objInsp.CommandBars
   for i=1 to colCB.count
'      msgbox i
      set aBars(i) = colCB(i).Enabled
      colCB(i).Enabled = False
   next
   Set objCBB = Nothing
   Set colCB = Nothing
   Set objInsp = Nothing
End Sub


если что напартачил или может лишние строки написал, не ругайтесь.

[MItya]

раз на то пошло, то может пойти дальше ?

может кто знает как убрать "крестик" закрытия окна приложения ?

[Nicky]

Ну не знаю. У меня нет аутлука. Я писал на примере Excel

[ULiX]

Nicky большое спасибо. Я как раз мучился с убиранием меню. Свойство visible невозможно было поменять, смена Protection на 0 тоже результатов не дала - только тип ошибки сменился. А вот про Enable не подумал. Обычно оно делает объекты не доступными но видимыми.

У меня дополнительный вопрос. Не сочтите, что мне лень пользоваться поисковиком, (лень просматривать более ста найденых форумов )

Как перехватит нажатие правой кнопки мыши на панеле Exel, и\или как заменить всплывающее меню при нажатии правой кнопки. Просто там меню конструктора панелей, выпад которого нежелателен.

Как создать своё всплывающее меню, скажем, при клике на созданой форме?

[Nicky]

Что-то ничего не получается... Добрался до CommandBars("Built-in Menus").Controls("Панели &инструментов").Controls("&Настройка..."), а дальше - никак. Ни удалить, ни задизаблить...