Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Капча макросом
 
#1
29.11.2023 08:37:56
Приветствую всех. Может ли кто-то подсказать, есть ли возможность придумать макрос капчу в excel'e к примеру если файл открыт какое-то время?
Допустим excel файл находится в открытом состоянии в течении 5-ти минут, выходит капча...
 
 
 
#2
29.11.2023 08:59:28
Tatar,
в книгу:
Код
Private Sub Workbook_Open()
    TimeToRun = Now + TimeValue("00:05:00")     'прибавляем к текущему времени 3 сек
    Application.OnTime TimeToRun, "Макрос"     'назначаем следующий запуск
End Sub

в модуль:
Код
Sub Макрос()
MsgBox "asdasdasd"
End Sub
Изменено: evgeniygeo - 29.11.2023 09:04:14
 
 
 
#3
30.11.2023 13:33:16
Пытался сделать как Вы описали, но ничего к сожалению не получается...
 
 
 
#4
04.12.2023 06:54:05
Tatar,
книгу открывали? макросы в настройках включены? excel ругался, что книга из внешнего источника и макросы в ней заблокированы? через 5 минут появляется сообщение?
 
 
 
#5
04.12.2023 11:23:20
evgeniygeo, Книгу открывал, "разрешить редактирование" файла кликал, оповещение через 5 минут не появляется, даже ставил на 1 минуты, изменений нет. Макросы включены. Возможно ли это из-за того, что Вами вложенный файл сохранен без поддержки макросов? Пытался пересохранить с поддержкой макросов, в итоге получается так что выходит окошко с надписью, но это не капча, а просто окошко в виде уведомления.
 
 
 
#6
04.12.2023 13:07:41
Tatar,
сорри но вижу, что приложенный мною файл сохранен верно.
Цитата
Tatar написал:
Возможно ли это из-за того, что Вами вложенный файл сохранен без поддержки макросов?
понимаю, и я хотел помочь с первой частью задачи своим кодом, +честно говоря, не понимаю какой в этом смысл?
Цитата
Tatar написал:
но это не капча, а просто окошко в виде уведомления.
Изменено: evgeniygeo - 04.12.2023 13:36:00
 
 
 
Страницы: 1
Наверх