Diskusi tentang Excel

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.

Related

Trik Excel 8729069962414627095

Post a Comment

  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

    ReplyDelete
  2. This comment has been removed by the author.

    ReplyDelete

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

emo-but-icon

item