DISABLE TOMBOL "X" WORKBOOK EXCEL
Pada artikel sebelumnya kami sudah membuat potingan Kode Macro Menghilangkan Icon "X" Di Userform Excel, dan kali ini kami akan mengulas "CARA MENONAKTIFKAN/DESABLE ICON X DI WORKBOOK EXCEL" praktikkan.
CARA MENONAKTIFKAN ICON X DI WORKBOOK EXCEL
1. Buka microsoft excel Anda
2. Tekan Alt+F11 maka Anda akan masuk ke jendela Visual Basic for Application (VBA)
3. Pada project "This Workbook" klik 2 kali dan masukan Kode Macro dibawah ini
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not iconx Then
Cancel = True
MsgBox "maaf, icon X ini tidak berfungsi" & _
vbNewLine & "Silahkan klik tombol keluar yang sudah disediakan", _
vbCritical, "sistem aplikasi"
End If
End Sub
4. Kemudian buatlah 1 buah module, dan masukan Kode macro dibawah ini
Option Explicit
Public iconx As Boolean
Public Sub Keluar()
iconx = True
ThisWorkbook.Close
End Sub
5. Nah, sekarang kembali ke workbook dan buatlah 1 buah tombol Commandbutton lewat Menu Developer
6. Jika sudah membuat tombol diatas, sekarang klik 2 kali dan masukan Kode Macro dibawah ini
Private Sub CommandButton1_Click()
Call Keluar
End Sub
http://www.mtsbmtumbrasanom.id/2017/12/kode-macro-nonaktif-icon-x-di-workbook.html
Luangkan waktu beberapa menit untuk membaca serta memahami artikel ini, karena ini akan sangat detail dan singkat.
Pada artikel sebelumnya kami sudah membuat potingan Kode Macro Menghilangkan Icon "X" Di Userform Excel, dan kali ini kami akan mengulas "CARA MENONAKTIFKAN/DESABLE ICON X DI WORKBOOK EXCEL" praktikkan.
CARA MENONAKTIFKAN ICON X DI WORKBOOK EXCEL
1. Buka microsoft excel Anda
2. Tekan Alt+F11 maka Anda akan masuk ke jendela Visual Basic for Application (VBA)
3. Pada project "This Workbook" klik 2 kali dan masukan Kode Macro dibawah ini
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not iconx Then
Cancel = True
MsgBox "maaf, icon X ini tidak berfungsi" & _
vbNewLine & "Silahkan klik tombol keluar yang sudah disediakan", _
vbCritical, "sistem aplikasi"
End If
End Sub
4. Kemudian buatlah 1 buah module, dan masukan Kode macro dibawah ini
Option Explicit
Public iconx As Boolean
Public Sub Keluar()
iconx = True
ThisWorkbook.Close
End Sub
6. Jika sudah membuat tombol diatas, sekarang klik 2 kali dan masukan Kode Macro dibawah ini
Private Sub CommandButton1_Click()
Call Keluar
End Sub
7. Selesai, dan untuk menjalankan (RUN) silahkan tekan F5
PRIORITAS KAMI
Kami sangat memperhatikan hasil maksimal dan kepuasan bagi pengunjung sehingga selain artikel diatas, kami juga menyediakan sampel file gratis tanpa proteck dan video untuk pemahaman yang mendalam.
Download File (No Protect)
Lihat Videonya (Proses)
Apabila Anda merasa bahwa artikel ini bagus dan layak untuk dibagikan maka silahkan share ke sosial media yang Anda punya, bisa lewat Facebook, Google Plus, Whatsapp, Telegram dll.
Link Artikel Ini :
Jika Anda memperhatikan serta melakukan langkah-langkah diatas, maka Kode Macro akan berjalan dengan baik dan hasil filenya akan tampak seperti gambar paling atas serta tombol tersebut juga akan aktif sesuai Kode Macro yang Anda terapkan seperti file yang telah kami lampirkan.
"Kami Selalu Berusaha Memberikan Yang Terbaik Dan Original Untuk Anda"
Jabat Erat@Hak Cipta 2015
Post a Comment for "KODE MACRO NONAKTIF ICON X DI WORKBOOK EXCEL"