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.

Tweet