Как скрыть панели инструментов Excel 2003 и ленту Excel 2007 при помощи макроса на VBA

Чтобы убрать с экрана все лишние элементы интерфейса Excel, можно выспользоваться таким кодом:

(скрываются все панели инструментов в Excel 2003 и лента в Excel 2007; скрываются ярлычки листов, линейки и полосы прокрутки; изменяется название окна приложения)

При необходимости можно отображать нужную панели инструментов, в то время, как остальные панели будут скрыты)

Чтобы скрывать панели инструментов Excel 2003 и ленту Excel 2007 только для одной книги,
поместите в модуль ЭтаКнига следующий код:
(при переключении на другой файл интерфейс Excel будет восстанавливаться)

Комментарии

Добрый день! А можно сделать так, чтобы вместо надписи «наше окно» отображалось имя файла? Заранее, Спасибо!

Ирина, судя по описанию задачи, с вероятностью 99% вы это делаете в целях мошенничества («угадаю результат игры заранее»)
А мошенникам я не помогаю, так что ваш вопрос останется без ответа.

Не получается что? Макрос запустить? или что-то другое?
я не телепат.
на форумах спросите, прикрепив свой файл с макросами, — тогда быстро помогут
(без файла — непонятно, что ы вас там за макросы, и как вы их запускаете)

Добрый день.Вы пишите»Тут ничего сложного нет — сначала запускаете макрос скрытия интерфейса, а следом за ним — макрос формирования панели инструментов» У меня такой вопрос-работает ли для Эксель 2010?
Я что только не пробовал, не получается. А все форумы дают ссылку на вашу статью.
За ранее спасибо.

Joann, с этим помочь не смогу (не знаю). Возможно, что никак не проверить (только через WinAPI если, — но там весьма сложный код)
Обратитесь на форумы по Excel, — может, там кто подскажет.

Каким условием проверить: Свернута-ли (не скрыта а свернута до пунктов меню) в настоящий момент лента?

Запустил окно — всё скрылось как вы и описывали, нажал на крестик что бы закрыть окно а на всплывшем подтверждении действия отмену — всё появилось вновь. Как исправить?)

Только что проверил макрос в Excel 2003 и Excel 2010
Описанная вами проблема у меня не проявляется.

За видимость указанных панелей отвечает эта строка кода:

Это всё настраивается в том же XML, где вы прописали своё меню (задаётся видимость остальных вкладок) — никаких макросов тут не надо.

спасибо! я и так свое меню сделал, только надо, чтобы только оно грузилось и все

Данный код может только скрыть \ отобразить ленту целиком.
Вообще, этот макрос разрабатывался для Excel 2003, просто в него была добавлена опция для Excel 2007.

Вкладки на ленте добавляются \ скрываются \ отображаются при помощи XML
Поищите в яндексе Ribbon editor
Т.е. вы в свой файл XLSM (XLSB) встраиваете этот XML — и при открытии файла автоматически отобразятся или скроются нужные вкладки.

PS: Сейчас уже можно не оставлять совместимость с Excel 2003 — времена его широкого распространения прошли.
Так что делайте своё меню (ленту) для Excel 2007\2010\2013, а не панели инструментов (которые работают и в старых версиях Excel).

а можно ли при загрузке книги оставить нужную закладку в ленте (например созданную самим «закладка1»)?

Protsiv, панели не пропали, — они просто скрыты.
Впрочем, это неудивительно, — если вы запустили макрос для скрытия этих панелей.

Чтобы отобразить все панели инструментов, откройте прикреплённый к статье файл, и запустите макрос «ВосстановитьИнтерфейс»

У меня после выполнения этих макросов пропали все панели инструментов и все панели управления в Эксель-2003. Весит только строка формул.
Как вернуть все в стандартное состояние?

Тут ничего сложного нет — сначала запускаете макрос скрытия интерфейса, а следом за ним — макрос формирования панели инструментов

