powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Все убрать
9 сообщений из 9, страница 1 из 1
Все убрать
    #34073064
Студент?
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Помогите! Хотелось, создать макрос, который при загрузке уже созданного документа, убирал бы все активные панели инструментов, независимо от версии офиса на которой оный документ открывается, оставляя только кнопки "копировать" и "вставить".
...
Рейтинг: 0 / 0
Все убрать
    #34073267
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а зачем?
...
Рейтинг: 0 / 0
Все убрать
    #34073325
Студент?
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Урра! Откликнулись.
Чтобы не очень продвинутый пользователь не натворил бед, и нажимал только то, что ему предложено.
...
Рейтинг: 0 / 0
Все убрать
    #34073378
svetolux
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
При открытии книги убирает панель стандартная. Аналогично можно убрать другие.
...
Рейтинг: 0 / 0
Все убрать
    #34073385
svetolux
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
svetoluxПри открытии книги убирает панель стандартная. Аналогично можно убрать другие.

Что-то в первый раз картинка не прикрепилась
...
Рейтинг: 0 / 0
Все убрать
    #34073391
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А пройти по коллекции CommandBars и поставить Visible=False?
...
Рейтинг: 0 / 0
Все убрать
    #34073417
Студент?
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
orunbek подробнее можно и пожалуйста с примером.
...
Рейтинг: 0 / 0
Все убрать
    #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
Все убрать
    #34073551
Студент?
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
svetolux - лидер, девушки сообразительнее. Остальное не понял.
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Все убрать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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