tambahkan FALSE setelah close activeworkbook.close false Wassalam, Kid
2015-04-16 12:35 GMT+10:00 yudha [email protected] [belajar-excel] <[email protected]>: > > > 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 > >
