KEUTAMAAN SHALAT TARAWIH MALAM KE-1 SAMPAI MALAM KE-30

Posted on
Balas

Dari Ali bin Abi Thalib ra bahwa dia berkata: Nabi SAW ditanya tentang keutamaan-keutamaan tarawih di bulan Ramadhan. Kemudian beliau bersabda:

  1. Orang mukmin keluar dari dosanya pada malam pertama, seperti saat dia dilahirkan oleh ibunya.
  2. Dan pada malam kedua, ia diampuni, dan juga kedua orang tuanya, jika keduanya mukmin.
  3. Dan pada malam ketiga, seorang malaikat berseru dibawah ‘Arsy: “Mulailah beramal, semoga Allah mengampuni dosamu yang telah lewat.”
  4. Pada malam keempat, dia memperoleh pahala seperti pahala membaca Taurat, Injil, Zabur, dan Al-Furqan (Al-Quran)
  5. Pada malam kelima, Allah Ta’ala memeberikan pahala seperti pahala orang yang shalat di Masjidil Haram, masjid Madinah dan Masjidil Aqsha.
  6. Pada malam keenam, Allah Ta’ala memberikan pahala orang yang berthawaf di Baitul Makmur dan dimohonkan ampun oleh setiap batu dan cadas.
  7. Pada malam ketujuh, seolah-olah ia mencapai derajat Nabi Musa a.s. dan kemenangannya atas Fir’aun dan Haman.
  8. Pada malam kedelapan, Allah Ta’ala memberinya apa yang pernah Dia berikan kepada Nabi Ibrahin as
  9. Pada malam kesembilan, seolah-olah ia beribadat kepada Allah Ta’ala sebagaimana ibadatnya Nabi saw.
  10. Pada Malam kesepuluh, Allah Ta’ala mengaruniai dia kebaikan dunia dan akhirat.
  11. Pada malam kesebelas, ia keluar dari dunia seperti saat ia dilahirkan dari perut ibunya.
  12. Pada malam keduabelas, ia datang pada hari kiamat sedang wajahnya bagaikan bulan di malam purnama.
  13. Pada malam ketigabelas, ia datang pada hari kiamat dalam keadaan aman dari segala keburukan.
  14. Pada malam keempat belas, para malaikat datang seraya memberi kesaksian untuknya, bahwa ia telah melakukan shalat tarawih, maka Allah tidak menghisabnya pada hari kiamat.
  15. Pada malam kelima belas, ia didoakan oleh para malaikat dan para penanggung (pemikul) Arsy dan Kursi.
  16. Pada malam keenam belas, Allah menerapkan baginya kebebasan untuk selamat dari neraka dan kebebasan masuk ke dalam surga.
  17. Pada malam ketujuh belas, ia diberi pahala seperti pahala para nabi.
  18. Pada malam kedelapan belas, seorang malaikat berseru, “Hai hamba Allah, sesungguhnya Allah ridha kepadamu dan kepada ibu bapakmu.”
  19. Pada malam kesembilan belas, Allah mengangkat derajat-derajatnya dalam surga Firdaus.
  20. Pada malam kedua puluh, Allah memberi pahala para Syuhada (orang-orang yang mati syahid) dan shalihin (orang-orang yang saleh).
  21. Pada malam kedua puluh satu, Allah membangun untuknya sebuah gedung dari cahaya.
  22. Pada malam kedua puluh dua, ia datang pada hari kiamat dalam keadaan aman dari setiap kesedihan dan kesusahan.
  23. Pada malam kedua puluh tiga, Allah membangun untuknya sebuah kota di dalam surga.
  24. Pada malam kedua puluh empat, ia memperoleh duapuluh empat doa yang dikabulkan.
  25. Pada malam kedua puluh lima , Allah Ta’ala menghapuskan darinya azab kubur.
  26. Pada malam keduapuluh enam, Allah mengangkat pahalanya selama empat puluh tahun.
  27. Pada malam keduapuluh tujuh, ia dapat melewati shirath pada hari kiamat, bagaikan kilat yang menyambar.
  28. Pada malam keduapuluh delapan, Allah mengangkat baginya seribu derajat dalam surga.
  29. Pada malam kedua puluh sembilan, Allah memberinya pahala seribu haji yang diterima.
  30. Dan pada malam ketiga puluh, Allah ber firman : “Hai hamba-Ku, makanlah buah-buahan surga, mandilah dari air Salsabil dan minumlah dari telaga Kautsar. Akulah Tuhanmu, dan engkau hamba-Ku.”

