Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как устркнить конфликт макросов?
 
#1
03.10.2010 16:42:21
Доброго, доброго всем воскресного дня!  
Ребята! Не пойму причину ковфликта макросов.  
Например, макрос СкрытьПоказатьПанели не срабатывает на нажатие клавиши ESCAPE.Хотя должен.  
И кроме того, макрос СписокЛистов в рабочем файле, не выводит строку в контекстное меню.  
С ув. Муля!
 
 
 
#2
03.10.2010 16:56:26
Муля вот так:  
Private Sub Workbook_Open()  
УбратьВсё  
'On Error Resume Next  
' Application.CommandBars("Cell").Controls.Item("Листи").Delete  
'Inic  
   Application.OnKey "{ESCAPE}", "ПереключитьРежим"  
 
End Sub  
А Private Sub Workbook_OpenPanel() удалите нахрен. Не, ну пора уже чему-то научиться.
Я сам - дурнее всякого примера! ...
 
 
 
#3
03.10.2010 17:04:04
Точней так:  
Private Sub Workbook_Open()  
УбратьВсё  
'On Error Resume Next  
' Application.CommandBars("Cell").Controls.Item("Листи").Delete  
Inic  
Application.OnKey "{ESCAPE}", "ПереключитьРежим"  
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#4
03.10.2010 17:20:58
Ув.Сергей!  
Ругается на строке Private Sub Workbook_Open(). А когда заменил на Private Sub Workbook_OpenPanеl()Клавиша Esc все равно не работает.  
И ещею В режиме На весь экран не работает контекстное меню.
 
 
 
