Terima kasih om kid..berhasil wassalam, yudha "'Mr. Kid' [email protected] [belajar-excel]" <[email protected]> menulis:
>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 >> >>