Akhirnya, semoga amal ibadah kita diterima dan kita mendapatkan pangkat dan derajat dari Allah sebagai seorang yang bertakwa.

Sumber Hadist dari Kitab Duratun Nasihin, Bab Keistimewaan Bulan Ramadhan.

Wallahu A’lam

MEMBUAT FORM ISIAN DATA PENGISIAN FORM 1770SS SPT TAHUNAN MENGGUNAKAN EXCEL

Posted on

Setelah kita mempelajari pembuatan form sederhana menggunakan excel, selanjutnya kita akan membuat applikasi pengisian Form 1770 SS….biasa biar gak jenuh input datanya….hehehe…

Mari kita mulai dengan langkah-langkah sebagai berikut :

  1. Buka file excel 2007
  2. Double Klik di nama worksheet lalu ganti nama yg asalnya Sheet1 menjadi “1770SS” dan Sheet2 menjadi “1770SSdata” (ini mah klo saya, klo anda terserah tapi perlu diingat namanya untuk pembuatan code)

Seperti tampak pada gambar dibawah ini :

Biar gampang mah download aja disini

Kemudian kita simpan file sebagai excel makro….klik file save as pilih Excel Macro Enabled Workbook….ketik nama file disini saya beri nama file “1770SS”

Langkah selanjutnya adalah design form dengan Control yang akan kita gunakan adalah : Control Label, Textbox, Command Button dan frame adapun langkah-langkahnya seperti sudah saya bahas pada pembahasan sebelumnya  (MEMBUAT FORM ISIAN DATA SEDERHANA DI EXCEL)

Langkah selanjutnya adalah memberi nama dan caption untuk tiap label, textbox dan command button

  1. Frame 1 Name “IDENTITAS Caption “IDENTITAS”
  2. Label Caption : “NPWP, NAMA WAJIB PAJAK, PEKERJAAN, KLU, NO TELEPON, NO FAXIMILE, LAPORAN PERUBAHAN DATA, TERSENDIRI, TIDAK ADA, JUMLAH KESELURUHAN HARTA YANG DIMILIKI PADA AKHIR TAHUN,Rp., JUMLAH KESELURUHAN KEWAJIBAN/UTANG PADA AKHIR TAHUN dan TANGGAL”
  3. Textbox name : NPWP1 sampai dengan NPWP15 (untuk pengisian No NPWP)
  4. Textbox name : NAMA1 sampai dengan NAMA32 (untuk pengisian Nama)
  5. Textbox name : PEK1 sampai dengan PEK23 (untuk pengisian Pekerjaan)
  6. Textbox name : KLU1 sampai dengan KLU6 (untuk pengisian KLU biasanya dikosongkan)
  7. Textbox name : TLP1 sampai dengan TLP12 (untuk pengisian No Telepon)
  8. Textbox name : FAX1 sampai dengan FAX12 (untuk pengisian No Fax)
  9. Textbox name : PD1 (untuk pengisian Perubahan Data)
  10. Textbox name : PD2 (untuk pengisian Lampiran Tersendiri)
  11. Textbox name : HARTA (untuk pengisian HARTA YANG DIMILIKI PADA AKHIR TAHUN)
  12. Textbox name : UTANG (untuk pengisian UTANG YANG PADA AKHIR TAHUN)
  13. Textbox name : TGL1 sampai dengan TGL8 (untuk pengisian tanggal bulan dan tahun)
  14. CommandButton1 name dan Caption : TAMBAH
  15. CommandButton2 name dan Caption : TUTUP

Code yang dipakai di module 1

Sub F1770SS()

Form1770SS.Show

End Sub

Code yang dipakai CommandButton TUTUP

Private Sub CMTUTUP_Click()

Unload Me

End Sub

Code yang dipakai CommandButton TAMBAH

Private Sub TAMBAH_Click()

Dim iRow As Long

Dim ws As Worksheet

Set ws = Worksheets(“1770SSdata”)

‘menemukan baris kosong pada database

iRow = ws.Cells(Rows.Count, 1) _

.End(xlUp).Offset(1, 0).Row

iNomor = ws.Cells(iRow – 1, 1).Value
iNomor = iNomor + 1

‘check untuk sebuah kode

