Mendaftar Butuh bantuan tentang Excel?? Gabung aja di
Forum BE-ORG

Disable Tombol Close “X” pada Workbook Excel

Jika pada waktu yang lalu sudah kami bagikan tutorial Menonaktifkan tombol Close pada UserForm, kali ini kita akan belajar menonaktifkan / disable tombol Close “X” pada Workbook Excel, Tujuannya agar aplikasi Excel tidak bisa di close dengan tombol “X”, sebagai gantinya kita akan menambahkan sebuah tombol pada worksheet untuk menutup Workbook atau aplikasi Excel. Nantinya ketika tombol Close “X” di klik hanya akan menampilkan pesan seperti gambar di bawah ini.

Disable Close Button Excel

Untuk mendisable tombol Close “X” pada Woorkbook Excel, kita akan menggunakan kode macro atau VBA untuk lebih lengkapnya silahkan ikuti-langkah berikut ini:

  1. Buka aplikasi Microsoft Excel, kemudian tekan Alt+F11 pada keyboard untuk menampilkan aplikasi Microsoft Visual Basic for Application.
  2. Pada ThisWorkbook (Code) masukkan script vba berikut ini:
  3. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not tutupWB Then
        Cancel = True
        MsgBox "Silahkan klik aja tombol Keluar" & _
        vbNewLine & "Untuk menutup Workbook ini", _
        vbInformation, "INFO"
    End If
    End Sub
    
  4. Buat sebuah Module baru dan masukkan script VBA di bawah ini pada Module1 (Code).
  5. Option Explicit
    Public tutupWB As Boolean
    
    Public Sub Keluar()
        tutupWB = True
        ThisWorkbook.Close
    End Sub
    

Sekarang cobalah untuk menutup Aplikasi Microsoft Excel seperti biasanya yaitu dengan mengklik tombol Close “X” pada pojok kanan atas, ataupun melalui tab FileClose maka yang terjadi hanya akan tampil sebuah pesan saja.

Disable Close Button Excel

Lalu bagaimana caranya kita bisa menutup Workbook Excelnya??

Agar Workbook Excel bisa di tutup, kita perlu menambahkan sebuah tombol / button yang kita letakkan di Worksheet, nantinya ketika tombol tersebut di klik maka Workbook akan di tutup. Untuk langkah-langkah pembuatan tombolnya, silahkan lanjutkan membaca halaman berikutnya.

Add a Comment

Your email address will not be published. Required fields are marked *