dear all be-xl
sy pernah unduh file yg dikirmkan mas hendrik sprti lampiran, tetapi ketika
saya nyari dimana makronya tersimpan
sprti ini sy tidak dapatkan? saya coba klik macro di ribbon cuma muncul makro
"buka" tp isinya lain, mohon pencerahannya bingung nyarinya :
Private Sub Workbook_Open()
Dim exdate As Date
exdate = "01/31/2012"
If Date > exdate Then
MsgBox ("WAKTU anda telah HABIS"), vbInformation, "P E S A N"
ActiveWorkbook.Close
End If
MsgBox ("Anda punya kesempatan " & exdate - Date + 1 & " Hari lagi"),
vbInformation, "P E S A N"
End Sub
passwod "hk", saya pake xl 2007
salam
neza
________________________________
Dari: hendrik karnadi <hendrikkarn...@yahoo.com>
Dikirim: Kamis, 12 Januari 2012 10:38
Judul: Re: [belajar-excel] membuat file expired
Ok, saya kirim kembali file yang expirednya 31 Jan 2012.
Anda dapat memodifikasi tanggal expirednya pada Macro di level workbook dengan
menggunakan password
Macronya adalah sbb:
Private Sub Workbook_Open()
Dim exdate As Date
exdate = "01/31/2012"
If Date > exdate Then
MsgBox ("WAKTU anda telah HABIS"), vbInformation, "P E S A N"
ActiveWorkbook.Close
End If
MsgBox ("Anda punya kesempatan " & exdate - Date + 1 & " Hari lagi"),
vbInformation, "P E S A N"
End Sub
Salam,
Hendrik Karnadi
File tidak bisa dibuka lagi kecuali tgl kompi dimundurkan psswrd hk.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