If Trim(Me.NPWP1.Value) = “” Then

Me.NPWP1.SetFocus

MsgBox “Iiiiccchhh…..Data masih kosong tuuuhhhh….!!!!!”

Exit Sub

End If

‘copy data ke database

‘ NPWP

ws.Cells(iRow, 1).Value = iNomor

ws.Cells(iRow, 2).Value = Me.NPWP1.Value

ws.Cells(iRow, 3).Value = Me.NPWP2.Value

ws.Cells(iRow, 4).Value = Me.NPWP3.Value

ws.Cells(iRow, 5).Value = Me.NPWP4.Value

ws.Cells(iRow, 6).Value = Me.NPWP5.Value

ws.Cells(iRow, 7).Value = Me.NPWP6.Value

ws.Cells(iRow, 8).Value = Me.NPWP7.Value

ws.Cells(iRow, 9).Value = Me.NPWP8.Value

ws.Cells(iRow, 10).Value = Me.NPWP9.Value

ws.Cells(iRow, 11).Value = Me.NPWP10.Value

ws.Cells(iRow, 12).Value = Me.NPWP11.Value

ws.Cells(iRow, 13).Value = Me.NPWP12.Value

ws.Cells(iRow, 14).Value = Me.NPWP13.Value

ws.Cells(iRow, 15).Value = Me.NPWP14.Value

ws.Cells(iRow, 16).Value = Me.NPWP15.Value

‘NAMA

ws.Cells(iRow, 17).Value = Me.NAMA1.Value

ws.Cells(iRow, 18).Value = Me.NAMA2.Value

ws.Cells(iRow, 19).Value = Me.NAMA3.Value

ws.Cells(iRow, 20).Value = Me.NAMA4.Value

ws.Cells(iRow, 21).Value = Me.NAMA5.Value

ws.Cells(iRow, 22).Value = Me.NAMA6.Value

ws.Cells(iRow, 23).Value = Me.NAMA7.Value

ws.Cells(iRow, 24).Value = Me.NAMA8.Value

ws.Cells(iRow, 25).Value = Me.NAMA9.Value

ws.Cells(iRow, 26).Value = Me.NAMA10.Value

ws.Cells(iRow, 27).Value = Me.NAMA11.Value

ws.Cells(iRow, 28).Value = Me.NAMA12.Value

ws.Cells(iRow, 29).Value = Me.NAMA13.Value

ws.Cells(iRow, 30).Value = Me.NAMA14.Value

ws.Cells(iRow, 31).Value = Me.NAMA15.Value

ws.Cells(iRow, 32).Value = Me.NAMA16.Value

ws.Cells(iRow, 33).Value = Me.NAMA17.Value

ws.Cells(iRow, 34).Value = Me.NAMA18.Value

ws.Cells(iRow, 35).Value = Me.NAMA19.Value

ws.Cells(iRow, 36).Value = Me.NAMA20.Value

ws.Cells(iRow, 37).Value = Me.NAMA21.Value

ws.Cells(iRow, 38).Value = Me.NAMA22.Value

ws.Cells(iRow, 39).Value = Me.NAMA23.Value

ws.Cells(iRow, 40).Value = Me.NAMA24.Value

ws.Cells(iRow, 41).Value = Me.NAMA25.Value

ws.Cells(iRow, 42).Value = Me.NAMA26.Value

ws.Cells(iRow, 43).Value = Me.NAMA27.Value

ws.Cells(iRow, 44).Value = Me.NAMA28.Value

ws.Cells(iRow, 45).Value = Me.NAMA29.Value

ws.Cells(iRow, 46).Value = Me.NAMA30.Value

ws.Cells(iRow, 47).Value = Me.NAMA31.Value

ws.Cells(iRow, 48).Value = Me.NAMA32.Value

‘PEKERJAAN

ws.Cells(iRow, 49).Value = Me.PEK1.Value

ws.Cells(iRow, 50).Value = Me.PEK2.Value

ws.Cells(iRow, 51).Value = Me.PEK3.Value

ws.Cells(iRow, 52).Value = Me.PEK4.Value

ws.Cells(iRow, 53).Value = Me.PEK5.Value

ws.Cells(iRow, 54).Value = Me.PEK6.Value

ws.Cells(iRow, 55).Value = Me.PEK7.Value

ws.Cells(iRow, 56).Value = Me.PEK8.Value

