Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Убрать ненужные элементы окна Excel 2016. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Убрать ненужные элементы окна Excel 2016. (Макросы/Sub)
Убрать ненужные элементы окна Excel 2016.
votangi59 Дата: Среда, 02.04.2025, 16:53 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 3 ±
Замечаний: 0% ±

Всех приветствую!
Уважаемые форумчане, вынужден снова обратиться к вам. Помогите, посоветуйте, подскажите, пожалуйста, как реализовать ниже следующее.
Задача - убрать с интерфейса Excel (2016) элементы: "Лента", "Строка формул", "Номера строк", "Заголовки столбцов", "Ярлыки листов", "Кнопка вставки листа".
Должно остаться:
1. "Панель быстрого доступа", в ней поместить кнопки "Сохранить", "Сохранить как".
2. На штатном месте кнопки "Свернуть", "Свернуть в окно", "Закрыть".
3. Внизу, справа, на штатном месте: "Масштаб" и "Выбор масштаба".
4. Полосы прокрутки (вертикальная, горизонтальная).
5. Табличный курсор.
Сей переделанный интерфейс должен функционировать только в одном файле. Перед закрытием ф-ла окно Excel-я возвращается в прежний вид.
Кое-что нашёл в инете (см. файл, но этот код убирает всё из окна), как бы это переделать под мою задачу, по возможности, с поясняющими комментариями.
Очень надеюсь на вашу помощь и участие.
К сообщению приложен файл: interfejs_na_forum.xls (23.5 Kb)


Сообщение отредактировал votangi59 - Среда, 02.04.2025, 16:54
 
Ответить
СообщениеВсех приветствую!
Уважаемые форумчане, вынужден снова обратиться к вам. Помогите, посоветуйте, подскажите, пожалуйста, как реализовать ниже следующее.
Задача - убрать с интерфейса Excel (2016) элементы: "Лента", "Строка формул", "Номера строк", "Заголовки столбцов", "Ярлыки листов", "Кнопка вставки листа".
Должно остаться:
1. "Панель быстрого доступа", в ней поместить кнопки "Сохранить", "Сохранить как".
2. На штатном месте кнопки "Свернуть", "Свернуть в окно", "Закрыть".
3. Внизу, справа, на штатном месте: "Масштаб" и "Выбор масштаба".
4. Полосы прокрутки (вертикальная, горизонтальная).
5. Табличный курсор.
Сей переделанный интерфейс должен функционировать только в одном файле. Перед закрытием ф-ла окно Excel-я возвращается в прежний вид.
Кое-что нашёл в инете (см. файл, но этот код убирает всё из окна), как бы это переделать под мою задачу, по возможности, с поясняющими комментариями.
Очень надеюсь на вашу помощь и участие.
Автор - votangi59
Дата добавления - 02.04.2025 в 16:53
votangi59 Дата: Четверг, 03.04.2025, 06:07 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 3 ±
Замечаний: 0% ±

Нашёл ещё пару строк кода, возможно поможет решить задачу.
Убирает/возвращает только ленту - уже неплохо.
[vba]
Код
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", False)"   ' скрыть (убрать) "Ленту"
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", True)"    ' вернуть (показать) "Ленту"
[/vba]
Насколько я понял, по результатам своего поиска, у каждого элемента интерфейса имеется свой индекс, как его вычислить?
Или имя элемента на английском, как его узнать, возможно просто перевести с русского?
CommandBars(n) - где n индекс бара.
CommandBars("имя панели") - где «имя панели» название на английском.
[vba]
Код
Application.CommandBars(n).Visible = True              ' - показать /False - скрыть
Application.CommandBars("имя панели").Visible = True   ' - показать /False - скрыть
[/vba]
Ещё бы знать, куда, что, в каком модуле размещать код? Наверное, как в приложенном файле?


Сообщение отредактировал votangi59 - Четверг, 03.04.2025, 06:44
 
