06 December 2018

Cara Membuat Aplikasi Trial/Epired Date Menggunakan Excel

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.
Cara Membuat Aplikasi Trial/Epired Date Menggunakan Excel

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.

Share This

SD IT Nurul Jannah, adalah sekolah dasar berbasis islam yang merangkum antara pendidikan formal atau umum dengan pendidikan agama secara menyeluruh, sehingga harapan kami nanti, mampu menciptakan generasi yang mandiri, cerdas, serta berahklakul karimah

0 Comments:

Berminat ingin menjadi penulis disini, silahkan kirimkan alamat email anda melalui halaman kontak kami.