ws.Cells(iRow, 57).Value = Me.PEK9.Value

ws.Cells(iRow, 58).Value = Me.PEK10.Value

ws.Cells(iRow, 59).Value = Me.PEK11.Value

ws.Cells(iRow, 60).Value = Me.PEK12.Value

ws.Cells(iRow, 61).Value = Me.PEK13.Value

ws.Cells(iRow, 62).Value = Me.PEK14.Value

ws.Cells(iRow, 63).Value = Me.PEK15.Value

ws.Cells(iRow, 64).Value = Me.PEK16.Value

ws.Cells(iRow, 65).Value = Me.PEK17.Value

ws.Cells(iRow, 66).Value = Me.PEK18.Value

ws.Cells(iRow, 67).Value = Me.PEK19.Value

ws.Cells(iRow, 68).Value = Me.PEK20.Value

ws.Cells(iRow, 69).Value = Me.PEK21.Value

ws.Cells(iRow, 70).Value = Me.PEK22.Value

ws.Cells(iRow, 71).Value = Me.PEK23.Value

‘KLU

ws.Cells(iRow, 72).Value = Me.KLU1.Value

ws.Cells(iRow, 73).Value = Me.KLU2.Value

ws.Cells(iRow, 74).Value = Me.KLU3.Value

ws.Cells(iRow, 75).Value = Me.KLU4.Value

ws.Cells(iRow, 76).Value = Me.KLU5.Value

ws.Cells(iRow, 77).Value = Me.KLU6.Value

‘TLP

ws.Cells(iRow, 78).Value = Me.TLP1.Value

ws.Cells(iRow, 79).Value = Me.TLP2.Value

ws.Cells(iRow, 80).Value = Me.TLP3.Value

ws.Cells(iRow, 81).Value = Me.TLP4.Value

ws.Cells(iRow, 82).Value = Me.TLP5.Value

ws.Cells(iRow, 83).Value = Me.TLP6.Value

ws.Cells(iRow, 84).Value = Me.TLP7.Value

ws.Cells(iRow, 85).Value = Me.TLP8.Value

ws.Cells(iRow, 86).Value = Me.TLP9.Value

ws.Cells(iRow, 87).Value = Me.TLP10.Value

ws.Cells(iRow, 88).Value = Me.TLP11.Value

ws.Cells(iRow, 89).Value = Me.TLP12.Value

‘FAX

ws.Cells(iRow, 90).Value = Me.FAX1.Value

ws.Cells(iRow, 91).Value = Me.FAX2.Value

ws.Cells(iRow, 92).Value = Me.FAX3.Value

ws.Cells(iRow, 93).Value = Me.FAX4.Value

ws.Cells(iRow, 94).Value = Me.FAX5.Value

ws.Cells(iRow, 95).Value = Me.FAX6.Value

ws.Cells(iRow, 96).Value = Me.FAX7.Value

ws.Cells(iRow, 97).Value = Me.FAX8.Value

ws.Cells(iRow, 98).Value = Me.FAX9.Value

ws.Cells(iRow, 99).Value = Me.FAX10.Value

ws.Cells(iRow, 100).Value = Me.FAX11.Value

ws.Cells(iRow, 101).Value = Me.FAX12.Value

‘PD

ws.Cells(iRow, 102).Value = Me.PD1.Value

ws.Cells(iRow, 103).Value = Me.PD2.Value

‘HARTA

ws.Cells(iRow, 104).Value = Me.HARTA.Value

‘UTANG

ws.Cells(iRow, 105).Value = Me.UTANG.Value

‘TGL

ws.Cells(iRow, 106).Value = Me.TGL1.Value

ws.Cells(iRow, 107).Value = Me.TGL2.Value

ws.Cells(iRow, 108).Value = Me.TGL3.Value

ws.Cells(iRow, 109).Value = Me.TGL4.Value

ws.Cells(iRow, 110).Value = Me.TGL5.Value

ws.Cells(iRow, 111).Value = Me.TGL6.Value

ws.Cells(iRow, 112).Value = Me.TGL7.Value

ws.Cells(iRow, 113).Value = Me.TGL8.Value

‘clear data

Me.NPWP1.Value = “”

Me.NPWP2.Value = “”

Me.NPWP3.Value = “”

Me.NPWP4.Value = “”

Me.NPWP5.Value = “”

Me.NPWP6.Value = “”

Me.NPWP7.Value = “”

