Макрос для закрытия с автосохранением

[spaceboris]

Приветствую, господа. Сам я в бейсике ни бум-бум, но появилась необходимость вбросить в экселевский файлик макрос на закрытие документа с автоматическим сохранением, если пользователь не вносил никаких изменений в книгу в течение 15 минут.
Не найдется ли добрых людей помочь в сей беде?

[EducatedFool]

Такой "макрос" уже встроен в Excel - автосохранение книги называется.

[spaceboris]

Перефразирую. Нужно именно принудительное закрытие файла с сохранением. То есть человек отошел, допустим, от компа. Или же ковыряется в другом окне более чем 15 минут, а экселевское окно автоматически закрывается с принудительным сохранением файла без выброса диалогового окна. Как-то так.
Дефолтное автосохранение в данном случае не подходит. :\

[DiemonStar]

Dim DT As Date
Const Period = "00:01:00"

Sub App_Close()
  If Now - DT > TimeValue(Period) * 2 Then
     DT = Now + TimeValue(Period)
     Application.OnTime DT, "ЭтаКнига.App_Close", DT + TimeValue("00:01:00"), Schedule:=True
  Else
    ActiveWorkbook.Close SaveChanges:=True
  End If
End Sub

Private Sub Workbook_Open()
   DT = Now + TimeValue(Period)
   Application.OnTime DT, "ЭтаКнига.App_Close", DT + TimeValue("00:01:00"), Schedule:=True
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 DT = Now - 1
End Sub

примерно как-то так... Измените Period на своё значение и всё будет закрываться)

[alekszaytsev]

Не давно снова столкнулся , пришлось написать VBA код http://zaycev.me/index.php/myblog/en...i-polzovatelya