Вводная часть:

Ситуация следующая, ввиду со складывающейся ситуацией по COVID на предприятии, всех перевели на удалённый режим работы. С доступом до рабочей почты через удалённый стол.

Всё бы не плохо, но технические возможности не позволяют всем сидеть одновременно в связи с чем ограничили доступ до удалённого рабочего стола по количеству пользователей и как следствие при отсутствии активности через 2-5 минут тебя(а бывает часто и меня) выкидывает с удалённого рабочего стола. При этом если не будет подключения ещё 5 минут закрывает все активные программы на удалённом столе.

Учитывая тот факт, что работа совмещается ещё и с телефонными разговорами совещаниями по аудио связи и пр. постоянное отключение значительно снижает эффективность работы.

Работа в основном проводится в Excel в связи с чем возникла идея которую не знаю как воплотить, нужно:

Техническая часть:

Если в активном окне Excel не происходит никакое движение в течение 2-5 минут происходило какое-нибудь движение которое воспринималось бы как активное.

К примеру после двух минут появлялись бы часы с отсчётом времени, или как раньше было в Excel булавка стучала по монитору или просто сдвигалась активная ячейка на одну клетку вправо.

Пытался делать сам.

Sub kursor1()
Do    WScript.Sleep 3000
    Selection.Offset(0, 1).SelectLoop
End Sub

Но что то не работает выдаёт ошибку «error 424 object required»

Вывод:

Нужен макрос которые при отсутствии активности более 5 минут создавал какую-нибудь активность сам. При этом не жрал бы много трафика и был максимально прост + что бы как то очень просто можно было поменять время без активности (например с 5 минут на 2 или на 10)

Есть макрос, который с активного листа одной книги, переносит данные в активный лист другой книги, причем листы называются одинаково. Пример существующего кода приведён ниже.

Sub ПереносДанных()

Windows("Форма №1 Рабочая.xlsm").Activate

  Range("I34").Select

  Range(Selection, Selection.End(xlToRight)).Select

  Selection.Copy

  Windows("ЭМ_.XLSB").Activate

  Range("I34").Select

  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

      :=False, Transpose:=False

  Windows("Форма №1 Рабочая.xlsm").Activate

  Range("I40").Select

  Range(Selection, Selection.End(xlToRight)).Select

  Application.CutCopyMode = False

  Selection.Copy

  Windows("ЭМ_.XLSB").Activate

  Range("I40").Select

  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

      :=False, Transpose:=False

  Windows("Форма №1 Рабочая.xlsm").Activate

  Range("I44").Select

  Range(Selection, Selection.End(xlToRight)).Select

  Application.CutCopyMode = False

  Selection.Copy

  Windows("ЭМ_.XLSB").Activate

  Range("I44").Select

  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

      :=False, Transpose:=False

  Windows("Форма №1 Рабочая.xlsm").Activate

  Range("I51").Select

  Range(Selection, Selection.End(xlToRight)).Select

  Application.CutCopyMode = False

  Selection.Copy

  Windows("ЭМ_.XLSB").Activate

  Range("I51").Select

  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

      :=False, Transpose:=False

End Sub

Необходимо решить следующие комплексные задачи:

1)      Как сделать так, что бы имя закреплённое в коде «Форма №1 Рабочая» было динамично, то есть данное имя автоматически бралось то, из которого запускается макрос;

2)      Как сделать так, что бы имя книги в которую необходимо перенести данные выбиралось в ручную, причем выбор сразу определял папку в которой лежит родительский документ из которой запускается макрос? В данном коде данное имя фиксированное «ЭМ_.XLSB». Данный момент ещё усложняется тем, что информацию надо вставлять в лист с идентичным названием. У листов всего два имения «Капитальные вложения» и «Капитальные вложения (ФИН)»;

То есть, резюмируя два первых вопроса надо сделать так, что бы имена файлов были не фиксированы а динамичные с заданными условиями