Mungkin karena macronya masih disable pak Harry?

Aliif Akbar
Sent from my Windows Phone Lumia 620

-----Original Message-----
From: "Harry" <[email protected]>
Sent: ‎03/‎12/‎2013 13:27
To: "[email protected]" <[email protected]>
Subject: [belajar-excel] Expired Workbook

  
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

Kirim email ke