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

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

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

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

код  необходимо вставить в стандартный модуль и выполнить(нажав прямо в редакторе F5). Или можете скачать приложенный файл и просто нажать кнопку. Макросы должны быть разрешены.

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