Поддерживаю. Аналогичная проблема. Я на свою панельку добавил кнопку сохранить, нажимаю ее и закрываю файл но все равно выскакивает окошка с предложением сохранить при этом уже отображаются заголовки строк и столбцов, листы, и пателька (файл, правка, вид. ). Подскажите как убрать запрос на сохранение а чтобы сохраняло автоматически без запроса?

У меня та же проблема в верхней части экрана синяя строка то появляется то нет.
Прекрасный сайт! Спасибо админу!

Есть глюк. Закрываем файл, в ответ на запрос о сохранении жмем «отмена» и разворачиваем ленту. Как избавиться? И как оставить кнопку печать? В VBA чайник, прошу объяснить подробно.

В 2003 все понятно со скрытием меню и программированием своего
А вот в 2007 и 2010 удается скрыть ленту, а дальше что-то я торможу как создать свое меню.

Вопрос еще такой: как запретить пользователю залезать в «параметры» в 2007 и 2010? и можноли отключить эту круглую кнопку в 2007 и «файл» в 2010?

Ваш сайт исключительно полезен для меня.
Лучшего я пока не встречал
Спасибо
С уважением, Raikhman

иа моем компе 2 версии офиса 2003 и 2010 (приходится иногда пользоваться и одной и другой)
активная всегда одна из них и это создает проблемы

если активен excel 2010 то продолжаем, а если нет, то выходим.
Проблема: если активен 2003, то для работы программы приходится переустанавливать десятку — это весьма нудно. гдето в реестре чтото есть для быстрого переключения, или чтото еще, но где?
Кроме Вас на форуме чтото все залипли
спасибо

Подскажите пожалуйста как скрыть не всю ленту, а только некоторые, конкретные вкладки, или как вариант, скрыть всю, а потом отобразить нужные.
Спасибо.

Тут ничего сложного нет — сначала запускаете макрос скрытия интерфейса, а следом за ним — макрос формирования панели инструментов

«При необходимости можно отображать нужную панели инструментов, в то время, как остальные панели будут скрыты)»

Может быть как это сделать всем очевидно, но я в затруднении.. нужно решение по котором оставалась бы только создаваемая пользовательская панель.. А как??

Можно и так, конечно, но результат будет не совсем тот.

Во-первых, остаются видимыми заголовки строк и столбцов, полосы прокрутки, ярлычки листов, а в Excel 2003, помимо этого, еще и панели инструментов.

Так что упрощённый способ не даст такого результата, которого можно добиться при использовании функции ChangeInterface

если активен excel 2010 то продолжаем, а если нет, то выходим.
Проблема: если активен 2003, то для работы программы приходится переустанавливать десятку — это весьма нудно. гдето в реестре чтото есть для быстрого переключения, или чтото еще, но где?
Кроме Вас на форуме чтото все залипли
спасибо

Как в Excel 2013 настроить панель быстрого доступа — Трюки и приемы в Microsoft Excel

• Щелкнуть на панёли быстрого доступа на раскрывающемся элементе управления, выглядящем как указывающая вниз стрелка. Он находится в правой части панели (рис. 2.1). В списке содержится несколько распространенных команд. Выберите команду из списка, и Excel добавит ее на панель быстрого доступа.
• Нажать правой кнопкой мыши любой элемент управления на ленте и выполнить команду Добавить на панель быстрого доступа. Этот элемент окажется на панели быстрого доступа крайним справа.
• Открыть раздел Панель быстрого доступа в окне Параметры Excel. Чтобы быстро попасть в это диалоговое окно, необходимо щелкнуть правой кнопкой мыши на панели быстрого доступа или элементе управления Лента, а затем выполнить команду Настроить панель быстрого доступа.

Я делаю универсальные программы, которые должны работать во всех версиях Excel (начиная с 2003).
Кроме того, меню в некоторых моих программах формируется динамически (макросом).
Как это сделать в Excel 2007? Никак? вот то-то же.
(т.е. сделать-то можно, но кода будет очень много)