Tip berikut ini akan menjelaskan cara memprogram suatu file/workbook Excel agar dapat digunakan sebelum tanggal tertentu dan Excel dapat menghapus workbook tersebut dengan sendirinya secara otomatis ketika workbook dibuka pada tanggal yang telah melampaui batas waktu [kadaluwarsa].

Diharapkan anda berhati-hati dalam menggunakan kode macro ini, karena pada saat macro dieksekusi maka file akan langsung terhapus [permanen] tanpa terlebih dahulu membuangnya ke Recycle Bin pada umumnya. Untuk mengantisipasi hal tersebut, buat salinan file dulu jika anda akan menggunakan file excel yang ada di komputer anda.

Adapun susunan kode macronya adalah:
Sub Workbook_Open()
If Date <= #bulan/tanggal/tahun# Then Exit Sub
MsgBox "File ini telah kadaluwarsa.", vbExclamation, "File akan terhapus!"
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End Sub
Berikut ini langkah-langkah penerapan kode yang dapat anda ikuti:
  1. Buat workbook baru sebagai contoh.
  2. Tekan ALT+F11 untuk membuka VBE.
  3. Pada panel Project, klik kanan 'ThisWorkbook' pilih 'View Code'.
  4. Tulis kode macro di atas pada module workbook. Masukkan tanggal kadaluwarsa file dengan format bulan/tanggal/tahun, jangan hapus kedua tanda pagarnya (#).
  5. Tekan ALT+F11 untuk kembali ke workbook.
  6. Simpan workbook dengan jenis file '.xlsm' dan tutup Microsoft Excel.
  7. Silakan buka kembali workbook yang telah anda simpan tadi.
Anda juga mungkin ingin memproteksi VBE dengan password agar kode macro tersebut tidak dapat dimodifikasi atau dihapus oleh pengguna lain sehingga kode akan tetap aman menjalankan tugasnya.