|
|
|
VBA CommandBar
|
|||
|---|---|---|---|
|
#18+
У меня есть такая проблемка буду решать пораллельно но если кто то поможет опередив меня то я буду несказанно рад. При открытии экселя я скрываю все панельки в книге. Вот моя процедура 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 Прыгающие туды сюды панельки ну как то не очень. Можно ли как нибудь этого избежать? И параллельно еще один вопрос... можно ли убирать панельки на более раннем этапе... мне казалось что что то такое было...спасибки ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.04.2006, 14:10:25 |
|
||
|
VBA CommandBar
|
|||
|---|---|---|---|
|
#18+
Артем GПрыгающие туды сюды панельки ну как то не очень. Можно ли как нибудь этого избежать? Попробуй добавить в начало своих процедур Application.ScreenUpdating = False, а в конец Application.ScreenUpdating = True, например: Код: plaintext 1. 2. 3. 4. И еще зачем все панели отображать? Отображай только те панели которые были назначены. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.04.2006, 19:19:51 |
|
||
|
|

start [/forum/topic.php?fid=60&fpage=287&tid=2166127]: |
0ms |
get settings: |
9ms |
get forum list: |
19ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
212ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
25ms |
get tp. blocked users: |
1ms |
| others: | 237ms |
| total: | 522ms |

| 0 / 0 |