#5
03.10.2010 17:40:41
{quote}{login=}{date=03.10.2010 05:20}{thema=}{post}Ув.Сергей!  
Ругается на строке Private Sub Workbook_Open(). А когда заменил на Private Sub Workbook_OpenPanеl()Клавиша Esc все равно не работает.  
И ещею В режиме На весь экран не работает контекстное меню.{/post}{/quote}  
Я ща вспылю. Не надо менять на Workbook_OpenPanеl(). Нет у книги такого события. Оно не выполнится никогда(если его принудительно не выполнят. У меня не ругается на Private Sub Workbook_Open(). См. файл.
Я сам - дурнее всякого примера! ...
 
 
 
#6
03.10.2010 18:48:07
Сергей!  
Кажется я понял почему у меня не функциклировало. А с вашей помощью все работает так , как и надо.  
И еще , пожалуйста, сделайте мне чтобы контекстное меню, вызывалось мышкой в обоих режимах. Если вам не трудно.  
Заранее спасибо!
 
 
 
#7
03.10.2010 19:16:31
Так что-ли?
Я сам - дурнее всякого примера! ...
 
 
 
#8
03.10.2010 20:21:13
Не а!  
Меню не работает нигде. И ДАЖЕ В НОВОЙ КНИГЕ.  
рУГАЕТСЯ НА СТРОКЕ : .Caption = IIf(Value = True, .Parent.Name, "")
 
 
 
#9
03.10.2010 20:31:23
У меня работает. Сейчас свой пост открыл - все работает! Но. Так как Вы чудите в макросах - неудивительно. Давайте попросим зрителей открыть мой файл и отписаться.
Я сам - дурнее всякого примера! ...
 
 
 
#10
03.10.2010 20:41:25
Скачал, открыл, ПКМ - меню. Вижу смешной пункт - Листи. Нажал - появилась форма ядовито-зелёного цвета. Кто так раскрасил? Убил бы...
 
 
 
#11
03.10.2010 20:42:50
Спасибо, Юрий.
Я сам - дурнее всякого примера! ...
 
 
 
#12
03.10.2010 20:52:59
ESCAPE работает, форма и правда чудная:) расцветка.  
раньше было модно еще "бегущих муравьев" добавлять.  
KuklP, не Вы ли вспомнили молодость?  
Правда потом глазки болят:(
 
 
 
#13
03.10.2010 20:56:44
{quote}{login=Igor67}{date=03.10.2010 08:52}{thema=}{post}ESCAPE работает, форма и правда чудная:) расцветка.  
раньше было модно еще "бегущих муравьев" добавлять.  
KuklP, не Вы ли вспомнили молодость?  
Правда потом глазки болят:({/post}{/quote}  
Игорь, Боже упаси. Вся Планета знает о моей нетерпимости к "красивостям". Это Мулино ваяние.
Я сам - дурнее всякого примера! ...
 
 
 
#14
03.10.2010 20:56:54
Для начала.  
Ув. Юрий! Я такой "комсомолец"! Стреляйте!!!!!!  
Но дело сейчас не в цвете.  
Сергей! на сей раз, я еще ничего не успел сделать. Просто сначала запустил ваш файл с Интернета. Файл выдал окно-сообщение об ошибке.  
ПОТОМ СКАЧАЛ НА ДИСТ. СНАЧАЛА МЕНЮ ЗАРАБОТАЛО, А ПОТОМ ИСЧЕЗЛО ВЕЗДЕ.И в новых книгах тоже.
 
 
 
#15
03.10.2010 21:01:03
Муля, Вы не поняли? Уже двое отписались и у них все работает. Как уж Вы там курочите систему, одному Вам известно. Я пас.  
И... Игорь, и Вам спасибо.
Я сам - дурнее всякого примера! ...
 
 
 
#16
03.10.2010 21:15:40
Ну вот, пришел поручик... и т.д.
Я сам - дурнее всякого примера! ...
 
 
 
#17
03.10.2010 21:48:54
СЕРГЕЙ!  
ПРОСТИТЕ МЕНЯ ради Бога!  
Я ж вас ни в чем не обвиняю. Просто описываю, как ведет себя тот или иной файл.  
С ув. Муля!
 
 
 
#18
03.10.2010 21:55:08
Дык, я Вас ни в чем и не винил...
Я сам - дурнее всякого примера! ...
 
 
 
#19
03.10.2010 22:04:08
Ну я рад, что все так происходит. То есть, без всяких обид. Ведь это всего-навсего, рабочий момент,и от всяких там казусов, никто не застрахован. Может по незнанию я че то не то зделал раньше.  
А теперь, может кто подскажет, где смотреть, куда это меню девалось?  
Может какая то библиотека отключилась.  
Чистка файловой системы и Найти и устранить, ничего не дали.
 
 
 
#20
03.10.2010 22:37:17
Да! Действительно, эо моя вина.  
Дело в том, что я конечно же стал переносить макросы Сергея у свой рабочий файл, и вот после этого все и случилось.  
Сейчас удалил их, и все работает.  
И файл Сергея тоже работает нормально.  
Попробую еще раз перенестьи.
 
 
 
#21
03.10.2010 23:21:29
Ну что за херня!  
В файле Сергеяч работает правильно. А вот переношу эти же макросы (без всяких изменений) в рабочую книгу, и снова не то.  
Вот сейчас, все кнопки работают, меню вызывается. Но когда нажимаю на кнопки Листи или на пункт меню Листи, одновременно с выпадением окна Виконання операцыъ з листами , происходит переход на другой режим.
 
 
 
#22
04.10.2010 11:56:25
Добрый день!  
 
"Но когда нажимаю на кнопки Листи или на пункт меню Листи, одновременно с выпадением окна Виконання операції з листами , происходит переход на другой режим.  
Наконец то нашел причину.  
Дмитрий! Вот эта вот строка: ChangeInterface Not Application.DisplayStatusBar в макросе Start() и выполняла это ненужное действие.  
И в какое место макроса Private Sub Workbook_BeforeClose(Cancel As Boolean)нужно вставить доп. строку : Application.OnKey "{ESCAPE}" , не знаю.  
Но и без нее вроди все работает.  
Всем большое спасибо за помощь и участие в обсуждении, а ув. Сергею (земляку) НАИБОЛЬШЕЕ СПАСИБИЩЕ!
 
 
 
Страницы: 1
Читают тему
Наверх