MyTetra Share
Делитесь знаниями!
Не работают/пропали меню
16.03.2019
23:43
Текстовые метки: CommandBars
Раздел: !Закладки - VBA - Excel

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

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

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


1

2

3

4

5

6

7

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, 2 240 скачиваний)

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования