terima kasih banyak nih mas hendrik & rekan excel lainnya yg udah bantu..
salam
neza
________________________________
Dari: hendrik karnadi <hendrikkarn...@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 13 Januari 2012 9:58
Judul: Re: Bls: Bls: [belajar-excel] membuat file expired
Atau bisa juga Tanggal Awal (yang dihidden) ditambah banyaknya (jumlah) hari
yang diperkenankan.
Jadi logikanya + seperti ini :
- Jika tanggal dimundurin (Tanggal Sekarang < Tanggal Awal) maka tampilkan
pesan "Maaf, anda sudah berlaku tidak jujur karena sudah merubah tanggal" dan
file langsung ditutup.
- Jika Tanggal sekarang > Tanggal Awal + jumlah hari yang diperkenankan maka
tampilkan pesan "File sudah expired" dan file langsung ditutup.
- Jika Tanggal sekarang < Tanggal Awal + jumlah hari yang diperkenankan maka
file bisa langsung dibuka (tidak perlu pesan).
Logika sederhana ini mudah2an bisa menjadi renungan pagi dan menjadi langkah
awal untuk rekan2 Be-Excel yang baru mulai mencoba membuat program.
Salam,
Hendrik Karnadi
________________________________
From: Hilman <hilman_em...@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Thursday, 12 January 2012, 17:59
Subject: Re: Bls: Bls: [belajar-excel] membuat file expired
ralat ya....
Kalo ngga, ya berarti tinggal dikurangi aja tanggal skarang dengan dengan
tanggal hari ini.
seharusnya
Kalo ngga, ya berarti tinggal dikurangi aja Tanggal Sekarang dengan dengan
TanggalAwal.
________________________________
From: Hilman <hilman_em...@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Thursday, January 12, 2012 5:56 PM
Subject: Re: Bls: Bls: [belajar-excel] membuat file expired
Mungkin bisa dengan menyimpan TanggalAwal pada range A1 misalnya, di sheet
"DataRahasia" yang tentunya sheet ini harus xlSheetVeryHidden statusnya.
TanggalAwal ini akan diisi dan dan di save pada saat pertama kali workbook tsb
dibuka.
Nanti pada workbooks_beforeclose event, jg ditambahakan code untuk menyimpan
TanggalAkhir workbooks tsb dibuka.
Jadi ketika workbook tersebut dibuka selanjutnya, bisa dicek tanggalnya apakah
dia coba nge-cheat tanggal computer. Kalo TanggalAkhir kurang Tanggal sekarang
lebih kecil dari 0 berarti dia sudah coba nge-cheat, langsung jalankan prosedur
nge-blok. Kalo ngga, ya berarti tinggal dikurangi aja tanggal skarang dengan
dengan tanggal hari ini.
Gitu bisa kali ya..
________________________________
From: neza ibaneza <nezaiban...@yahoo.co.id>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Thursday, January 12, 2012 3:14 PM
Subject: Bls: Bls: [belajar-excel] membuat file expired
apakah ini jawaban untuk penggunaannya pada MS office lain?
neza
________________________________
Dari: hendrik karnadi <hendrikkarn...@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Kamis, 12 Januari 2012 11:15
Judul: Re: Bls: [belajar-excel] membuat file expired
Alternatifnya,
- Hapus pesan pada Sheet1 maupun pada VB Scrip tnya MsgBox ("Anda punya
kesempatan " & exdate - Date + 1 & " Hari lagi"), vbInformation, "P E S A N"
- Buat Macro tambahan untuk menghapus Sheet2 yang berisi data pada saat file
sudah Expired, seperti saran Pak o'Seno.
Salam,
Hendrik Karnadi
________________________________
From: hendrik karnadi <hendrikkarn...@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Thursday, 12 January 2012, 9:57
Subject: Re: Bls: [belajar-excel] membuat file expired
Kalau ini masalah di level administrator. Jadi harus diset agar tanggal
sistemnya tidak bisa diubah.
Excel kan berada di bawah Operating System, jadi untuk ngeset di Excel agar
tanggal tidak bisa diubah kayaknya agak susah.
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:37
Subject: Bls: [belajar-excel] membuat file expired
waduh... saya coba dengan memundurkan change date pada kompi saya... filenya
bisa kebuka lagi (apakah ini kelemahan), tp masih ada passwordnya kok.....
thanks..
mas..
________________________________
Dari: neza ibaneza <nezaiban...@yahoo.co.id>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Kamis, 12 Januari 2012 10:20
Judul: 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
