Как убрать меню в экселе

Обновлено: 06.07.2024

Дополню ответ мною уважаемого pashulka

' Закрывает все панели инструментов
Sub CmdBar_Close()
Dim CmdBar As CommandBar
For Each CmdBar In CommandBars
If CmdBar.Enabled = True Then
CmdBar.Enabled = False
End If
Next
End Sub

'Прячем все
Sub All_other_Close()
'убрать строку формул
Application.DisplayFormulaBar = False
With ActiveWindow
'убрать заголовки
.DisplayHeadings = False
'убрать аутлайны
.DisplayOutline = False
'не знаю что такое зерос но тоже убрать
.DisplayZeros = False
'горизонтальные полосы прокрутки
.DisplayHorizontalScrollBar = False
'вертикальные полосы прокрутки
.DisplayVerticalScrollBar = False
'закладки рабочих листов
.DisplayWorkbookTabs = False
'и в конце концов сетку с экрана
.DisplayGridlines = False
End With
End Sub

соответственно восстановить обратно - заменить False на True

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

Вопрос был задан следующий :

Кто-нибудь знает как спрятать/показать меню Excel, т.е. меню и панель инструментов, которые расположены, как правило, в верхней части окна.

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

Да, и к панелям инструментов не применим термин закрыть, по причине, отсутствия у них свойства/метода Close. Здесь, пожалуй, можно было добавить, что некоторые панели, например "Стандартная", "Форматирование" можно скрыть использовав свойство Visible = False. Однако, для скрытия панели инструментов "Строка меню листа", а именно эта панель и расположена в верхней части окна и содержит меню, свойство Visible неприменимо, именно поэтому я и использовал свойство Enabled.

Что касается второго примера, то здесь нет слов, с таким успехом можно было "дополнить" и примером, который скрывает строку состояния или даже меняет текст строки состояния, правда ни строка состояния, ни строка формул не имеют никакого отношения к панелям инструментов, но ведь это и не важно. Ещё более нужным дополнением к вопросу о скрытии меню - является скрытие сетки и нулевых значений, которые, почему-то, имеют самое прямое отношение к поставленному вопросу.

Вы знаете, как отключить контекстное меню в Excel? В этой статье будут показаны способы отключения контекстного меню не только на указанном листе, но и во всей книге.

Отключить меню правой кнопки мыши на указанном листе с кодом VBA

Удивительный! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!

Экономьте 50% своего времени и сокращайте тысячи щелчков мышью каждый день!

В этом разделе говорится об отключении контекстного меню на указанном листе с помощью метода VBA. Пожалуйста, сделайте следующее.

1. Откройте рабочий лист, для которого нужно отключить контекстное меню, щелкните правой кнопкой мыши вкладку листа и затем щелкните Просмотреть код из контекстного меню.

2. Затем Microsoft Visual Basic для приложений всплывает окно. Скопируйте и вставьте приведенный ниже сценарий VBA в окно кода.

Код VBA: отключить контекстное меню на указанном листе в Excel

3. нажмите другой + Q ключи для выхода из Microsoft Visual Basic для приложений окно.

С этого момента, когда вы попытаетесь щелкнуть правой кнопкой мыши любую ячейку этого рабочего листа, вы получите диалоговое окно Kutools for Excel, как показано ниже.

Отключить меню правой кнопки мыши во всей книге с кодом VBA

Вы также можете отключить контекстное меню во всей книге с помощью следующего кода VBA.

1. В книге вам нужно отключить контекстное меню, нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окно, пожалуйста, дважды щелкните ThisWorkbook слева Проекты под застройку панели, затем скопируйте и вставьте приведенный ниже код VBA в ThisWorkbook (Код) окно. Смотрите скриншот:

Код VBA: отключить контекстное меню во всей книге в Excel

3. нажмите другой + Q ключи для выхода из Microsoft Visual Basic для приложений окно.

С этого момента, когда вы пытаетесь щелкнуть правой кнопкой мыши любую ячейку в книге, появится диалоговое окно Kutools for Excel, чтобы напомнить вам, что контекстное меню было отключено. Смотрите скриншот:

Раскрывающийся список – удобный визуальный компонент таблиц Microsoft Excel, который часто оказывается полезным. Однако в некоторых случаях потребность в нем отпадает, и юзеры задаются вопросом об удалении списка из листа. Иногда с этим возникают проблемы, поскольку непонятно, как сразу убрать все содержимое.

В этой статье я покажу три подходящих метода, а вы сможете выбрать любой из них.

Вариант 1: Контекстное меню ячейки

Элементы управления ячейками отображаются в контекстном меню, которое можно вызвать в любое время. В нем есть пункт, отвечающий за удаление содержимого клетки, который и пригодится в тех ситуациях, когда нужно избавиться от раскрывающегося списка в Эксель. Однако учитывайте, что будет удалено даже текущее выбранное значение, поэтому запомните его или скопируйте заранее.

