powered by simpleCommunicator - 2.0.49     © 2025 Programmizd 02
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Панели инструментов
5 сообщений из 5, страница 1 из 1
Панели инструментов
    #32622329
pavelch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ребятки, заклинило меня, вопрос такого плана: есть файл, у него настроены панели инструментов специфичные для него, но эти панели остаются видимыми даже в том случае, если открывают другой файл. Как заставить офис вести себя так, чтобы он показывал панели специфичные только для этого файла.

Заранее спасибо, вопрос в принципе ламерский, очень давно я как то заставлял его вести себя так, но ... сейчас уже не помню каким образом. Надеюсь на всемирный разум :-).
...
Рейтинг: 0 / 0
Панели инструментов
    #32622347
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Раз
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Workbooks("zt.xls").Sheets(" ").Activate

With Application
.CommandBars("Standard").Visible = False
.CommandBars("Formatting").Visible = False
.DisplayFormulaBar = True
.CommandBars("Visual Basic").Visible = False
End With
End Sub

Двас
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
With Application
.CommandBars("Standard").Visible = True
.CommandBars("Formatting").Visible = True
.DisplayFormulaBar = True
'.CommandBars("Visual Basic").Visible = True
End With
End Sub


Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
Панели инструментов
    #32622352
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
и еще
With Application.CommandBars.Add(Name:=lstr, _
Position:=msoBarTop, MenuBar:=False, temporary:=True)
.Visible = True
......
MenuBar:=False -либо True, убирать панели при закрытии либо оставлять

Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
Панели инструментов
    #32622360
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
тьфу извиняюсь
Код: plaintext
MenuBar:=False -либо True, убирать панели при закрытии либо оставлять
- неправильно

не MenuBar а temporary:=True(либо False)
True - удаляется
False - нет при закрытии приложения


Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
Панели инструментов
    #32622375
pavelch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Благодарю за ответ.
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Панели инструментов
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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