Ini saya lampirkan file yang sdh diupdate exdatenya s/d tgl 10 Maret 2012 krn tgl 11 Maret .. sdh ganti Pimpinan.
Salam,
Hendrik Karnadi
Buka VBA nya pakai password yang sama
________________________________
From: neza ibaneza <nezaiban...@yahoo.co.id>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Wednesday, 15 February 2012, 9:49
Subject: Bls: Bls: [belajar-excel] membuat file expired
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 bisa dibuka sd tgl 10 Maret (11 Maret sdh ganti Pemimpin).xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
