Cara Membuat File Excel Expired Langsung di Hapus Permanen

Pada artikel sebelumnya "Cara Membuat File Excel Expired atau Trial Langsung di Tutup" telah dibahas cara membuat file Excel yang bersifat Expired atau trial dan file tersebut akan ditutup otomatis apabila melebihi batas expired.
Dan untk kali ini akan dibahas cara membuat file excell expired atau Trial dan akan di hapus secara permanen apabila melewati batas masa tertentu. Namun untuk membuat perintah ini sebaiknya anda hati-hati karena apabila file tersebut dihapus maka anda tidak bisa mengembalikannya kembali, jadi sebaiknya apabila membuat file expired ini anda buatkan file cadangannya.

Cara Membuat File Excel Expired Langsung di Hapus Permanen

• 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 Langsung di Hapus Permanen

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

Private Sub Workbook_Open()

JumlahBuka = GetSetting("baladaka26", "Demo", "JumlahBuka", 0) + 1
If JumlahBuka > 3 Then
    MsgBox "Mohon Maaf Sobat...!!!, Masa Aktif aplikasi ini sudah habis. File akan langsung dihapus permanen." & vbCrLf _
    & "Untuk mendapat Full Version, silahkan " _
    & " konfirmasi melalui SMS", vbCritical, "https://baladaka.blogspot.com"
    	
	With ThisWorkbook
	.Saved = True
	.ChangeFileAccess xlReadOnly
	Kill .FullName
	.Close False
	End With

End If

SaveSetting "baladaka26", "Demo", "JumlahBuka", JumlahBuka

End Sub



Catatan


• Untuk penjelasan kode bisa di lihat pada "Cara Membuat File Excel Expired atau Trial Langsung di Tutup"
• Kode untuk meng-eksekusi perintah untuk menghapus secara permanen file tersebut :
  With ThisWorkbook
  .Saved = True
  .ChangeFileAccess xlReadOnly
  Kill .FullName
  .Close False
  End With

Terima kasih, semoga bermanfaat.

Contoh File File Excel Expired atau Trial Langsung di Hapus Permanen

Link Alternatif

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