Выделите ячейку с раскрывающимся списком и кликните по ней правой кнопкой мыши.

Из контекстного меню выберите пункт «Удалить».

Программа предлагает несколько вариантов удаления со сдвигом. В этом случае не так важно, где ставить маркер, поэтому выберите любой параметр и подтвердите удаление.

Далее вы увидите, что содержимое ячейки полностью очищено и в ней можно написать любую функцию, число или текст. Предварительно рекомендую убедиться в том, что формат ячейки вас устраивает, поскольку математические вычисления в ее текстовом представлении невозможны.

Вариант 2: Меню «Проверка вводимых значений»

Если ранее вы самостоятельно создавали раскрывающийся список, то уже знаете, через какое именно меню это делается. Его можно использовать и для очистки данных, удалив все значения кроме выбранного. Это отличный вариант в тех случаях, когда нужно сохранить текущее число или текст в ячейке, но удалить все остальные варианты списка.

Выделите список левой кнопкой мыши, перейдите на вкладку «Данные» и откройте окно «Проверка данных».

Слева внизу вы увидите кнопку «Очистить все», которая и удаляет все выставленные условия проверки, то есть в данном случае – выпадающий список.

Теперь вы увидите, что тип данных изменился на «Любое значение» и пропала строка со значениями списка.

Вернитесь к таблице и проверьте результативность выполненных действий.

Вариант 3: Изменение типа данных в ячейке

В завершение быстро разберу вариант, связанный с предыдущим, но выполняющийся немного другим образом. Он заключается в изменении типа данных в ячейке, что автоматически удаляет выпадающий список и применяет другие необходимые значения для клетки. Используйте этот вариант, если уже знаете, какое форматирование ячейки хотите произвести.

Выделите ячейку и перейдите в «Проверка данных» точно так же, как это было показано выше.

На этот раз разверните меню «Тип данных» и установите параметр «Любое значение» или другой, в зависимости от ваших личных предпочтений.

Вернитесь к ячейке и убедитесь в том, что теперь вы можете редактировать ее содержимое требуемым вам образом.

Все действия в Microsoft Excel, как и в практически любой другой программе, можно отменить, используя комбинацию клавиш Ctrl + Z. Нажмите ее один раз, если после удаления списка вы решили, что хотите его вернуть, или забыли сохранить конкретные значения.

Детальную информацию о том, как производится создание раскрывающегося списка, вы найдете в другой статье. Она пригодится, если вдруг после удаления одного перечня вы задумали создать другой, с отличающимися или такими же значениями.

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

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

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

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

См. пример в прикреплённом файле:

Доброго времени суток! Огромное спасибо за Ваш пример, с удовольствием им пользуюсь и все работает!
Но есть один вопрос, при переходе на другую книгу Excel все восстанавливается, однако бывает момент когда панель инструментов видна но не "Зафиксирована".
Подскажите, пожалуйста, можно ли добавить в приведенный выше код алгоритм проверки: если в новой книге панель зафиксирована, то ничего не делаем, если нет, то собственно фиксируем?

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

