Таймер простоя. Возможно?

[ru3000]

Всем привет. Помогите с непростой задачей.

Есть документ excel с кучей всевозможных макросов и наворотов. Но дело не в этом. Дело в том, что с этим документом работают несколько пользователей по сети. Пока один что-то там делает в документе, остальные могут открывать его только для чтения. Бывает, что первый кто открыл этот документ забывает его закрыть и уходит, например домой. Естественно начинают дергать меня, типа че за фигня, не можем редактировать документ. Приходиться лезть по удаленке и закрывать этот документ у забывчивого пользователя.
Так вот мой вопрос: как можно организовать, чтобы даже если документ и оставили открытым, то он бы сам закрывался через определенное время простоя с обязательным сохранением данных. Возможно ли сделать это средствами VB, написать эдакий таймер простоя с автосохранением.

Сразу скажу, чти никакой другой метод совместной работы с документами меня не устраивает. Ни какие синхронизации разных версий одного и того же документа, ни какие тупые онлайн сервисы, типа Zoho Sheet, ни какие безумные решения от Microsoft за бешеные деньги. Ничего. Есть один документ, который должен редактироваться по очереди. И точка.

Буду признателен за наводку в каком направлении двигаться.

[Казанский]

Попробуйте в модуль книги (т.е. объекта ЭтаКнига или ThisWorkbook)

Private Const DELAY = #12:05:00 AM# '5 минут, можно вводить #0:5:0#

Private next_time

Private Sub CloseMe()
Me.Close True
End Sub

Private Sub Workbook_Open()
ResetTimer
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ResetTimer
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ResetTimer
End Sub

Private Sub ResetTimer()
On Error Resume Next
Application.OnTime next_time, "ThisWorkbook.CloseMe", , False
next_time = Now + DELAY
Application.OnTime next_time, "ThisWorkbook.CloseMe"
End Sub

Переименуйте объект ЭтаКнига в ThisWorkbook на панели свойств, или в последней процедуре поменяйте ThisWorkbook на ЭтаКнига (или как он у Вас называется).

[ru3000]

Вы Гений!
Мерси. А то я уже начал привлекать сторонние программы для этого дела.
Еще раз благодарю.

[Step_UA]

в большинстве случаев метод будет работать, но если пользователь оставит открытой книгу на этапе ввода/корректирования значения ячейки - никакой макрос не будет выполняться ...

[ru3000]

Упс, вы прямо меня обескуражили. Выходит что без сторонних программ никак не обойтись?

[ru3000]

Погодите, т.е. в данном случае макрос вообще не начнет отчет времени с момента простоя если пользователь оставил документ на этапе ввода/корректирования значения ячейки? Или же макрос все таки отсчитает указанное время, но просто не сможет закрыть/сохранить документ?

PS Сам отвечу на свой вопрос: вообще не начнет отчет времени.
Печально конечно. Может есть способ это победить?

[DiemonStar]

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

[Smitt&Wesson]

А к серваку, на котором этот файл лежит, есть доступ?
Если есть, можно на него установить программку, которая будет отслеживать активность этого файла, типа "занят"-"не занят".

[ru3000]

Сообщение от Smitt&Wesson

А к серваку, на котором этот файл лежит, есть доступ?
Если есть, можно на него установить программку, которая будет отслеживать активность этого файла, типа "занят"-"не занят".

Да, доступ к серверу есть. А вот что за программы вы советуете использовать? Что-то ничего подобного не попадалось. Если не трудно, дайте наводку пожалуйста.

[ru3000]

О, придумал. Нужна утиль, которая будет следить за бездействием компьютера и, например, через 10 минут простоя будет отправлять в открытый документ Excel нажатие клавиши "End" или "Esc", что в свою очередь закончит редактирование ячейки в таблице (если таковое присутствует) и соответственно активирует запуск макроса с таймером простоя уже внутри самого Excel. Как-то так. Думаю написать программульку на VB.