Пока макрос работает, чтоб висело окон с текстом "Руки ФУ!"

Пользователь

Сообщений: 950 Регистрация: 01.01.1970

01.09.2008 12:25:32

:-)
коллеги, добрый день!
не подкините буковок, что в коде надо дописать-прописать, чтобы пока он работает (а это долго), чтоб поперек экрана висело здоровенное окно яркого цвета и режущими глаза буквами- "руки убери от компа! макрос еще работает!"
и чтоб юзера током било, если он хочет на крестик тыкнуть или кнопку ескейп нажать :-)

ну или что-то в этом духе :-)

** ТУРБО-ЁЖ ** *ЕХСЕL@ХАКЕР.RU* ==============

Гость

01.09.2008 12:41:41

Добрый день!

Игнорируем ввод:
Application.EnableCancelKey = 0
Не забываем вернуть:
Application.EnableCancelKey = 1

Для пользовательской формы есть событие UserForm_Terminate, где при её закрытии выполняем какое-либо действие, например:
Shell ("Душещипательная_картинка_с_диким_воплем")

mazayZR

Пользователь

Сообщений: 950 Регистрация: 01.01.1970

01.09.2008 12:48:18

забавный эффект от этих магических строчек
Application.EnableCancelKey = 0
Application.EnableCancelKey = 1

книго еще не открылось, тыкаешь в крестик, она по-тихому продолжает открываться... а потом так же тихо закрывается
:-)

(не забываем, что в макросах мазаи не сильны ваще)

может картинко повесим на экран?
что надо для этого написать в начале кода, а что в конце, чтобы картинко убрать?
низко кланяюсь и благодарю (заранее)
:-)

** ТУРБО-ЁЖ ** *ЕХСЕL@ХАКЕР.RU* ==============

Гость

01.09.2008 12:54:28

{quote}{login=mazayZR}{date=01.09.2008 12:48}{thema=}{post}
что надо для этого написать в начале кода, а что в конце, чтобы картинко убрать?{/post}{/quote}

