Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Пропало контекстное меню
 
#1
25.07.2016 13:12:34
В пятницу экспериментировал с разными вариантами создания своего меню, запускал разные коды стянутые с разных сайтов, а сегодня обнаружил, что пропало контекстное меню - никакой реакции на правую кнопку. Если запустить код:
Код
    For Each CstmBar In CommandBars
        CstmBar.Enabled = True
    Next CstmBar
то всё восстанавливается. Но стоит закрыть Excel и открыть новый файл, то опять исчезают все контекстные меню.
Самое обидное, что не знаю после какого кода оно пропало.
Подскажите пожалуйста как вернуть контекстные меню.
Не стреляйте в тапера - он играет как может.
 
 
 
#2
25.07.2016 13:21:11
http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=14020
 
 
 
#3
25.07.2016 13:31:14
Апострофф, эти команды я проверил ещё до обращения на форум. Восстанавливают только до завершения работы excel.
Не стреляйте в тапера - он играет как может.
 
 
 
#4
25.07.2016 14:02:58
Вот после такого дополнения кода восстановились все контекстные меню и не пропадают после закрытия excel:
Код
    On Error Resume Next
    For Each CstmBar In Application.CommandBars
        CstmBar.Reset
        CstmBar.Enabled = True
    Next CstmBar
Вот только непонятно почему без On Error... выдаёт ошибку на строке CstmBar.Reset, значит эта строка не выполняется, но без неё меню восстанавливаются только на текущий сеанс.
Не стреляйте в тапера - он играет как может.
 
 
 
#5
25.07.2016 22:23:19
Цитата
Ts.Soft написал:
почему без On Error... выдаёт ошибку на строке CstmBar.Reset
а может проверить пошагово - на всех ли CommandBars это происходит? Или ошибка только на некоторых? Плюс, наверное, правильнее поменять строки местами:
Код
For Each CstmBar In Application.CommandBars
        CstmBar.Enabled = True
        CstmBar.Reset
Next CstmBar
т.е. сначала делаем доступным CommandBar, а уже после - сбрасываем.
Изменено: The_Prist - 25.07.2016 22:23:28
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
Страницы: 1
Наверх