Не работают/пропали меню
Встречался я пару раз с ситуацией, когда у человека отсутствовало меню по правому клику мыши. Или по правому клику мыши на ярлычке листа. Т.е. щелкнули по ячейке, чтобы допустим поменять формат или скопировать и ничего не произошло. Вообще ничего. Меню не появилось. Или лист захотели добавить, но опять же по щелчку мыши никакого меню не появилось. Это неудобно. Очень неудобно. Или может быть просто пропали какие-то важные пункты меню, которые были раньше, но чудесным образом испарились или стали вдруг неактивными...
Почему это происходит? Скорее всего Вы открыли чью-то книгу, в которой был расположен код 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 скачиваний)
