Workbook Add & Close

Membuat / menambah workbook baru di excel biasanya dengan cara klik tab File --> New, atau dengan menekan key shortcut Ctrl  + N. Metode manual tersebut hanya menambah satu workbook saja per sekali eksekusi. Kamu bosan dengan metode itu-itu saja? Yok kita coba dengan menggunakan macro / vba. Tidak perlu mikir panjang bagaimana cara bikinnya. Tinggal copas saja gaes...😁😁😁

1. Membuat / Menambah Beberapa Workbook Sekaligus

Menambah beberapa workbook sekaligus sangat mudah dilakukan pake macro. Silahkan dicopy code nya Om.. dan jalankan di workbooknya si Oom...

Sub buatWbBaru() Dim i As Integer, jmlWbBaru As Integer On Error GoTo inputTidakValid jmlWbBaru = Application.InputBox("Input jumlah workbook baru yang akan dibuat, maksimal 5", "Input", 0) If jmlWbBaru = 0 Then Exit Sub If jmlWbBaru > 5 Then MsgBox "Tidak dapat di proses karena kamu minta " & jmlWbBaru & ", maksimal 5 saja ya..", vbCritical Exit Sub End If For i = 1 To jmlWbBaru Workbooks.Add Next Exit Sub inputTidakValid: MsgBox "Inputan harus angka", vbCritical End Sub

Contoh code di atas membatasi penambahan workbook maksimal sekaligus 5. Kenapa dibatasi ? karena kalau kebanyakan tambah workbook juga bisa berabe..😅😅

2. Close Semua Workbook Kecuali Aku

Tadi sudah buat workbook banyak sekaligus. Sekarang bagaimana close workbook yang terlanjur dibuat. Kalau kamu close satu per satu pasti melelahkan dan menjengkelkan bukan. Tenang saja, kita masih bisa bermain-main dengan code macro. Gunakan code berikut untuk close semua workbook kecuali Aku.

Sub CloseSemuaWbKecualiAku() Dim Wb As Workbook Application.ScreenUpdating = False For Each Wb In Application.Workbooks If Not Wb Is ThisWorkbook Then Wb.Close 0 ' tanpa save, jika mau close dan save, maka 0 ganti dengan 1 End If Next Application.ScreenUpdating = True End Sub

Note: 

- Aku artinya adalah workbook dimana code ini ditempatkan. Kamu tentunya tidak mau workbook code yang kamu sayangi ikut ter-close bukan..?

- Perlu hati-hati bahwa code diatas meng-close workbook tanpa melakukan proses Save, sehingga semua perubahaan pada workbook-workbook tersebut tidak akan tersave dengan prosedur ini, kecuali kamu sudah melakukan Save terlebih dahulu secara manual.

3. Close Semua Workboook Kecuali Aku dan WB Aktif

Sedikit modifikasi, bila kamu ingin meng-close semua workbook kecuali workbook tempat code berada dan workbook yang sedang aktif.

Sub CloseSemuaWbKecualiAkuDanWbAktif() Dim Wb As Workbook Application.ScreenUpdating = False For Each Wb In Application.Workbooks If Not Wb Is ThisWorkbook Then If Not Wb Is ActiveWorkbook Then Wb.Close 0 ' tanpa save, jika mau close dan save, maka 0 ganti dengan 1 End If End If Next Application.ScreenUpdating = True End Sub

Close Semua WB Kosong Kecuali Aku

Nah kalau yang ini akan memaksa close semua workbook yang kosong. Daripada menuhin memory, lebih baik di close saja kan? Proses Close juga tidak perlu sambil di Save. Namanya juga workbook kosong. Tidak ada gunanya juga di Save.

Sub CloseSemuaWbKosongKecualiAku() Dim Wb As Workbook, Ws As Worksheet Application.ScreenUpdating = False For Each Wb In Application.Workbooks If Not Wb Is ThisWorkbook Then For Each Ws In Wb.Worksheets If WorksheetFunction.CountA(Ws.UsedRange) > 0 Then GoTo skip End If Next Wb.Close 0 End If skip: Next Application.ScreenUpdating = True End Sub

Itulah Gaes... Beberapa contoh VBA praktis yang bisa kamu gunakan langsung untuk menambah dan close workbook.

Ada saran/koreksi?? Jangan segan untuk tinggalkan komentar.

Jika kamu tertarik, cek juga contoh code VBA lainnya, semuanya tinggal copy paste:

• Contoh Code VBA untuk Menghapus Sheet
• Contoh Code VBA untuk Hide/Unhide Sheet
• Contoh Code VBA untuk Mengurutkan Sheet