Me.NPWP8.Value = “”

Me.NPWP9.Value = “”

Me.NPWP10.Value = “”

Me.NPWP11.Value = “”

Me.NPWP12.Value = “”

Me.NPWP13.Value = “”

Me.NPWP14.Value = “”

Me.NPWP15.Value = “”

‘NAMA

Me.NAMA1.Value = “”

Me.NAMA2.Value = “”

Me.NAMA3.Value = “”

Me.NAMA4.Value = “”

Me.NAMA5.Value = “”

Me.NAMA6.Value = “”

Me.NAMA7.Value = “”

Me.NAMA8.Value = “”

Me.NAMA9.Value = “”

Me.NAMA10.Value = “”

Me.NAMA11.Value = “”

Me.NAMA12.Value = “”

Me.NAMA13.Value = “”

Me.NAMA14.Value = “”

Me.NAMA15.Value = “”

Me.NAMA16.Value = “”

Me.NAMA17.Value = “”

Me.NAMA18.Value = “”

Me.NAMA19.Value = “”

Me.NAMA20.Value = “”

Me.NAMA21.Value = “”

Me.NAMA22.Value = “”

Me.NAMA23.Value = “”

Me.NAMA24.Value = “”

Me.NAMA25.Value = “”

Me.NAMA26.Value = “”

Me.NAMA27.Value = “”

Me.NAMA28.Value = “”

Me.NAMA29.Value = “”

Me.NAMA30.Value = “”

Me.NAMA31.Value = “”

Me.NAMA32.Value = “”

Me.PEK1.Value = “”

Me.PEK2.Value = “”

Me.PEK3.Value = “”

Me.PEK4.Value = “”

Me.PEK5.Value = “”

Me.PEK6.Value = “”

Me.PEK7.Value = “”

Me.PEK8.Value = “”

Me.PEK9.Value = “”

Me.PEK10.Value = “”

Me.PEK11.Value = “”

Me.PEK12.Value = “”

Me.PEK13.Value = “”

Me.PEK14.Value = “”

Me.PEK15.Value = “”

Me.PEK16.Value = “”

Me.PEK17.Value = “”

Me.PEK18.Value = “”

Me.PEK19.Value = “”

Me.PEK20.Value = “”

Me.PEK21.Value = “”

Me.PEK22.Value = “”

Me.PEK23.Value = “”

Me.KLU1.Value = “”

Me.KLU2.Value = “”

Me.KLU3.Value = “”

Me.KLU4.Value = “”

Me.KLU5.Value = “”

Me.KLU6.Value = “”

Me.TLP1.Value = “”

Me.TLP2.Value = “”

Me.TLP3.Value = “”

Me.TLP4.Value = “”

Me.TLP5.Value = “”

Me.TLP6.Value = “”

Me.TLP7.Value = “”

Me.TLP8.Value = “”

Me.TLP9.Value = “”

Me.TLP10.Value = “”

Me.TLP11.Value = “”

Me.TLP12.Value = “”

Me.FAX1.Value = “”

Me.FAX2.Value = “”

Me.FAX3.Value = “”

Me.FAX4.Value = “”

Me.FAX5.Value = “”

Me.FAX6.Value = “”

Me.FAX7.Value = “”

Me.FAX8.Value = “”

Me.FAX9.Value = “”

Me.FAX10.Value = “”

Me.FAX11.Value = “”

Me.FAX12.Value = “”

Me.PD1.Value = “”

Me.PD2.Value = “”

Me.HARTA.Value = “”

Me.UTANG.Value = “”

Me.TGL1.Value = “”

Me.TGL2.Value = “”

Me.TGL3.Value = “”

Me.TGL4.Value = “”

Me.TGL5.Value = “”

Me.TGL6.Value = “”

Me.TGL7.Value = “”

Me.TGL8.Value = “”

Me.NPWP1.SetFocus

End Sub

Untuk menghindari menutup melalui tanda X pada form masukan kode dibawah ini dengan klik kanan mouse pada form dan pilih view code dan ketikan kode dibawah ini :

Private Sub UserForm_QueryClose(Cancel As Integer, _

CloseMode As Integer)

If CloseMode = vbFormControlMenu Then

Cancel = True

MsgBox “MAKE TOMBOL ATUH KANG!”

End If

End Sub

MEMBUAT FORM ISIAN DATA SEDERHANA DI EXCEL

