Perintah Kadaluarsa (Expiration date) Aplikasi VBA Excel

Perhatikan gambar format gif diatas..!! Aplikasi dibatasi penggunaannya dengan memasukkan perintah kadaluarsa (Expiration date). Tujuannya agar aplikasi tidak dapat dibuka lagi dengan batasan waktu tertentu hingga pengguna aplikasi menghubungi programer. Mungkin dengan kata lain bisa disebut juga programer memberikan masa Trial penggunaan aplikasi. Banyak cara untuk membuat sebuah aplikasi VBA Excel Kadaluarsa (Expiration date) salah satunya dengan menentukan tanggal atau jumlah hari pemakaian dari tanggal tertentu. Ikuti dan praktekkan langkah-langkah membuat Aplikasi VBA Excel Kadaluarsa (Expiration date)

Baca Juga : Menampilkan Icon Pada Title Aplikasi/UserForm Vba Excel

Langkah-langkah membuat Aplikasi VBA Excel Kadaluarsa (Expiration date) :

• Masih menggunakan Aplikasi Data yang dapat di download pada posting "Tombol Simpan VBA Excel" yang merupakan posting pertama yang harus di simak untuk membuat Aplikasi Data yang kita gunakan pada posting ini.
• Buka Visual Basic Aplikasi Data, Pada Jendela Project Explorer, double klik "ThisWorBook" hingga muncul jendela Code dan masukkan kode berikut ini, perhatikan gambar dibawah kode.

Dim Edate As Date
Edate = Format("20/11/2015", "DD/MM/YYYY") ' Replace this with the date you want
If Date > Edate + 30 Then
MsgBox "Aplikasi Data Telah Habis Masa Percobaan..!! Untuk Penggunaan Selanjutnya.!!Hubungi Programer, HP.08116822023", 16, "Trial"
ActiveWorkbook.Close
End If

• Selesai..!!! Mudah bukan..!!!
• Perlu diperhatikan bahwa tanggal "20/11/2015" merupakan tanggal hari pertama dan "30 Then" merupakan jumlah hari dari tanggal yang di tentukan.

Sekian pembahasan Perintah Kadaluarsa (Expiration date) Aplikasi VBA Excel. Posting ini merupakan posting terakhir untuk penggunaan file "Aplikasi Data". Untuk posting berikutnya InsyaAllah akan saya gunaka file lain.

File "Aplikasi Data" saya gunakan dalam beberapa Posting berikut ini :

1. Tombol Simpan VBA Excel
2. UserForm Muncul Otomatis Ketika Excel Dibuka
3. Range Dinamis
4. Tampilkan Data di ListBox di UserForm VBA Excel
5. Perintah Cari otomatis Melalui TextBox
6. Tampikan Data Dari ListBox Ke Textbox Dengan Double Klik
7. Tombol Hapus UserForm VBA Excel
8. Cari Data Dengan TextBox Tampil Di ListBox
9. Disable Close Bawaan, Modifikasi Tombol Keluar Sendiri
10. Edit Data Melalui UserForm VBA Excel
11. Mencegah Rename File Macro Excel
12. Minimize UserForm VBA Excel
13. Perintah Print Preview Melalui UserForm VBA Excel
14. Peringatan "Aktifkan Macro Security" VBA Excel
15. Perintah Kadaluarsa (Expiration date) Aplikasi VBA Excel

Download Aplikasi Data yang sudah komplit semua posting diatas, Masa Expirenya 30 hari dari tanggal 24 Desember 2015.  Bila anda mengikuti dari posting pertama hingga akhir, Aplikasi Data yang anda gunakan juga sama dengan yang saya miliki.