Ответить
СообщениеНашёл ещё пару строк кода, возможно поможет решить задачу.
Убирает/возвращает только ленту - уже неплохо.
[vba]
Код
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", False)"   ' скрыть (убрать) "Ленту"
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", True)"    ' вернуть (показать) "Ленту"
[/vba]
Насколько я понял, по результатам своего поиска, у каждого элемента интерфейса имеется свой индекс, как его вычислить?
Или имя элемента на английском, как его узнать, возможно просто перевести с русского?
CommandBars(n) - где n индекс бара.
CommandBars("имя панели") - где «имя панели» название на английском.
[vba]
Код
Application.CommandBars(n).Visible = True              ' - показать /False - скрыть
Application.CommandBars("имя панели").Visible = True   ' - показать /False - скрыть
[/vba]
Ещё бы знать, куда, что, в каком модуле размещать код? Наверное, как в приложенном файле?
Автор - votangi59
Дата добавления - 03.04.2025 в 06:07
Nic70y Дата: Четверг, 03.04.2025, 08:41 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 9114
Репутация: 2412 ±
Замечаний: 0% ±

Excel 2010
нажмите Alt+F11 - увидите модули
Цитата votangi59, 03.04.2025 в 06:07, в сообщении № 2 ()
имеется свой индекс, как его вычислить?

[vba]
Код
Sub u_18()
    u = 0
    For Each c In CommandBars
        u = u + 1
        Range("a" & u) = c.Name
        Range("b" & u) = c.Index
    Next
End Sub
[/vba]
К сообщению приложен файл: kniga1.xlsm (17.7 Kb)

ЮMoney 41001841029809
 
Ответить
Сообщениенажмите Alt+F11 - увидите модули
Цитата votangi59, 03.04.2025 в 06:07, в сообщении № 2 ()
имеется свой индекс, как его вычислить?

[vba]
Код
Sub u_18()
    u = 0
    For Each c In CommandBars
        u = u + 1
        Range("a" & u) = c.Name
        Range("b" & u) = c.Index
    Next
End Sub
[/vba]
Автор - Nic70y
Дата добавления - 03.04.2025 в 08:41
votangi59 Дата: Четверг, 03.04.2025, 12:28 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 3 ±
Замечаний: 0% ±

Благодарю, Nic70y.
Ещё бы знать соответствие названий в окне и в списке индексов. Попробую добавить в ваш макрос строку:
[vba]
Код
Range("c" & u) = c.NameLocal
[/vba]
Да, всё получилось.
Спасибо.


Сообщение отредактировал votangi59 - Четверг, 03.04.2025, 12:35
 
Ответить
СообщениеБлагодарю, Nic70y.
Ещё бы знать соответствие названий в окне и в списке индексов. Попробую добавить в ваш макрос строку:
[vba]
Код
Range("c" & u) = c.NameLocal
[/vba]
Да, всё получилось.
Спасибо.
Автор - votangi59
Дата добавления - 03.04.2025 в 12:28
votangi59 Дата: Четверг, 03.04.2025, 16:24 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 3 ±
Замечаний: 0% ±

Вот что удалось сделать, в файле.
Как добавить кнопки "Сохранить", "Сохранить как" не смог разобраться.
Помогите, пожалуйста. Желательно с комментариями.
К сообщению приложен файл: inter_forum1.xlsm (21.8 Kb)


Сообщение отредактировал votangi59 - Четверг, 03.04.2025, 16:24
 
Ответить
СообщениеВот что удалось сделать, в файле.
Как добавить кнопки "Сохранить", "Сохранить как" не смог разобраться.
Помогите, пожалуйста. Желательно с комментариями.
Автор - votangi59
Дата добавления - 03.04.2025 в 16:24
votangi59 Дата: Воскресенье, 06.04.2025, 16:28 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 3 ±
Замечаний: 0% ±

Всех приветствую!
Решил отказаться от своей идеи. Убирать с окна все инструменты не требуется.
Тема закрыта.
 
Ответить
СообщениеВсех приветствую!
Решил отказаться от своей идеи. Убирать с окна все инструменты не требуется.
Тема закрыта.
Автор - votangi59
Дата добавления - 06.04.2025 в 16:28
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Убрать ненужные элементы окна Excel 2016. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!