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
________________________________
From: neza ibaneza <nezaiban...@yahoo.co.id>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Thursday, 12 January 2012, 9:20
Subject: Bls: [belajar-excel] membuat file expired
maaf nih mas hendrik... file attach yg dikirim baru sy buka email hari ini jd
sulit untuk ngeliat hasilnya...
mohon pencerahannya untuk membukanya kembali...
neza
________________________________
Dari: hendrik karnadi <hendrikkarn...@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Rabu, 11 Januari 2012 12:40
Judul: Re: [belajar-excel] membuat file expired
Untuk memenuhi keinginan tersebut, ada beberapa hal yang harus diperhatikan:
- Sewaktu file dibuka minimal harus ada satu Sheet, jadi jangan taruh data di
Sheet1
- Sheet2 yang berisi data disembunyikan dengan xlSheetVeryHidden sehingga menu
Unhide tidak dapat digunakan pada saat user mengklik kanan mouse. Sheet2
tersebut hanya bisa dibuka dengan Password "hk"
- Pada saat Worlbook (file) akan disimpan (BeforeSave) Sheet2 yang berisi data
akan disembunyikan lagi dan hanya bisa dibuka dengan Password
- Jika file sudah Expired dan user menonaktifkan Macro untuk mencoba mengupdate
VBAnya, VB Script nya kita protect dengan Password.
Jadi pada saat file dibuka, Macro aktif atau non aktif, yang akan terlihat
hanya Sheet1.
Jika Expiry date akan diubah gunakan Password "hk" dan ganti exdate nya
("bl/tg/th")
Salam,
Hendrik Karnadi
Catatan :
Karena Password masih bisa dihack dengan Software tertentu maka usahakan
Password nya agak panjang (mis. 8 digit) dengan kombinasi huruf dan angka.
Tentunya Password dalam VB Script nya perlu diubah juga.
________________________________
From: neza ibaneza <nezaiban...@yahoo.co.id>
To: EXCEL EXCEL <belajar-excel@yahoogroups.com>
Sent: Wednesday, 11 January 2012, 10:06
Subject: [belajar-excel] membuat file expired
dear all
saya punya file excel penting privaci yg ingin dicopy org lain ..misalnya anak
PKL, dsb.
tapi saya ingin file tersebut expired dalam jangka waktu 60 hari saja.
karena file tersebut file penting di perusahaan
artinya file tersebut tidak bisa lagi kebuka setelah dateline tersebut.
mohon pencerahannya..
neza
File tinggal 20 hari lagi.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
