Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Курилка
Страницы: 1
RSS
Не работает правая кнопка мыши при назначении макроса
 
#1
10.07.2019 22:37:53
Доброго времени суток.
Столкнулся с такой проблемой. Создал тест файл ,нарисовал кнопку ,а назначить макрос не получается. Нажимаю правой клавишей ,а результата нет.
Тоже самое если нужно удалить лист,просмотр кода,цвет ярлычка.
Контекстное меню отображается. Excel 2013/
 
 
 
#2
11.07.2019 02:13:24
VBA может быть как не установлен, так и установлен, но отключен, вот ссылка:
Determining if VBA is Installed and Enabled in Microsoft Office
Попробуйте добавить на ленту вкладку "Разработчик": Файл - Параметры - Настроить ленту - справа в списке "Основные вкладки" установить флажок "Разработчик" - OK
Изменено: ZVI - 11.07.2019 02:24:45
 
 
 
#3
11.07.2019 06:37:37
ZVI, благодарю за помощь.
Флажок "Разработчик"-установлен. VBA включен все кнопки активны. Перед этим было такое ,что контекстное меню не отображалось. Я на форуме нашел код .Запустил -меню появилось . А тут пришлось написать макрос протестировать,а назначить не могу. Запускаю через редактор VBA.
Вот код :
Код
Sub Макрос1()   
   'для Excel 2007   
   With CommandBars("Cell")   
       .Reset   
       .Enabled = True   
   End With   
End Sub
Изменено: Logistic - 11.07.2019 06:41:06 (добавил код)
 
 
 
#4
11.07.2019 07:55:58
CommandBars("Cell")  - это меню для ячейки. Таких много более 100, попробуйте CommandBars("Excel Control")
или ищите нужнsq получив список.
Код
Sub CBList()
For Each cb In CommandBars
    Debug.Print cb.Name
Next
End Sub

Возможно в вашем случае просто достаточно все разрешить (рэсетить или нет - тут Ваш выбор)
Код
Sub test()
For Each cb In CommandBars
    cb.Enabled=True
Next
End Sub
Изменено: БМВ - 11.07.2019 07:56:12
По вопросам из тем форума, личку не читаю.
 
 
 
#5
11.07.2019 08:38:49
БМВ спасибо.Завтра протестирую и отпишусь.
 
 
 
#6
11.07.2019 15:48:03
Здравствуйте, коллеги!
Есть еще радикальный черный цвет способ вернуть исходный вид сразу всем меню. Найти и удалить файл Excelxx.xlb (xx соответствует номеру версии, например, 15 для Excel 2016) в папке %appdata%\microsoft\excel.
Изменено: sokol92 - 11.07.2019 15:51:44
Владимир
 
 
 
#7
12.07.2019 22:11:53
БМВ, запустил Ваш код второй и все заработало. Спасибо!!! :D
sokol92,ваш вариант не  испытывал. Боюсь в дебри залазить,что бы не наломать дров. За помощь благодарен :) .
 
 
 
#8
13.07.2019 17:44:10
Успехов! Мой вариант для случая, когда даже переустановка Excel не помогает...
Владимир
 
 
 
Страницы: 1
Наверх