Contoh Macro: Menyimpan dan Menutup Beberapa Workbook Sekaligus

Pengguna Excel sering bekerja dengan cara membuka banyak workbook sekaligus. Itu dilakukan agar mudah dalam membandingkan, menyalin, dan mengkonsolidasi data antar workbook. Setelah selesai, workbook tersebut harus disimpan dan ditutup satu persatu. Pekerjaan menyimpan dan menutup ini sebenarnya bisa dilakukan dengan satu klik saja jika dibuat menjadi sebuah Macro.

1. Buka layar Visual Basic dengan Shortcut ALT+F11.
2. Kemudian klik kanan PERSONAL.XLSB (Personal Macro Workbook), pilih Insert Module.
3. Jika PERSONAL.XLSB belum ada, ikuti tutorial membuatnya di: Belajar Macro VBA 03: Personal Macro Workbook untuk Menyimpan Kumpulan Macro
4. Double klik module yang baru saja dibuat
5. Masukan kode berikut (ditulis di layar kode)
6. 
7. Masukan kode berikut
   
8. Kemudian Simpan

Untuk menjalankan kode tersebut, ikuti langkah berikut:

1. Buka beberapa workbook Excel.
2. Pada tab Developer, klik tombol Macro
3. Pilih macro PERSONAL.XLSB!SimpanTutupSemuaWorkbook
4. 
5. Klik Run

Adapun penjelasan kode di atas adalah sebagai berikut:

Sub SimpanTutupSemuaWorkbook()  
‘Nama macro yang dipilih

Dim wb As Workbook   
‘Deklarasi variable wb untuk referensi ke object workbook

For Each wb In Workbooks
‘Looping collection untuk semua Workbook yang saat ini sedang dibuka

If wb.Name <> "PERSONAL.XLSB" Then
‘Cek apakah nama workbook adalah Personal Macro Workbook

wb.Close SaveChanges:=True
‘Selain Personal Macro, disimpan dan ditutup

End If
Next wb

End Sub

Demikianlah cara membuat macro untuk menyimpan dan menutup semua workbook yang terbuka, semoga bermanfaat, chaw.