powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA CommandBar
2 сообщений из 2, страница 1 из 1
VBA CommandBar
    #33639066
Артем G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
У меня есть такая проблемка буду решать пораллельно но если кто то поможет опередив меня то я буду несказанно рад.
При открытии экселя я скрываю все панельки в книге.
Вот моя процедура

Private Sub Workbook_Open()
Sheet1.Activate
Dim a As CommandBar
For Each a In Application.CommandBars
a.Enabled = False
Next
Application.DisplayFormulaBar = False
End Sub

Когда я открываю еще какую нибудь книгу то там тоже скрыты панельки.
Это есть не гуд. Выполнение вот этого выглядит не очень красиво.

Private Sub Workbook_Deactivate()
Dim a As CommandBar
For Each a In Application.CommandBars
a.Enabled = True
Next
Application.DisplayFormulaBar = True
End Sub

Прыгающие туды сюды панельки ну как то не очень.
Можно ли как нибудь этого избежать?
И параллельно еще один вопрос... можно ли убирать панельки на более раннем этапе... мне казалось что что то такое было...спасибки
...
Рейтинг: 0 / 0
VBA CommandBar
    #33639257
Артем GПрыгающие туды сюды панельки ну как то не очень.
Можно ли как нибудь этого избежать?
Попробуй добавить в начало своих процедур Application.ScreenUpdating = False, а в конец Application.ScreenUpdating = True, например:

Код: plaintext
1.
2.
3.
4.
Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    ' Твой код здесь.
    Application.ScreenUpdating = True
End Sub

И еще зачем все панели отображать? Отображай только те панели которые были назначены.
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA CommandBar
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]