Masa TRIAL Aplikasi

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. Sebenarnya Banyak cara untuk membuat sebuah aplikasi VBA Excel Kadaluarsa (Expiration date) salah satunya dengan menentukan tanggal atau jumlah hari pemakaian dari tanggal tertentu.

Langsung Ke TKP

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

• 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("06/02/2016", "DD/MM/YYYY") ' Replace this with the date you want
If Date > Edate + 30 Then
MsgBox "Masa TRIAL Telah Habis..!! Untuk Penggunaan Selanjutnya.!!Hubungi Programer, HP.081342417570",, "Trial"
ActiveWorkbook.Close
End If

• Selesai..!!!
• Perlu diperhatikan bahwa tanggal "06/02/2016" merupakan tanggal  pertama dan "30 Hari Setelah Tanggal "06/02/2016" Aplikasi Tidak Dapat Di Gunakan , Karena Masa TRIAL Habis

Sampai disini Dulu ya.. Puji Tuhan Kalau Ada Yang Baru saya akan Share..