Contoh Kode Macro Event: Menonaktifkan Sheet dalam Excel VBA
Contoh kode macro di bawah ini menjalankan event saat Anda membuka worksheet lain yang berbeda dari worksheet yang sedang dibuka.
Sebut saja suatu sel tertentu tidak boleh dibiarkan kosong saat Anda keluar dari worksheet tersebut untuk membuka worksheet lain, sehingga harus diisi dengan nilai apa saja.
Gambar di bawah ini mempertunjukkan hasil akhirnya:
Dimana kode event memastikan bahwa sel A1 benar-benar berkonten, namun jika kosong, sebuah kotak pesan akan tampil untuk mengingatkan bahwa sel A1 belum ditambahkan konten apapun pada worksheet tersebut.
Event Worksheet_Deactivate dapat mencetuskan keadaan tersebut.
Ikuti langkah-langkah berikut untuk membuat kode macronya:
1. Dalam Excel, pastikan workbook Anda telah memiliki sheet lebih dari satu tab.
2. Tentukan sheet mana yang akan Anda jadikan sebagai sheet non-aktif (seperti dalam contoh Sheet1) yang mana sel A1 di dalamnya harus berkonten sebelum membuka tab sheet lain, klik kanan tab sheet tersebut.
2. Pilih View Code.
3. Pada kotak pilihan Object (General) di atas module worksheet klik tanda panah di ujungnya.
4. Pilih Worksheet.
5. Pada kotak pilihan Procedure (Declarations) di atas module worksheet, klik tanda panahnya di ujungnya.
6. Pilih event Deactivate.
7. Ketik kode berikut tepat dibawah Private Sub Worksheet_Deactivate:
MsgBox "Anda belum menambahkan konten apapun di sel A1" _
& vbCrLf & _
"pada worksheet bernama " & Me.Name & ".", _
vbExclamation, _
"Peringatan!"
8. Kode lengkapnya menjadi seperti berikut:
If Len(Me.Range("A1").Value) = 0 Then _
MsgBox "Anda belum menambahkan konten apapun di sel A1" _
& vbCrLf & _
"pada worksheet bernama " & Me.Name & ".", _
vbExclamation, _
"Peringatan!"
End Sub
9. Tekan Alt+F11 untuk kembali ke jendela Excel.
10. Di sheet yang telah Anda buat macronya, dengan mengosongkan sel A1, coba Anda klik tab Sheet lain, amati apakah muncul kotak pesan berisi peringatan.
Demikian pembahasan tentang event Worksheet_Deactivate dalam macro VBA Excel.
Selamat mempraktikkan dan semoga postingan ini bermanfaat.