Wa'alaikumussalam Wr. Wb. Hai Prazt,
Coba letakkan di event workbook open, pastikan semua sheet gak diproteksi.
dim vHari as variant
dim sht as worksheet
vhari=array("Minggu!","Senin@","Selasa#","Rabu$","Kamis%","Jumat^","Sabtu&")
'ini base 0, alias mulai dari 0
for each sht in thisworkbook.worksheets
sht.unprotect vhari( weekday( date-1 ) -1 ) & format$(
date-1,"DD-MM-YYYY" )
sht.protect vhari( weekday( date ) -1 ) & format$( date,"DD-MM-YYYY" )
next sht
syarat :
1. tiap hari dibuka
2. tidak boleh buka file jam 23:59:59
hehehe...
dari situ, nanti bisa dikembangkan untuk menghilangkan 2 syarat itu.
sapa yang mo coba ?
Wassalamu'alaikum Wr. Wb.
Kid.
2013/9/26 PRAZT <[email protected]>
> Assalammu’alaikum...****
>
> dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel dengan
> alur cerita begini;****
>
> saya ingin memprotect sheet-sheet pada file excel bisa berganti setiap
> file dibuka dengan kombinasi Hari, karakter(simpul), dan tanggal Diana****
>
> file dibuka. ****
>
> bagaimana kode VBA_nya jika pasword tersebut adalah kombinasi nama
> hari,karakter(simbol), dan tanggal pada waktu file di
> buka ****
>
> dimana simbol diambil dari nomor hari jika hari dimulai dengan hari
> Minggu ****
>
> contoh file dibuka pada hari senin tanggal 23 september 2013 maka
> passwordnya adalah ; ****
>
> Senin@23-09-2013 ****
>
> kalau dibuka hari selasa maka passwordnya Selasa#24-09-2013****
>
> kalau dibuka hari Rabu maka passwordnya Rabu$25-09-2013****
>
> saya sudah berusaha untuk menambahkan kode-kode VBA tapi mentok pada
> kesulitan. Wassalam...****
>
> ** **
>
> ********
>
> PRAZTMATH ™****
>
> ** **
>
<<image002.png>>
<<image001.gif>>
<<image003.png>>
