Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Все убрать / 9 сообщений из 9, страница 1 из 1
23.10.2006, 10:03:12
    #34073064
Студент?
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Все убрать
Помогите! Хотелось, создать макрос, который при загрузке уже созданного документа, убирал бы все активные панели инструментов, независимо от версии офиса на которой оный документ открывается, оставляя только кнопки "копировать" и "вставить".
...
Рейтинг: 0 / 0
23.10.2006, 11:13:42
    #34073267
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Все убрать
а зачем?
...
Рейтинг: 0 / 0
23.10.2006, 11:28:45
    #34073325
Студент?
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Все убрать
Урра! Откликнулись.
Чтобы не очень продвинутый пользователь не натворил бед, и нажимал только то, что ему предложено.
...
Рейтинг: 0 / 0
23.10.2006, 11:43:43
    #34073378
svetolux
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Все убрать
При открытии книги убирает панель стандартная. Аналогично можно убрать другие.
...
Рейтинг: 0 / 0
23.10.2006, 11:44:48
    #34073385
svetolux
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Все убрать
svetoluxПри открытии книги убирает панель стандартная. Аналогично можно убрать другие.

Что-то в первый раз картинка не прикрепилась
...
Рейтинг: 0 / 0
23.10.2006, 11:45:24
    #34073391
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Все убрать
А пройти по коллекции CommandBars и поставить Visible=False?
...
Рейтинг: 0 / 0
23.10.2006, 11:52:42
    #34073417
Студент?
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Все убрать
orunbek подробнее можно и пожалуйста с примером.
...
Рейтинг: 0 / 0
23.10.2006, 12:00:46
    #34073450
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Все убрать
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub t()
    Dim objCmdBar As CommandBar
    For Each objCmdBar In CommandBars
        objCmdBar.Visible = False
    Next
End Sub
или
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub t()
    Dim i%
    For i= 1  to CommandBars.Count
        CommandBars(i).Visible=False
    Next
End Sub
...
Рейтинг: 0 / 0
23.10.2006, 12:21:58
    #34073551
Студент?
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Все убрать
svetolux - лидер, девушки сообразительнее. Остальное не понял.
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Все убрать / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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