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

Почему это происходит? Скорее всего Вы открыли чью-то книгу, в которой был расположен код Visual Basic for Application(VBA). А код как раз отключал показ меню. Или Вы только начали изучать VBA и сами выполнили по незнанию подобный код. И как же теперь вернуть себе свои меню? Очень просто. Надо всего лишь выполнить приведенный ниже код:

Sub Reset_MenuBars()
    Dim cmdBar As Object
    On Error Resume Next
    For Each cmdBar In Application.CommandBars
        cmdBar.Enabled = True: cmdBar.Reset
    Next cmdBar
End Sub

Как применить код: переходим в редактор VBA(Alt+F11) -Insert -Module. В созданный стандартный модуль вставляем коды выше. Выполнить код, нажав прямо в там же F5. Или можете скачать приложенный файл и просто нажать кнопку. Макросы должны быть разрешены.

Скачать пример

  Tips_Macro_ResetBars.xls (48,0 КиБ, 4 157 скачиваний)

Так же см.:
Почему не работает макрос?

4 комментария

  1. Огромное спасибо!
    Всё просто и красиво, два клика мыши и уже все работает. Сам бился с этой проблемой почти полдня, а ларчик так просто открывается.
    Ещё раз СПАСИБО!

  2. У меня каким-то образом пропали фильтры в таблице с заголовками
    Тоесть сама таблица есть, есть строка заголовков, а стрелок фильтров нет!
    Причем это только на одном листе, на остальных листах все было в порядке.
    Но как они внезапно исчезли, также внезапно и появились на след день, хотя до этого перезапускал несколько раз.

Добавить комментарий

Этот сайт использует Akismet для борьбы со спамом. Узнайте, как обрабатываются ваши данные комментариев.