Cara Membuat File Excel Expired atau Trial Langsung di Tutup

File Excel yang bersifat Expired atau trial artinya file yang tidak bisa dibuka apabila melewati batas masa tertentu. Apabila file tersebut melewati batas yang telah ditentukan maka ketika file tersebut dibuka akan langsung menutup diri atau bahkan menghapus dirinya sendiri. Bahkan semua file excel yang anda buka bisa kena dampaknya artinya bisa ditutup semuanya file yang sedang anda kerjakan. Jadi sebaiknya sebelum membuka file yang expired anda menyimpan file yang sedang anda kerjakan.

Membuat File Excel Expired atau Trial Langsung di Tutup

• Masuk ke Microsoft Visual Basic for Applications window dengan menekan tombol Alt + F11 atau anda klik tab "Developer" lalu klik "Visual Basic". Apabila di Office anda belum tampil tab Developer, silahkan baca "Cara Menampilkan Ribbon Developer"
• Klik 2 kali “ThisWorkbook” kemudian simpan kode berikut pada This Workbook


Kode VBA Excel untuk Membuat File Excel Expired atau Trial Langsung di Tutup

'https://baladaka.blogspot.com
'============================

Private Sub Workbook_Open()

JumlahBuka = GetSetting("baladaka72", "Demo", "JumlahBuka", 0) + 1
If JumlahBuka > 3 Then
    MsgBox "Mohon Maaf Sobat...!!!, Masa Aktif aplikasi ini sudah habis. File akan segera ditutup." & vbCrLf _
    & "Untuk mendapat Full Version, silahkan " _
    & " konfirmasi melalui SMS", vbCritical, "https://baladaka.blogspot.com"
    Application.DisplayAlerts = False
    Application.Quit
End If

SaveSetting "baladaka72", "Demo", "JumlahBuka", JumlahBuka


End Sub



Catatan


• Tulisan baladaka72 bisa anda rubah sesuai keinginan. Apa saja bebas kok, yang penting jangan setiap file namanya sama sebaiknya setiap file tersebut namanya berbeda saja
• Lalu Jumlah buka > 3 artinya bahwa file tersebut hanya bisa dibuka hanya 4 kali, jadi kalau lebih dari 4 kali maka file tersebut akan ditutup
• Untuk tulisan-tulisan yang diberi warna hijau bisa anda rubah sendiri sesuai keinginan
• Kode untuk meng-eksekusi perintah untuk menutup file tersebut : Application.DisplayAlerts = False
  Application.Quit

Sebenarnya ada beberapa cara untuk membuat file excel expired atau trial tersebut, namun dalam kesempatan ini saya hanya menampilkan yang cara seperti di atas, selain mudah juga telah berhasil.

Terima kasih, semoga bermanfaat.

Contoh File File Excel Expired atau Trial Langsung di Tutup

Link Alternatif

Jika File tidak ter-download otomatis, silahkan klik Link Alternatif dan lihat hasil download di folder Downloads

Sumber :