Cara Membuat Expire Date Aplikasi Excel atau Membatasi Waktu dengan Macro

Expire date biasanya digunakan bagi para developer atau programmer dalam membuat aplikasi khususnya aplikasi berbayar atau trial. Expire date digunakan untuk membatasi waktu pada sebuah aplikasi yang sifatnya komersil. Dengan pembatasan waktu atau expire date maka biasanya user akan diminta untuk registrasi dan registrasi ini digunakan untuk mengaktifkan kembali aplikasi yang dibuat.

Kali ini saya akan berbagai bagaimana cara membuat expire date pada aplikasi yang dibuat menggunakan Ms. Excel dengan bantuan Macro / script VBA. Ok, langsung saja ini dia script expire date VBA

Private Sub Workbook_Open()
    Dim BatasWaktu As Date
    BatasWaktu = "01/01/2015" ' ini merupakan tanggal batas waktu expire silakan ganti
    If Date > BatasWaktu Then
        MsgBox ("Maaf Waktu Anda telah habis"), vbInformation, "INFORMASI"
        ActiveWorkbook.Close
    End If
    MsgBox ("Anda masih punya kesempatan " & exdate - Date + 1 & " Hari lagi"), vbInformation, "INFORMASI"
End Sub
Catatan :
Script diatas ditempatkan pada ThisWorkbook bukan pada sheet atau Module

Dari script diatas apabila aplikasi excel dibuka melewati tanggal 01/01/2015 maka akan muncul pesan expire date seperti berikut


Jika user menekan OK atau klik tombol X maka aplikasi akan keluar secara otomatis tetapi Apabila waktu aplikasi digunakan sebelum tanggal 01/01/2015 maka akan muncul pesan Anda masih punya kesempatan sebanyak waktu yang telah ditentukan ditambahkan waktu sekarang.

Anda bisa menggunakan expire date ini dengan menentukan batas waktu apakah mau 1 hari 2 hari atau bahkan 7 hari setelah itu aplikasi tidak dapat digunakan kembali.

Semoga Cara Membuat Expire Date Aplikasi Excel atau Membatasi Waktu dengan Macro bermanfaat dan selamat berkarya.

5 Responses to "Cara Membuat Expire Date Aplikasi Excel atau Membatasi Waktu dengan Macro"

  1. Terima kasih atas ilmunya pak saya mau tnya pak expered date perijinan... misal ijin usaha sya habis 10 Nov 15 trus 3 bln sbelum di akan kasih warning... syukur warning tersebut masuk ke dalam email

    BalasHapus
  2. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  3. Salam hangat Mr. Admin. Mau tanya nih, gimana kodenya jika saya ingin membuat aplikasi trial berbasis excel selama 7 hari setelah aplikasi tersebut dibuka.
    Sebisa mungkin aplikasi tersebut dapat berlaku untuk MS Office 2007,2010,2013 atau 2016

    BalasHapus
  4. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  5. Bagus nih ilmunya.Hanya saja apabila sudah melampaui batas waktu bagaimana cara mengaktifkan kembali kang? Nuhun

    BalasHapus

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler