Expire date biasanya dipakai bagi para developer atau programmer dalam menciptakan aplikasi khususnya aplikasi berbayar atau trial. Expire date dipakai untuk membatasi waktu pada sebuah aplikasi yang sifatnya komersil. Dengan pembatasan waktu atau expire date maka biasanya user akan diminta untuk pendaftaran dan pendaftaran ini dipakai untuk mengaktifkan kembali aplikasi yang dibuat.
Kali ini aku akan banyak sekali bagaimana cara menciptakan expire date pada aplikasi yang dibentuk memakai Ms. Excel dengan sumbangan Macro / script VBA. Ok, pribadi saja ini beliau script expire date VBA
Private Sub Workbook_Open()Catatan :
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
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 ibarat berikut
Jika user menekan OK atau klik tombol X maka aplikasi akan keluar secara otomatis tetapi Apabila waktu aplikasi dipakai sebelum tanggal 01/01/2015 maka akan muncul pesan Anda masih punya kesempatan sebanyak waktu yang telah ditentukan ditambahkan waktu sekarang.
Anda sanggup memakai expire date ini dengan memilih batas waktu apakah mau 1 hari 2 hari atau bahkan 7 hari sehabis itu aplikasi tidak sanggup dipakai kembali.
Semoga Cara Membuat Expire Date Aplikasi Excel atau Membatasi Waktu dengan Macro bermanfaat dan selamat berkarya. Sumber http://www.excel-id.com/