Панели инструментов Excel

[bdaa]

Как пользователю запретить отображать стандартные панели инструментов в экселевском файле?

[olik111]

Private Sub NoMoreCommandBarHere()
'отключаем всё меню
'объявим переменную
Dim CmdBar As CommandBar
For Each CmdBar In CommandBars
If CmdBar.Enabled = True Then
CmdBar.Enabled = False
End If
Next
End Sub

Вернуть все можно заменив в цикле следующие строчки

If CmdBar.Enabled = True Then
CmdBar.Enabled = False
End If

На

If CmdBar.Enabled = False Then
CmdBar.Enabled = True
End If

[olik111]

об етом я не подумала

[bdaa]

Private Sub NoMoreCommandBarHere()
'отключаем всё меню
'объявим переменную
Dim CmdBar As CommandBar
For Each CmdBar In CommandBars
If CmdBar.Enabled = True Then
CmdBar.Enabled = False
End If
Next
End Sub

Вернуть все можно заменив в цикле следующие строчки

If CmdBar.Enabled = True Then
CmdBar.Enabled = False
End If

На

If CmdBar.Enabled = False Then
CmdBar.Enabled = True
End If

Спасибо, данный вариант меня почти полностью устраивает, дело в том, что я в приложении использую свое меню и свои панели инструментов, которые создаются программным путем и не хочу, чтобы пользователь пользовался чем-либо кроме них. Я делал стандартные панели невидимыми, а недоступными сделать не догадался .
А пользователь макросы отключать не будет, иначе у него не будет приложения (да и не сможет).
Почему сказал, что вариант устраивает почти полностью... осталась маленькая проблема, если правой кнопкой щелкнуть на моей панели управления, то остается доступна кнопка "Настройка". А из "Настройки" можно перенести команды на панель управления. Как этого не допустить?

[olik111]

назначь правой кнопке какое нибудь другое действие

[bdaa]

назначь правой кнопке какое нибудь другое действие

Тоже интересное предложение... но к сожалению, на панели инструментов, справа от последней кнопки, есть еще "стрелочка вниз", вызывающая меню "Добавить или удалить кнопки" через которое можно попасть в "Настройку".

Правда, проблему добавления кнопки решить удалось:
у моей CommandBar ставлю Protection = msoBarNoCustomize, однако окно "Настройка" все равно можно вызвать, а вот команды из нее перетянуть не удается. Так что осталось избавиться от "Настройки" чисто из эстетических соображений, чтобы пользователя не раздражало