Cara Membuat Aplikasi Trial/Epired Date Menggunakan Excel

Posted by Admin

Pernahkah anda Mendownload sebuah aplikasi bersifat trial/expired date..??

Tentu sangat pernah donk...!
Bagi para master programmer handal membuat sebuah aplikasi dengan menggunakan metode Trial sangatlah di butuhkan untuk membatasi user dalam menggunakan aplikasi tersebut dengan waktu/bulan yang ditentukan.

Untuk menggunakan aplikasi tersebut menjadi full version harus memasukkan serial number yang di berikan oleh si programmer.

Baca Juga: Cara Membuat Masa Berlaku atau Expired Date di Delphi

Tapi kali ini, saya cuma akan membagikan bagaimana cara sederhana membuat aplikasi expired date dengan tgl, bulan, tahun yang sudah ditentukan.
Ok sobat langsung aja ke pengcodingannya ya,,!

• Buka aplikasi Microsoft Excel Sobat 
• Buka Tab Developer - > Visual Basic 
• Klik ThisWorkbook 
• Silahkan copy paste coding di bawah ini:

Private Const Sht As String = "PERINGATAN"
Dim Ws As Worksheet
Private Sub Workbook_Open()
Dim Edate As Date
Edate = Format("14/04/2016", "DD/MM/YYYY")
If Date > Edate + 1 Then
MsgBox "aplikasi Data Telah Habis Percobaan..!!Untuk Penggunaan selanjutnya..!!Hubungi Programer, Hp.09877777", 16, "Trial"
ActiveWorkbook.Close
End If
If ThisWorkbook.Name <> "Aplikasi Data.xlsb" Then
    MsgBox "Maaf, Nama File Harus ''Aplikasi Data.xlsb, Tidak Boleh Diganti''", 16, "Error..."
    ThisWorkbook.Save
    ThisWorkbook.Close
    Application.Quit
End If
 Exit Sub
End Sub

Catatan: Silahkan ganti yang berwarna merah tgl, bulan dan tahunnya sesuai keinginan anda 
Bagi yang mau file nya silahkan download di bawah ini.

Download AplikasiExcel

Share This :