Private Type POINTAPI
X As Long
Y As Long
End Type

Private Declare Function GetCursorPos _
    Lib "user32.ddl" (IpPoint As POINTAPI) As Long
Sub Auto_Open()
GetCursorPosition
End Sub

Private Sub GetCursorPosition()
Dim oPOINT As POINTAPI, pauseTime, Start, Finish, TotalTime
Application.DisplayAlerts = True 'Разрешаем предупреждения на время работы

GetCursorPos IPoint 'запрашиваем позицию курсора
Xx = IPoint.X
Yy = IPoint.Y

pauseTime = 10 ' время в секундах

Start = Timer 'Старт
Do While Timer < Start + pauseTime 'Запускаем цикл таймера
DoEvents 'Выход на другие процессы
Loop
Finish = Timer 'Время вышло
TotalTime = Finish - Start 'Подсчет времени простоя
GetCursorPos IPoint 'Запрашиваем позицию курсора
Xx2 = IPoint.X
Yy2 = IPoint.Y

If Xx = Xx2 And Yy = Yy2 Then 'Сравниваем 1 и 2 положение курсора
'Начинаем действия при простое
If ActiveWorkbook.ReadOnly Then 'проверяем файл на "Только чтение"
Excel.ActiveSheet.Cells(1, 1).Select 'переходим на ячейку 1,1 для устранения не оконченного ввода
Application.DisplayAlerts = False 'подавляем предупреждения
Aplication.Quit ' Закрываем приложение
ActiveWorkbook.Close True
Application.DisplayAlerts = True 'Разрешаем предупреждения на время работы
Else
Application.DisplayAlerts = False 'подавляем предупреждения
Excel.ActiveWorkbook.Save 'сохраняем активную книгу
Aplication.Quit ' Закрываем приложение
ActiveWorkbook.Close True
Application.DisplayAlerts = True 'Разрешаем предупреждения на время работы
End If
End
Else
'тут пользователь двигал курсор
End If
cicle 'переходим к процедуре цикла
End Sub
Private Sub cicle()
GetCursorPosition 'Зацикливаем процедуру пока не будет бездействия юзера
End Sub