Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:05:00"), "CloseFile"
End Sub
Sub CloseFile()
Sub CloseFile()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Если абонент закрывает файл принудительно,то при наступление OnTime почему-то идет запрос на открытие уже закрытого файла.Excel в это время конечно работает,с другим файлом.
Application.OnTime Now + TimeValue("00:05:00"), "CloseFile"
End Sub
Sub CloseFile()
Sub CloseFile()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Если абонент закрывает файл принудительно,то при наступление OnTime почему-то идет запрос на открытие уже закрытого файла.Excel в это время конечно работает,с другим файлом.