Не работают/пропали меню

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

Почему это происходит? Скорее всего Вы открыли чью-то книгу, в которой был расположен код 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 KiB, 4 044 скачиваний)

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

    Видеоуроки

Поиск по меткам