Период работы макроса.

[Klim Bassenger]

Уважаемые Форумчане!
У меня возникла необходимость осуществить следующее:
Есть файл Excel с макросами, необходимо сделать так, чтобы удаленно можно было приостановить работу макросов.
То есть не через какое-то время, а в любой момент. При чем произойти это должно незаметно для простого юзера... (должна выскакивать какая-нибудь системная ошибка).

Есть идея посылать при открытии книги запрос на определенный URL в интернете, сравнить его и если адрес не тот, который забит по умаолчанию, то должна выдаваться сообщение об ошибке (желательно со звуковым сопровождением) и далее остонавливались все макросы.
Отсюда вопросы:

1. Как сделать запрос на URL.
2. Как искусственно вызвать системную ошибку (желательно со звуком).
3. Как остановить все маросы.

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

Если кто знает как такое сделать, отпишитесь, плиз... А может у кого лучше идея появится???
Всем заранее спасибо!

[IgorGO]

2. Где угодно в макросе пишем Error 404. в результате имем:
Run-Time error '404':
Application-defined or object-defined error
3. Большая Круглая кнопка / Параметры... / Центр управления безопасностью / Параметры центра управления... / Параметры макросов / Отключить все макросы

А может у кого лучше идея появится???

Надо договариваться...

[doober]

Сообщение от Klim Bassenger

Если кто знает как такое сделать, отпишитесь, плиз... А может у кого лучше идея появится???
Всем заранее спасибо!

Эта тема не нова

У меня есть "бомба " с дистанционным управлением даты подрыва файла.Никто его не востановит.Пишите на мыло,доработаю по вас ,вышлю.

[Klim Bassenger]

Сообщение от IgorGO

3. Большая Круглая кнопка / Параметры... / Центр управления безопасностью / Параметры центра управления... / Параметры макросов / Отключить все макросы

Это круто... Через интернет нажать большую круглую кнопку...
Да если даже это возможно через макрос сделать, то не много ума нужно, чтоб опять ее включить...
А нужно, чтоб наверняка!!!
А вот на счет ошибки спасибо!!! Осталось как то ссылку проверить на наличие таковой в интернете...

[Klim Bassenger]

Сообщение от doober

У меня есть "бомба " с дистанционным управлением даты подрыва файла.Никто его не востановит.

Не, это вообще будет жесть... похерить данные за 2 года - это жестоко...
Мне бы сделать, чтоб цифры остались, а макросы, упрощающие все расчеты, группировки. сортировки и т.д. не работали... Я это для себя делал, а не для дяди или тёти...
Пусть ручками попробуют всё поделать...

[doober]

Что же вы такой добренький.Есть другой вариант.
По команде уничтожаем VBA проект.Место в интернете с командой уже рарезервировано.с вас VBA проект.Пульт с кнопкой и инструкция будет после проекта.Шлите на мыло

[Klim Bassenger]

Сообщение от doober

Что же вы такой добренький.

Сам в шоке...

Сообщение от doober

Место в интернете с командой уже рарезервировано.

тут я что-то не понял... Где зарезервировано???

Сообщение от doober

с вас VBA проект.

Ни вопрос, но файл весит 15 метров + там 30 разных форм, это не считая макросов... Я не профи и скорее всего там написано криво сточки зрения программирования, но пока всё работает, да и сам сделал... Разобраться тяжко будет... Может что-то конкретное нужно??

[doober]

Место в интернете-ваш бесплатный сайт.Меняете цифры в определенном месте и БУХХ.
Мне надо сохранить только все модули в отдельную папку.Файл не нужен
часть удалю.что жизненно необходимо для работы

[Hugo121]

Можно в коде или при запуске файла проверять наличие файла-ключа в сети или на конкретной машине. Например, в своей расшаренной папке. Тогда код будет работать, пока этот файл доступен. Правда, на время отпуска надо позаботится, чтоб машина была включена
Ну а если уволят - наверняка Ваши файлы потрут (вместе с ключом), когда будут другому сотруднику комп готовить, если сами не успеете стереть.
Ну или в этом файле можно дату ставить, которую проверять. Периодически заходить и продлевать. А если уволят, то можно файл и не стирать, дата истекёт и хана.
Но с бомбой по интернету конечно красивее, надо подумать Почти как мой способ, только наоборот - если нашёл кодовое слово - бигбадабум

[Klim Bassenger]

Сообщение от doober

Место в интернете-ваш бесплатный сайт.

Сайт есть.. С этим понятно...

Сообщение от doober

Мне надо сохранить только все модули в отдельную папку.Файл не нужен часть удалю.что жизненно необходимо для работы

Так а смысл от моих модулей??? На рабочем листе есть кнопка, которая вызывает форму, на которой собственно остальные жизненно важные кнопуи с вызовом остальных форм... ЕЕ скинуть?? Или обязательно экспортировать все модули?