Posted on
24

Terkadang kita merasa jenuh mengisi table di excel, untuk membuang kejenuhan mengisi data saya coba iseng iseng membuat form sederhana untuk sekedar membuang kejenuhan…..
Selanjutnya anda bias mengembangkan sesuai dengan kebutuhan…….
Adapun langkah-langkah pembuatan form sebagai berikut :
1. Buka file excel 2007
2. Double Klik di nama worksheet lalu ganti nama yg asalnya Sheet1 menjadi “PARTSDATA” (ini mah klo saya, klo anda terserah tapi perlu diingat namanya untuk pembuatan code)
3. Pada Row 1 kolom kita buat nama heading untuk tabelnya seperti tampak pada gambar dibawah ini :


4. Kemudian kita simpan file sebagai excel makro….klik file save as pilih Excel Macro Enabled Workbook….ketik nama file disini saya beri nama file “data barang”

Langkah berikutnya membuat Macro untuk file tersebut, adapun langkah-langkah pembuatan macro sebagai berikut :
1. Pada worksheet pilih menu view klik tab Macros pilih view macros :


2. Isikan macro name : “FORM” klik create :


3. Klik kanan mouse pada VBA Project
4. Pilih insert
5. Pilih user form :

Langkah selanjutnya adalah design form dengan Control yang akan kita gunakan adalah : Control Label, Textbox dan Command Button seperti tampak pada gambar berikut :


Langkah selanjutnya adalah member nama dan caption untuk tiap label, textbox dan command button

Label1 Caption diganti dengan “Kode”
Label2 Caption diganti dengan “Nama Barang”
Label3 Caption diganti dengan “Satuan”
Label4 Caption diganti dengan “Harga”

TextBox1 Name diganti dengan “tkode”
TextBox2 Name diganti dengan “tnama”
TextBox3 Name diganti dengan “tsatuan”
TextBox4 Name diganti dengan “tharga”


command button1 Caption diganti dengan “TAMBAH”
command button1 Name diganti dengan “CMDTMBH”
command button2 Caption diganti dengan “TUTUP”
command button2 Name diganti dengan “CMDTTP”


atur sedemikian rupa hingga tampak seperti gambar dibawah ini


Langkah selanjutnya adalah membuat kode
1. Klik command button “TAMBAH “
2. Klik menu bar pilih view code
Atau klik kanan mouse pada tombol “TAMBAH” pilih view code

3. Masukan kode dibawah ini (biar gak cape copy paste saja code dibawah ini):

Private Sub CMDTMBH_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets(“PARTSDATA”)

‘menemukan baris kosong pada database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

‘check untuk sebuah kode
If Trim(Me.tkode.Value) = “” Then
Me.tkode.SetFocus
MsgBox “Masukan Kode Barang”
Exit Sub
End If

‘copy data ke database
ws.Cells(iRow, 1).Value = Me.tkode.Value
ws.Cells(iRow, 2).Value = Me.tnama.Value
ws.Cells(iRow, 3).Value = Me.tsatuan.Value
ws.Cells(iRow, 4).Value = Me.tharga.Value

‘clear data
Me.tkode.Value = “”
Me.tnama.Value = “”
Me.tsatuan.Value = “”
Me.tharga.Value = “”
Me.tkode.SetFocus
End Sub

4. Dilanjutkan dengan pengisian code pada tombol tutup langkah seperti nomor 2 diatas dengan kode dibawah ini :

Private Sub CMDTTP_Click()
Unload Me
End Sub

5. Untuk menghindari menutup melalui tanda X pada form masukan kode dibawah ini dengan klik kanan mouse pada form dan pilih view code dan ketikan kode dibawah ini :

Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox “MAKE TOMBOL ATUH KANG!”
End If
End Sub

6. Mengisi code pada module klik kanan module pilih view code dan isikan kode dibawah ini :
Sub FORM()
UserForm1.Show
End Sub

Sekarang kita kembali ke worksheet kmudian kita akan membuat tombol untuk mengaktifkan form…terserah dmana saja menyimpannya…

Buat rectangle seperti digambar tersebut untuk memasukkan kode klik kanan mouse pada rectangle tersebut lalu pilih “Assign Macro” lalu pilih form…..selesai sudah…jika benar sesuai urutan maka akan tampak seperti ini…..jangan lupa simpen ya….selamat mencoba….

contoh file klik disini