Kamis, 22 Desember 2016

Menutup semua workbook pasif


Menutup semua workbook pasif. Pekerjaan kantor yang menumpuk cukup menyita banyak perhatian karena banyaknya dokumen-dokumen microsoft excel yang harus dibuka karena antara dokumen satu dengan yang lainnya saling berkaitan, akibatnya tampilan dokumen yang terbuka (thumbnail) menumpuk di taskbar. Hal semacam ini terkadang membuat bingung sehingga cukup merepotkan, nah 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. Baris kode Macro berikut ini berfungsi untuk menutup semua dokumen excel yang tidak aktif (Pasif red) dan tidak menggangu dokumen yang aktif sehingga dokumen yang aktif akan tetap terbuka

? Baris kode macro menutup serta menyimpan workbook yang tidak aktif
Public Sub CloseWorkbookNon()
Dim Wb As Workbook
Dim AWb As String
AWb = ActiveWorkbook.Name
For Each Wb In Workbooks
If Wb.Name AWb Then
Wb.Close savechanges:=True 'Menutup semua dokumen pasif dan menyimpannya
End If
Next Wb
End Sub

Cara mennggunakan kode macro

+ Buka jendela VBE, insert Module
+ Ketikan baris kode macro dibawah ini kedalam Module

Public Sub CloseWorkbookNon()
Dim Wb As Workbook
Dim AWb As String
AWb = ActiveWorkbook.Name
For Each Wb In Workbooks
If Wb.Name AWb Then
Wb.Close savechanges:=True 'Menutup semua dokumen pasif dan menyimpannya
End If
Next Wb
End Sub

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

Private Sub Workbook_Open()
Call CloseWorkbookNon
End Sub

+ Atau anda bisa membuat tombol jika ingin mengeksekusi kode diatas secara manual
+ Simpan dan jalankan

Demikianlah cara menggunakan Fungsi menutup semua workbook pasif tutorial ini saya ambil dan saya tulis ulang dari blog rumah excel yang sudah tidak bisa diakases dari satu tahun yang lalu, semoga tutorial microsoft excel kali ini bisa dimengerti dan bermanfaat bagi kita semuanya



EmoticonEmoticon