Otomatis Menutup Dokumen Excel Jika Tidak Ada Aktifitas Pengguna

Sebuah system operasi seperti windows yang sudah terinstall dengan benar baik yang terdapat di laptop maupun PC mempunyai sebuah fitur yang digunakan untuk menghemat energy (energy saving) yang dapat diatur - kapan Laptop atau PC tersebut mati (sleep, hibernate, atau shutdown) Kondisi ini terjadi jika tidak ada aktifitas sama sekali dari pengguna dalam kurun waktu tertentu.

Di dalam Microsoft Excel - kita dapat juga menambahkan sebuah fasilitas atau fitur tersebut; seperti menutup sebuah file excel jika tidak ada aktifitas dari pengguna dalam waktu tertentu. Tentunya untuk membangun sebuah fasilitas ini membutuhkan kode VBA.

Membuat Module Untuk Menutup Dokumen

Buat sebuah standar module dengan cara klik Insert > module Dalam jendela Microsoft Visual Basic,
kemudian paste kode berikut :

Public RunWhen As Double
Public Const MENIT = 5 'workbook akan tertutup dalam waktu 5 menit

---

Public Sub Tutup()
   ThisWorkbook.Close savechanges:=True
End Sub

ganti nilai MENIT = 5 sesuai dengan yang anda kebutuhan untuk menutup dokumen

Module Untuk Menjalankan Prosedur

Masih dalam jendela Microsoft Visual Basic, paste kode berikut di ThisWorkbook

Private Sub Workbook_Open()
    On Error Resume Next
    Application.OnTime RunWhen, "Tutup", , False
    On Error GoTo 0
    RunWhen = Now + TimeSerial(0, MENIT, 0)
    Application.OnTime RunWhen, "Tutup", , True
End Sub

---

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.OnTime RunWhen, "Tutup", , False
    On Error GoTo 0
End Sub

---

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    Application.OnTime RunWhen, "Tutup", , False
    On Error GoTo 0
    RunWhen = Now + TimeSerial(0, MENIT, 0)
    Application.OnTime RunWhen, "Tutup", , True
End Sub

---

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    Application.OnTime RunWhen, "Tutup", , False
    On Error GoTo 0
    RunWhen = Now + TimeSerial(0, MENIT, 0)
    Application.OnTime RunWhen, "Tutup", , True
End Sub

Simpan file dengan type Excel Macro-Enabled Workbook

Download file di sini

Sumber Informasi :
http://www.rumahexcel.com/2012/11/otomatis-menutup-dokumen-excel-jika.html#ixzz2oLctEm2m