Скрыть форму по таймауту.

[Klim Bassenger]

Всем привет!

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

То есть, если кто-то работал с формой, а потом ушел и забыл ее закрыть, то она должна сама закрываться через 5 минут.

Заранее благодарен!

[IgorGO]

приблизительно так:
(процедуры FixFormStatus и WasChanged надо будет самостоятельно написать.
если 5 минут ничего не происходило форма должна закрыться)

Public EndTime As Date, NextCheck As Date

Sub CloseForm()
  If форма_уже_закрыта Then Exit Sub ' сделайте проверку (тоже самостоятельно)
  If WasChanged Then
    StartCheck ' откладываем автозакрывание еще на 5 минут
  Else
    If Now >= EndTime Then UserForm1.Hide ' Не было изменений и вышло время - закрываем форму
    Else ' повторим проверку через минуту
      NextCheck = Now + TimeSerial(0, 1, 0)
      Application.OnTime NextCheck, "CloseForm"
    End If
  End If
End Sub

Sub StartCheck()
  FixFormStatus
  EndTime = Now + TimeSerial(0, 5, 0)
  NextCheck = Now + TimeSerial(0, 1, 0)
  Application.OnTime NextCheck, "CloseForm"
End Sub

Sub FixFormStatus()
  ' Зафиксировать состояние формы (значения элементов, активный элемент
End Sub

Function WasChanged() As Boolean
  WasChanged = False
  ' сравнить состояние формы с зафиксированным ранее
  WasChanged = True
End Function

[Klim Bassenger]

Спасибо!!!
И еще несколько вопросов...

1.При совместном доступе к файлу как сделать, чтобы другой человек не мог открыть файл даже для чтения?
2. Как отправить в экселе сообщение по сети через net send??

[IgorGO]

1. переименовать или переместить файл (спрятать его на время)
2. shell "net send ..."

[Klim Bassenger]

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

1. переименовать или переместить файл (спрятать его на время)

Блин... Всё гениальное просто!!!!
Еще раз спасибо!