Bls: Bls: [belajar-excel] membuat file expired

Tue, 14 Feb 2012 19:14:36 -0800 

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 <[email protected]>
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

Attachment: File tidak bisa dibuka lagi kecuali tgl kompi dimundurkan psswrd hk.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Kirim email ke