Нет команд меню в excel 2003

VBA и макросы
26.11.2013 6226

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

Excel имеет долгую историю, и он продолжает развиваться и меняться. Следовательно, советы, приведенные здесь, не обязательно распространяются на все версии Excel. В частности, пользовательский интерфейс для Excel 2007 (и позднее), сильно отличается от своих предшественников. Таким образом, команды меню, используемые в старых версиях Excel, могут не соответствовать пользовательскому интерфейсу Excel 2007 (и более поздних версий).

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub MakeOldMenus()
   Dim cb As CommandBar
   Dim cbc As CommandBarControl
   Dim OldMenu As CommandBar
 
' Удалите его, если он существует
   On Error Resume Next
   Application.CommandBars("Old Menus").Delete
   On Error GoTo 0
 
' Создаем панель инструментов в старом стиле
' Установите последний аргумент для более компактного меню
   Set OldMenu = Application.CommandBars.Add("Old Menus", , True)
 
' Скопируйте кнопки управления из "Встроенные меню" контекстного меню в Excel
   With CommandBars("Built-in Menus")
     .Controls("&File").Copy OldMenu
     .Controls("&Edit").Copy OldMenu
     .Controls("&View").Copy OldMenu
     .Controls("&Insert").Copy OldMenu
     .Controls("&Format").Copy OldMenu
     .Controls("&Tools").Copy OldMenu
     .Controls("&Data").Copy OldMenu
     .Controls("&Window").Copy OldMenu
     .Controls("&Help").Copy OldMenu
   End With
 
' Сделаем его видимым. Это отображается на вкладке Надстройки
   Application.CommandBars("Old Menus").Visible = True
End Sub

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

Как вернуть в Excel меню из Office 2003

Как вернуть в Excel меню из Office 2003

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

По теме

Новые публикации

Как настроить и добавить в программе Excel и Word кнопки панели быстрого доступа: отменить (назад), повторить (вперёд), орфография, просмотр и печать, быстрая печать, сортировка и др.

Рассмотрим настройку кнопок панели быстрого доступа в старых версиях Excel и новых.

Включение и настройка панели быстрого доступа в новом Excel

После недавнего автоматического обновления (ноябрь 2021) операционной системы и программы Excel, может показаться, что пропали кнопки для частого использования: отменить (назад), повторить (вперёд), просмотр и печать, быстрая печать и т.п..

На самом деле, их переместили и расположили под лентой.

кнопки быстрого доступа Excel 2019 под лентой
Панель быстрого доступа под лентой Excel 2019

Если панели нет и внизу, то вы можете её включить двумя способами. Нажмите в самом верху правой кнопкой мыши на дискетку и нажмите «Показать Панель быстрого доступа«. Либо зайдите в параметры «Файл > Параметры». Слева откройте вкладку «Панель быстрого доступа», справа включите чекбокс «Показать Панель быстрого доступа».

параметры Excel - панель быстрого доступуа
Настроить Панель быстрого доступа

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

Разместить панель быстрого доступуа над лентой

Теперь кнопки программы Excel: Создать, Сохранить, Быстрая печать, Просмотр и печать, назад, вперёд на своём привычном для вас месте! Нажав правее кнопку «треугольник с чертой» можно добавить или убрать дополнительные команды. Нажав «Другие команды» список команд будет больше.

Панель быстрого доступа над лентой Excel 2019
Панель быстрого доступа над лентой Excel 2019

Вам может быть интересно:
Лучшие кабеля для зарядки смартфона и планшета с AliExpress



Включение и настройка панели быстрого доступа в старом Excel 2007 (Word)

В старой версии Microsoft Office Excel 2007 кнопки панели быстрого доступа включены всегда. Они также могут размещаться, как над лентой, так и под лентой.

Нажмите правой кнопкой мыши на любую область панели быстрого доступа (либо на треугольник с чертой) и нажмите «Разместить панель быстрого доступа над лентой».

Разместить панель быстрого доступуа над лентой Excel 2007
Панель быстрого доступа под лентой Excel 2007

Теперь кнопки программы Excel 2007: Создать, Сохранить, Быстрая печать, Просмотр и печать, назад, вперёд на своём привычном для вас месте!

панель быстрого доступа над лентой Excel 2007
Панель быстрого доступа над лентой Excel 2007

Нажав на кнопку «Office» в левом верхнем углу и выбрав «Параметры Excel» можно добавить на панель быстрого доступа больше команд.

параметры Excel 2007
параметры Excel 2007

Нажав правее кнопку «треугольник с чертой» можно быстро добавить или убрать дополнительные команды. Нажав «Другие команды» список команд будет больше.

