Siang master mau nanya tentang kode kadaluarsa nih..saya coba kode berikut ini Private sub woorkbook_open() dim exdate as date exdate = "14/4/2015" if date > exdate Then MsgBox " waktu habis" ActiveWorkbook.close End if End sub
kode diatas berhasil baik..tapi pada saat didalam sheet terdapat rumus seperti ( =today ) maka pada saat mau menutup keluar perintah menyimpan dimana apabila kita klik cancel maka workbook masih bisa dipake seperti biasanya ( tdk terpengaruh dengan kodenya ) mohon solusinya agar pada saat tgl kadaluarsa agar segera menutup tanpa syarat apabila securiti di enable kan terima kasih Yudha
