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