Добавление кнопок панели быстрого доступа в Excel 2007 SP3
Добавление кнопок в Excel 2007

Рекомендуемый нами минимальный набор кнопок:

  • Создать
  • Отменить (назад)
  • Вернуть (вперёд)
  • Предварительный просмотр
  • Быстрая печать
  • Сортировка.

В программах «Word», «Outlook», «PowerPoint» и других, данные панели настраиваются аналогичным способом.

На этом всё!


Если в Excel вдруг пропала лента меню, это можно объяснить двумя возможными причинами. В лучшем случае она была случайно свернута. Теперь чтобы снова развернуть ее в Excel  2007 вам нужно нажать в верхней левой части экрана на маленькую стрелочку в строке Excel. Это откроет настройки Панели быстрого доступа, где, возможно, у вас активирована опция «Свернуть ленту».

Как восстановить исчезнувшую ленту в ExcelСнова нажмите на эту команду, и лента будет восстановлена. В Excel 2016 опция включения/отключения ленты находится в правой верхней части меню. Нажмите на маленькую кнопку «Параметры отображения ленты» и в появившемся меню выберите «Показывать вкладки и команды».

Как восстановить исчезнувшую ленту в Excel

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

Если данный способ не помог, то причиной ошибки могут быть неправильные настройки Excel. Закройте все программы и проверьте с помощью менеджера задач, все ли офисные службы завершены.

Теперь найдите файл «com.microsoft.Excel.prefs.plist», который обычно находится в папке «Preferences | Office XXXX». Перетяните мышкой этот файл на рабочий стол и заново запустите Excel. Если программа снова работает корректно, удалите файл.

Если вы и после этих действий не можете вернуть ленту Excel, вам следует полностью переустановить Microsoft Office.

Фото: компании-производители

пропажа пункта меню

Uralan

Дата: Пятница, 16.12.2011, 11:12 |
Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 36


Репутация:

0

±

Замечаний:
0% ±


Добрый день! В excel 2003, там где файл-правка-вид…. вот пропала кнопка файл, т. е. начинается с «правки»! Я так и не понял где это найти и как это исправить… Спасибо!

 

Ответить

Uralan

Дата: Пятница, 16.12.2011, 12:10 |
Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 36


Репутация:

0

±

Замечаний:
0% ±


_Boroda_, а если можно поподробнее… попробуйте удалить и вернуть обратно пункт меню «файл».

 

Ответить

_Boroda_

Дата: Пятница, 16.12.2011, 12:21 |
Сообщение № 3

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16618


Репутация:

6465

±

Замечаний:
0% ±


2003; 2007; 2010; 2013 RUS

У меня 2010
Смогу только дома.
Может, у кого сейчас есть перед глазами.
Если примерно, как помню, то где-то так: Сервис — Параметры, во 2-й вкладке появившегося окна, в левом поле ищете (где-то в самом низу) пункт «Меню» (не помню точно, так ли называется, но что-то в этом роде), топаете на него мышой, в правом поле появляется список пунктов, хватаете левой мышой слово «Файл» и тянете его куда нужно.

Да, конечно — сервис — настройка (а не параметры)


Скажи мне, кудесник, любимец ба’гов…
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

 

Ответить

Uralan

Дата: Пятница, 16.12.2011, 13:11 |
Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 36


Репутация:

0

±

Замечаний:
0% ±


_Boroda_, Вы, наверное, имеете ввиду сервиснастройки. Там есть такое, но слово файл не двигается и не изменяется, я его не могу удалить либо передвинуть вот этот пункт «файл»! А вот у пользователя вот этого слова нет ни в настройках, ни в меню наверху! попросту нечего дополнять! Только правка, вид….

 

Ответить

Uralan

Дата: Пятница, 16.12.2011, 14:29 |
Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 36


Репутация:

0

±

Замечаний:
0% ±


_Boroda_, потом посмотрите, пожалуйста… спасибо!

 

Ответить

Jhonson

Дата: Пятница, 16.12.2011, 14:42 |
Сообщение № 6

Группа: Друзья

Ранг: Ветеран

Сообщений: 514

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


«Ничто не приносит людям столько неприятностей, как разум.»

 

Ответить

Uralan

Дата: Пятница, 16.12.2011, 15:57 |
Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 36


Репутация:

0

±

Замечаний:
0% ±


Jhonson, Супер! как это я не догадался… Я уже говорил, спасибо!?

 

Ответить

 

Здравствуйте. В меню «Вставка-Имя» случайно удалил команду «Присвоить». В настройках не могу никак найти этой команды, чтобы вернуть на место. Что можно предпринять?

 

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

