Friday, December 25, 2015

Perintah Kadaluarsa (Expiration date) Aplikasi VBA Excel

Perhatikan gambar format gif dibawah..!! 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)



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 (Link Error) 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. 

4 komentar

Pak...setelah aplikasi nya expired..kan tidak bisa di buka lagi..trus bagaimana supaya aktif kembali dan bagaimana cara memasukan kodenya..

Keren pak sharing ilmunya...
Sangat manfaat sekali

cara mengaktifkan kembali file tersebut bagaimana gan?
mohon pencerahan...

Non Aktifkan Macro.. maka perintah tidak akan jalan.. Selanjutnya edit kembali tanggal di kode yang ada di visual basic

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon