Membuat Aplikasi Demo dengan Macro - Trik ini biasanya digunakan oleh para pegembang untuk membuat demo pada aplikasi yang dikembangkanya kepada calon pembeli ( pelanggan ), saat membuat demo pegembang aka menentukan metode demo yang akan diberikan kepada calon pembeli aplikasi, misal metode jumlah buka yaitu pengembang akan membatasi demo aplikasi dengan jumlah buka aplikasi hanya 10 kali buka atau 100 kali buka, jika calon pembeli sudah membuka aplikasi sebanyak 10 atau 100 kali maka aplikasi akan tertutup. Metode yang paling sering dipakai pengembang untuk membuat aplikasi demo yaitu dengan jumlah masa pemakaian, misalkan pengembang memberikan jumlah pemakaian selama 30 hari dan seterusya.

Metode penanggalan juga bisa digunakan untuk membuat demo, jadi pengembang akan menentukan taggal sekian aplikasi sudah tidak bisa digunakan lagi dan seterusnya

MEMBUAT APLIKASI DEMO

Silahkan buat aplikasi dengan microsoft excel, kemudian simpan dengan enabled macro (.xlsm), jangan lupa saat terakhir nanti kunci jendela VBE degan password

Membuat Aplikasi Demo dengan metode jumlah buka

Seperti uraian diatas membuat aplikasi dengan metode jumlah buka yaitu dengan memberikan jumlah maximal buka aplikasi, misalnya demo aplikasi hanya sampai jumlah buka 30 kali, jika sudah sampai 30 kali buka maka aplikasi akan ditutup

If Buka >= 10 then
Thisworkbook.Save
Thisworkbook.Close
End If

Anda bisa merubah modul saat aplikasi mencapai batas demo, bisa dengan membeikan kotak pesan, atau aplikasi tetap bisa dijalankan dengan akses terbatas, bagian ini silahkan anda kreasikan sendiri

Private Sub Workbook_Open()
Buka = Sheets("Sheet1").Range("A1").Value
If Buka = "" Then
Buka = 1
ElseIf Buka >= "10" Then

MsgBox "Maaf masa trial sudah tidak berlaku" & vbCrLf & _
"iParengan.com adalah www.iparengan.net" & vbCrLf & "Autor : Wasis Zain", _
vbOKOnly + vbCritical, "Tutorial Microsoft Excel"
ThisWorkbook.Save
ThisWorkbook.Close

End If

Memberikan peringata jumlah buka

Private Sub Workbook_Open()
Buka = Sheets("Sheet1").Range("A1").Value
If Buka = "" Then
Buka = 1
ElseIf Buka >= "10" Then

MsgBox "Maaf masa trial sudah tidak berlaku" & vbCrLf & _
"iParengan.com adalah www.iparengan.net" & vbCrLf & "Autor : Wasis Zain", _
vbOKOnly + vbCritical, "Tutorial Microsoft Excel"
ThisWorkbook.Save
ThisWorkbook.Close
Exit Sub

Else
Buka = _
Buka + 1
MsgBox "Anda menyisakan jumlah buka " & 10 - Buka, _
vbOKOnly + vbCritical, "Tutorial Microsoft Excel"
End If

End Sub


Agar kode macro diatas berjalan dengan baik pastikan dalam worksbook anda terdapat lembar kerja bernama Sheet1 : Sheets("Sheet1")

Membuat Aplikasi Demo dengan metode pennaggalan

Membuat apliaksi demo dengan metode penanggalan, misalnya aplikasi demo hanya bisa dipakai sebelum tanggal 15 Oktober 2017, maka aplikasi masih tetap bisa digunakan selama tanggal dalam komputer belum sampai tanggal 15 Oktober 2017. Metode ini mempunyai kelemahan, apabila user merubah taggal ada komputernya mejadi tahun 1800 maka aplikasi bisa dipakai selama kurang lebih 200 tahun

Meskipun begitu saya rasa pegguna tidak akan merubah taggal komputerya sejauh itu

Kode macroya masih meggunakan logika yang sama dengan metode jumlah buka, hanya saja kali ini menggunakan tanggal

Sub Dengantanggal()
Dim Expired As Date
Expired = "11/30/2017" 'silahkan ganti dengan tanggal sesuai keinginan
If Date >= Expired Then
MsgBox ("WAKTU anda telah HABIS"), vbInformation, "E X P I R E D"
'ActiveWorkbook.Close
End If
MsgBox ("Anda punya kesempatan " & Expired - Date + 1 & " Hari lagi"), vbInformation, "P E S A N"
End Sub

Batas tanggal demo adalah Expired = "11/30/2017"
Format tanggal sesuaikan dengan komputer, misal dd-mm-yyyy

Sub Dengantanggal()
Dim Expired As Date
Expired = "30-Okt-2017" 'silahkan ganti dengan tanggal sesuai keinginan
If format(Date, "dd-mmm-yyyy") >= Expired Then
MsgBox ("WAKTU anda telah HABIS"), vbInformation, "E X P I R E D"
'ActiveWorkbook.Close
End If
MsgBox ("Anda punya kesempatan " & Expired - format(Date, "dd-mmm-yyyy") + 1 & " Hari lagi"), vbInformation, "P E S A N"
End Sub

MEMBUAT APLIKASI DEMO
Metode yang terakhir yang akan saya uraikan adalah metode yag paling bayak digunakan oleh para pengembang profesiaonal, metode ini menggunakan demo dengan batasan jumlah hari

Misalkan jumlah demo untuk Aplikasi Gudang Z1 mini adalah 30 hari semenjak aplikasi diinstal oleh calon pembeli, maka Aplikasi Gudang Z1 mini haya bisa digunakan selama 30 hari saja, setelah melewati masa 30 hari maka Aplikasi Gudang Z1 mini tidak lagi bisa digunakan

Untuk medtode yang satu ini saya akan ugkap pada postigan mendatang, makanya bookmark www.excelpro.id agar tidak ketinggalan tutorial mearik lainya, selamat pagi dan selamat menikmati hujan pagi

Baca lanjutan Membuat Aplikasi Demo dengan Macro > Membuat Excel Expired dengan Macro
No comments