Попробуйте: Сервис — Настройка — Встроенные меню — Вставка. И перетащите его в строку главного меню. Старую «Вставку» удалите, а новую переместите в привычное место.

 

KuklP

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

Как можно «случайно» удалить? Я попробовал — не получилось.

Я сам — дурнее всякого примера! …

 

{quote}{login=Юрий М}{date=18.01.2012 02:52}{thema=}{post}Попробуйте: Сервис — Настройка — Встроенные меню — Вставка. И перетащите его в строку главного меню. Старую «Вставку» удалите, а новую переместите в привычное место.{/post}{/quote}  
Пробовал, не помогает. В новой этой команды тоже нет.

 

KuklP

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

Мой способ пробовали?

Я сам — дурнее всякого примера! …

 

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

А каким способом Вы её удалили?

 

{quote}{login=KukLP}{date=18.01.2012 02:54}{thema=}{post}Как можно «случайно» удалить? Я попробовал — не получилось.{/post}{/quote}  
Как оказалось — очень просто. Встал через основное меню мышкой на эту команду, зажал левой кнопкой и перетащил на панель «форматирования». Просто пропала. Ни на панели, ни в меню.  
«Сброс» на Вашем рисунке положительного результата не дал. Зато идея правильная!  
Помог сброс в другом месте. См. аттач.  СПАСИБО!!! Проблема решилась.

 

KuklP

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

Гы:-) Это конечно «случайно»… Я бы с грибами поаккуратней…:-)

Я сам — дурнее всякого примера! …

 

{quote}{login=KukLP}{date=18.01.2012 03:24}{thema=}{post}Гы:-) Это конечно «случайно»… Я бы с грибами поаккуратней…:-){/post}{/quote}  
Зато приобретен новый положительный опыт. :) А перетаскивал на панель для ускорения процесса. Присваивать имена приходится часто. Каждый раз заходить в 2 подменю, чтоб добраться до команды… долго. В меню или на панель вывести не получается. Нет ли других вариантов?

 

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

Есть — перетащить, как это и задумано, из мастера настройки.

 

{quote}{login=Юрий М}{date=18.01.2012 05:51}{thema=}{post}Есть — перетащить, как это и задумано, из мастера настройки.{/post}{/quote}  
В мастере настройки нашел только подменю «Имя». Для команды «Присвоить» отдельной кнопки не нашел.

 

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

Ну и разместите её или в строке главного меню или на панели инструментов — там и получите «Присвоить»

 

{quote}{login=Юрий М}{date=18.01.2012 06:35}{thema=}{post}Ну и разместите её или в строке главного меню или на панели инструментов — там и получите «Присвоить»{/post}{/quote}  
Так я уже и сделал. Это облегчило жизнь ровно наполовину. :) Искал именно кнопку, но ее, как видно, нету. :(

 

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

Так ведь и раньше доступа (в один клик) к «Присвоить» не было. Или не так?

 

{quote}{login=Юрий М}{date=18.01.2012 06:43}{thema=}{post}Так ведь и раньше доступа (в один клик) к «Присвоить» не было. Или не так?{/post}{/quote}  
Так, так. Потому и проблемка с этого началась — искал методом тыка.

 

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

Тогда нужно писать свой макрос и вызывать этот диалог :-)

 

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

На худой конец использовать Ctrl+F3

 

{quote}{login=Юрий М}{date=18.01.2012 06:52}{thema=}{post}Тогда нужно писать свой макрос и вызывать этот диалог :-){/post}{/quote}  
Это для меня пока сложновато, VBA еще не осилил. А с помощью мастера записи макросов это не получается. Высвечивается диалоговое окно для ввода имен (а они понятно разные) и пока его не закроешь остановить запись невозможно.

 

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

 

{quote}{login=Юрий М}{date=18.01.2012 06:53}{thema=}{post}На худой конец использовать Ctrl+F3{/post}{/quote}  
А вот это уже интереснее. :) Не знал. СПАСИБО!!!

 

KuklP

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

Макрос:  
Public Sub www()  
Application.Dialogs(xlDialogDefineName).Show  
End Sub

Я сам — дурнее всякого примера! …

 

Guest

Гость

#22

18.01.2012 19:28:34

{quote}{login=KukLP}{date=18.01.2012 07:13}{thema=}{post}Макрос:  
Public Sub www()  
Application.Dialogs(xlDialogDefineName).Show  
End Sub{/post}{/quote}  
СПАСИБО!!! Работает. :)

Понравилась статья? Поделить с друзьями:
  • Нет колонтитулов в word 2016
  • Нет колонтитулов в word 2007
  • Нет кодировки utf 8 в excel
  • Нет кнопки формула в word 2010
  • Нет кнопки формат в word