| Вопрос: Деактивировать кнопки внутри CommandbarControl | Добавлено: 22.08.07 11:44 |
Автор вопроса:  Andrew_nik
|
|
Как деактивировать кнопки, которые находятся внутри CommandbarControl "Выполнение заявок"!!!
Написал такой код, но он не работает. Как исправить чтобы заработало? Sub sss() Dim cbWSMenuBar As CommandBar, mucustom As CommandBarControl Dim n&, Flag As Boolean Set cbWSMenuBar = Application.CommandBars("Worksheet menu bar") Set mucustom = cbWSMenuBar.Controls("Выполнение заявок") n = ThisWorkbook.Sheets.Count If n = 1 Then Flag = False Else: Flag = True End If cbWSMenuBar.Controls("Обновить состояние заявок").Enabled = Flag End Sub |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Andrew_nik Вопросов: 15 Ответов: 30 |
Профиль | | #1 | Добавлено: 23.08.07 10:20 |
| Вопрос уже решен. | ||
Страница: 1 |