В начале:
Shell ("""" & Application.Path & "\OIS.EXE"" """ & ActiveWorkbook.Path & "\Картинки\РукиФУ.jpg" & """")

В конце:
Shell ("tskill ois")

Юрий М

Гость

01.09.2008 13:06:27

Мазай, а что если совместить "приятное с полезным": привинтить прогрессбар а на форму ещё добавить неприличную надпись? И ход процесса отображается, и грозное напоминание висит (можно ещё и картинку соответствующую неприличной надписи).

mazayZR

Пользователь

Сообщений: 950 Регистрация: 01.01.1970

01.09.2008 13:08:59

мдя...
во-первых, я эти волшебные строки вставил не в тот код :-)
во-вторых, они (уже в нужном коде), работаеют хорошо и как надо

в-третьих, дебургер раскрашивает желтеньким эту строчку
Shell ("tskill ois")
и пишет ран тайм ерор 53
файл нот фаунд.
перед этим пытается запустить пикчер менеджер (ну чтоб картинку из той же папки, где рабочая книга, показать).
и ни шиша
:-)
пожалуй закончим, магические строчки
Application.EnableCancelKey = 0
Application.EnableCancelKey = 1
вполне справляются с поставленной задачей
спасибо!

mazayZR

Пользователь

Сообщений: 950 Регистрация: 01.01.1970

01.09.2008 13:10:49

{quote}{login=Юрий М}{date=01.09.2008 01:06}{thema=}{post}Мазай, а что если совместить "приятное с полезным": привинтить прогрессбар а на форму ещё добавить неприличную надпись? И ход процесса отображается, и грозное напоминание висит (можно ещё и картинку соответствующую неприличной надписи).{/post}{/quote}
Юрий, я не зря сказал, что мазаи в макросах так себе весьма ;-)
мнеб тогда готовый кусочек мёда, то есть кода
а я его бы и прикрутил :-)

Юрий М Гость	#8 01.09.2008 13:11:32 Ща сброшу образцы

Юрий М Гость	#9 01.09.2008 13:13:45 Вот три штуки. Нужна ли помощь доработать форму? Прикрепленные файлы post_29616.rar (51.38 КБ)

** ТУРБО-ЁЖ ** *ЕХСЕL@ХАКЕР.RU* ==============

Гость

#10

01.09.2008 13:35:04

{quote}{login=mazayZR}{date=01.09.2008 01:08}{thema=}{post}дебургер раскрашивает желтеньким эту строчку
Shell ("tskill ois")
и пишет ран тайм ерор 53
файл нот фаунд.{/post}{/quote}
А картинка открыта перед окрашиванием в жёлтый? Попробуйте строки, указанные в кавычках, пощёлкать в консоли cmd. Может от Винды зависеть, наверно:
Shell ("taskkill ois")
Shell ("taskkill ois.exe")
Или также с полным путём к ois, или какой там у вас просмотрщик?

На крайняк:
SendKeys "%{F4}" 'Alt+F4

Способ с левыми прогами через Пуск -> Выполнить (Shell) хорош тем, что пользователю, кроме картинки, можно показывать экранную заставку или мультики, пока Ваш тягомотный макрос выполняет свои задачи :)

mazayZR

Пользователь

Сообщений: 950 Регистрация: 01.01.1970

#11

01.09.2008 13:53:00

{quote}{login=Юрий М}{date=01.09.2008 01:13}{thema=}{post}Вот три штуки. Нужна ли помощь доработать форму?{/post}{/quote}
- создать юзер форму с "червяком"
- в начало (?) макроса, который должен показывать эту картинку, вставить "Call UpdateProgress(PctDone)"
- и в модуль этот код?

Sub UpdateProgress(Pct)
With UserForm1
.FrameProgress.Caption = Format(Pct, "0%")
.LabelProgress.Width = Pct * (.FrameProgress.Width - 10)
.Repaint
End With
End Sub

так?
что не так? ибо ругается на нуль или еще какую фигню...

mazayZR Пользователь Сообщений: 950 Регистрация: 01.01.1970	#12 01.09.2008 16:35:49 ну надо... :-) и ведь ни одна живая душа в "Приемы" не послала... а там готовый ответ (ну почти готовый) http://www.planetaexcel.ru/tip.php?aid=100

** ТУРБО-ЁЖ ** *ЕХСЕL@ХАКЕР.RU* ==============

Гость

#13

01.09.2008 16:54:49

{quote}{login=mazayZR}{date=01.09.2008 04:35}{thema=}{post}а там готовый ответ (ну почти готовый){/post}{/quote}

Какая разница что отображать на форме: картинку (как у Николая) или прогресс бар (как у Юрия)? А вот, например, пляшущие автофигуры это уже не хухры-мухры :))

А послать завсегда успеется...

mazayZR Пользователь Сообщений: 950 Регистрация: 01.01.1970	#14 01.09.2008 17:20:34 разницы никакой, ибо я все равно ничего не понял и забил на эту затею. однако за участие спасибо ЗЫ: николаев вариант заработал только на половину, то есть картинко показалось,а вот закрываться не желает

Лузер™

Гость

#15

02.09.2008 08:12:30

Мазай! Может ему (юзеру) просто не давать без всяких окон?
VBA: Как на время выполнения макроса заблокировать клавиатуру и мышку, сохранив, при этом, возможность использования диалоговых окон ?
http://www.msoffice.nm.ru/faq/macros/miscellaneous.htm#faq371

mazayZR Пользователь Сообщений: 950 Регистрация: 01.01.1970	#16 02.09.2008 09:58:57 вот это чтоль? Application.Interactive = False 'Здесь должен быть код Вашей программы. Application.Interactive = True никак не могу понять принцип, по которому там ответы показываются :-)

Лузер™ Гость	#17 02.09.2008 11:38:39 Оно. Жаль что у них вопрос не дублируется перед ответом.

Роман Гость	#18 12.11.2008 21:20:21 Мне как "чайнику" очень познавательно:) Подскажите пожалуйста, как в Shell ("""" & Application.Path & "\OIS.EXE"" """ & ActiveWorkbook.Path & "\Картинки\РукиФУ.jpg" & """") в первой части прописать путь (чтобы открывалось в этих программах), например, к mspaint.exe или блокноту, вобщем, к какой-нибудь другой программе. У меня постоянно ошибка вылетает... Спасибо!

Читают тему