coba penulisan tanggalnya diubah mengikuti standar internalsional #YYYY/MM/DD#
sebagian orang membaca 12/02/2013 sebagai 12 Februari 2013 tetapi ada juga yang membaca sebagai 2 Desember 2013 biar excelnya gak bingung karena regional setting yang berbeda2, maka penulisan tanggal harus selalu diapit oleh tanda pagar di depan dan di belakang lalu formatnya penulisannya adalah Tahun / Bulan / Tanggal oia.. kalau file terdebut dibuka hari ini tanggal 3 Des 2013 maka seharusnya workbook tsb akan tertutup, setelah user menekan tombol OK tapi.. kalo user tidak menekan tombol OK tetapi berusaha membuka vbanya dan berhasil, maka workbook tersebut kemungkinan masih bisa digunakan. Salam, -Miss Jan Raisin- Pada 3 Desember 2013 11.10, Harry <[email protected]> menulis: > > > Dear BeExceller, > > Saya bermaksud untuk membuat Workbook yang saya buat memiliki masa Expired > Date dengan menggunakan Scrip sbb: > > Private Sub Workbook_Open() > Dim exdate As Date > exdate = "12/02/2013" > If Date > exdate Then > MsgBox ("BATAS PENGGUNAAN SUDAH BERAKHIR"), vbInformation, "P E S A N" > ActiveWorkbook.Close > End If > MsgBox ("WORKBOOK INI DAPAT DIPERGUNAKAN " & exdate - Date + 1 & " HARI > LAGI"), vbInformation, "P E S A N" > End Sub > > tapi setelah saya coba, mengapa saya masih bisa membuka Workbook tersebut. > > Sebagai bahan tambahan, Workbook yang telah saya buat memiliki UserName & > password. > Mohon penyerahan dari teman-teman BeExceller sekalian. > > Regards, > > > Harry > > >
