Menutup Semua Workbook Yang Tidak Aktif

Pekerjaan kantor yang menumpuk cukup menyita banyak perhatian karena banyaknya dokumen-dokumen excel yang harus dibuka karena mungkin antara dokumen satu dengan yang lainnya saling berkaitan, akibatnya tampilan dokumen yang terbuka (thumbnail/icon) menumpuk di taskbar.

Bagaimana untuk menutup semua dokumen yang sudah terbuka ketika membuka dokumen lain ?

Ketika sebuah dokumen dibuka maka secara otomatis membuat dokumen lain yang terbuka menjadi pasif atau tidak aktif.
Kode Macro berikut ini berfungsi untuk menutup semua dokumen excel - sementara dokumen yang aktif akan tetap terbuka

Public Sub TutupSemuaDokumen()
Dim Wb As Workbook
Dim AWb As String
AWb = ActiveWorkbook.Name

'Menutup semua dokumen pasif dan menyimpannya
For Each Wb In Workbooks
   If Wb.Name <> AWb Then
   Wb.Close savechanges:=True
   End If
Next Wb
End Sub

Kode di atas letakkan dalam sebuah module, caranya :

1. Buka jendela Microsoft Visual Basic
2. Klik menu Insert dan pilih Module
3. Paste kode di atas di jendela kode yang tersedia

Menjalankan module

Jika menginginkan kode di atas berjalan secara otomatis ketika sebuah dokumen dibuka, maka letakkan kode berikut di ThisWorkbook

Private Sub Workbook_Open()
   Call TutupSemuaDokumen
End Sub

Download file di sini

Sumber Informasi :
http://www.rumahexcel.com/2012/11/menutup-semua-workbook-yang-tidak-aktif.html#ixzz2oLfd5iCE