Добрый день! Мой макрос открывает определенные листы при наборе разных паролей. При закрытии файла срабатывает Private Sub Workbook_BeforeClose(Cancel As Boolean)- скрывает все листы, кроме Стартового, защищает лист и файл паролем. Мне нужно, чтобы при закрытии он убирал и Панель Экселя. и только при открытии Паролем администратора файла (в теле основного макроса) - была видна Панель. В Private Sub добавила строку - Application.DisplayFullScreen = False. В основном модуле - Application.DisplayFullScreen = True. не работает((
Как это можно сделать? Заранее большое спасибо! Ирина

Спасибо за ответ, макрос скрытия всех элементов (написанный Вами) срабатывает , далее запускается макрос макрос формирования панели инструментов( так же Ваш) , но в конечном итоге Вкладка Надстройка не видна на ленте, т.е. Условие "При необходимости можно отображать нужную панели инструментов, в то время, как остальные панели будут скрыты" НЕ выполняется.
В ексель я соединил два макроса Скрытие панели инструментов и формирование новой панели.Есть подозрение , что В Ексель 2010 эта процедура не работает.

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

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

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

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

Спасибо, у меня (отдельно Ваш код) тоже работает. Открываю книгу и на форме жму сразу "Выход" (без создания новой книги): закрывается. Открываю другую книгу - весь интерфейс на месте. Но стоит скопировать пару (Array) листов (только значения) и вставить в новую по FileSaveAs (новая активна в этот момент), закрыть старую без сохранения (срабатывает _BeforeClose, где и сидит RestoreInterface), то остаётся новая книга без формула и статус бара. Добавлял отдельно эти строки в конце процедуры уже после закрытия старой книги- не работает.

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

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

Проверьте, - может, вы изменили или удалили эту строку?

Пользуюсь кодом без .ExecuteExcel4Macro (для 2003). Есть непонятка: если в книге со спрятанным интерфейсом (а заодно и само окно программы), но видимой формой создать новую книгу и закрыть первую книгу с возвратом всего спрятанного, то остаётся видимой новая книга, но без StatusBar и FormulaBar. Приходиться ручками ставить видимость обратно. Почему так? Решение? (новая книга без макросов). Спасибо.

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

Или хотя бы чтоб оно по умолчанию грузилось.

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

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

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

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

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

Да, спасибо, панели восстановились, правда для этого пришлось макрос переносить в новый файл. Из старого это не получалось.
Спасибо за сайт. Он очень полезен нам, не самым большим специалистам в VBA.
Возник еще один вопрос. Если из файла в котором скрыты панели и окно переименовано, например, в "Наше окно", должен запускаться еще один файл, то возврат к основному файлу в макросе вызывает ошибку. Может в обращении к новому файлу следует изменить его имя на новое "Наше окно"?

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

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

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

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

Private Sub Workbook_Open() ' открытие книги
УбратьВсё
ФормированиеПанелиИнструментов
End Sub
ВОТ ЭТА ЗАМЕЧАТЕЛЬНАЯ МЫСЛЬ! НО НЕ ПОЛУЧАЕТСЯ ОСТАВИТЬ ТОКА МЕНЮ НАДСТРОЕК, ПОЧЕМУ?

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

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

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

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

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

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

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

есть такой код на vb6

Public Sub Main()
'On Error Resume Next
'Проверяем версию Excel
Set xlApp = New Excel.Application
xlApp.Visible = True
If Val(xlApp.Version) <> 14 Then
MsgBox "Необходим Excel-2010"
xlApp.Quit
Set xlApp = Nothing
Exit Sub
End If

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

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

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

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

Сайт очень полезный и информативный!

Отличный макрос! Разработчику респект! Есть только один недостаток. При переходе с одного листа открытой книги на другой, а потом возврат на предыдущий - в верхней части экрана под заголовком окна появляется странная полоса. После выполнения последовательно макросов ВосстановитьИнтерфейс, УбратьВсё полоса пропадает, а потом снова появляется. Кроме того в Таблице настройки панелей инструментов появляется странное пустое окно выбора панели (без наименования, удалить которое невозможно. Можете что-либо прояснить по данному багу.

С уважением
Вадим

а можно проще, если надо только скрыть панели

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

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

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

Добрый день! Продолжаем знакомство с программой Excel 2010. На очереди Главная лента меню.

Среда Excel

Лента и Панель быстрого доступа – те места, где вы найдете команды, необходимые для выполнения простых задач в Excel. Если вы изучали Excel 2007, то увидите, что основным отличием в Ленте Excel 2010 является расположение таких команд, как Открыть и Печать во всплывающем меню.

Лента

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

Чтобы настроить Ленту:

Вы можете настроить Ленту , построив свои личные вкладки с необходимыми командами. Команды всегда располагаются в группе. Вы можете построить так много групп, как вам удобно. Более того, вы можете добавлять команды на вкладки, которые встречаются по умолчанию, при условии, что вы создадите для них группу.

1. Кликните по Ленте правой кнопкой мыши и найдите Настройка ленты. Раскроется диалоговое окно.

2. Нажмите Новая вкладка . Будет создана новая вкладка с новой группой внутри.

3. Убедитесь, что выбрана новая группа.

4. В списке слева выберите команду и нажмите Добавить. Вы также можете просто перетащить команду в группу.

5. Когда вы добавите все нужные команды, нажмите OK.

Если у вас не получается найти нужную команду, кликните по выпадающему списку Выбрать команды и выберите Все команды.

Чтобы свернуть и развернуть Ленту:

Лента призвана оперативно реагировать на ваши текущие задачи и быть легкой в использовании. Тем не менее, вы можете ее свернуть, если она занимает слишком много экранного пространства.

1. Кликните по стрелке в правом верхнем углу Ленты , чтобы ее свернуть.

2. Чтобы развернуть Ленту кликните по стрелке снова. Когда лента свернута, вы можете временно ее отобразить, нажав на какую-либо вкладку. Вместе с тем, лента снова исчезнет, когда вы прекратите ее использоват ь.

Когда лента свернута, вы можете временно ее отобразить, нажав на какую-либо вкладку. Вместе с тем, лента снова исчезнет, когда вы прекратите ее использовать.

В следующем уроке рассмотрим Панель быстрого доступа, не пропустите!

Читайте также: