Dear Pak Jajang
Copy paste macro berikut di modul Thisworkbook
'memanggil timer saat open workbook
Private Sub Workbook_Open()
Run "Mulai"
End Sub
'mengulangi timer saat user melakukan update / click cell tertentu
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Excel.Range)
Run "Batalkan"
Run "Mulai"
End Sub
'mengulangi timer saat terjadi refresh
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Run "Batalkan"
Run "Mulai"
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Run "Batalkan"
Run "Mulai"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Run "Batalkan"
End Sub
Copy paste macro berikut di modul 1
Option Explicit
Public IdleTime As Date
Sub Mulai()
IdleTime = Now + TimeValue("00:05:00")
Application.ontime IdleTime, "ExitWB"
End Sub
Sub Batalkan()
On Error Resume Next
Application.ontime EarliestTime:=IdleTime, _
Procedure:="ExitWB", Schedule:=False
End Sub
Sub ExitWB()
application.DisplayAlerts =False
ActiveWorkbook.Close
End Sub
Wassalam
On 1/11/2013 11:39 PM, jajang muhammad siddik wrote:
Dear All Suhu Excel
Adakah perintah macro yang guna nya untuk meng-close workbook yang
aktif jika tidak di gunakan dalam waktu tertentu, misalkan dalam waktu
5 menit file excel yang aktif tidak di gunakan, maka file tersebut
akan otomasis di save dan di close.
Mohon pencerahannya.
Salam,
Jajangms
