7 New Messages
Digest #2565
Messages
Sat Sep 28, 2013 8:34 am (PDT) . Posted by:
"rizald al kaaf"
Malam rekan2
Salam hangat dari denpasar, Bali
Saya lagi coba olah tabel penduduk nih..cuma agak bingung..dapetnya dari
pihak lain sudah seperti terlampir
Intinya..saya ingin setiap nik/nama diketahui no KK plus alamatnya
Terima Kasih sebelumnya atas perhatian dan bantuannya
Matur Suksma
--
~Rizald D AlKaaf
Salam hangat dari denpasar, Bali
Saya lagi coba olah tabel penduduk nih..cuma agak bingung..dapetnya dari
pihak lain sudah seperti terlampir
Intinya..saya ingin setiap nik/nama diketahui no KK plus alamatnya
Terima Kasih sebelumnya atas perhatian dan bantuannya
Matur Suksma
--
~Rizald D AlKaaf
Sat Sep 28, 2013 9:09 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Rizald,
Coba pada C3 diberi formula :
=IF(LEN(B3),LOOKUP("z",A$2:A2),"")
dan pada D3 diberi formula :
=IF(LEN(B3),LOOKUP("z",A$2:A2,E$2:E2),"")
Copy kebawah kedua formula tersebut.
Formula C3 : (*baris kerja di baris 3*) ->
=IF(LEN(B3),LOOKUP("z",A$2:A2),"")
"Jika [IF] kolom B ada isinya [Len(B3)] maka lakukan pencarian [LookUp(]
huruf z ["z"] di No (kolom A) yang *selalu mulai dari* baris 2 [A$2] sampai
[:] di *1 baris sebelum baris kerja* [A2], kalau ketemu, ambil nilai data
dikolom pencarian itu (kolom A). Jika kolom B tidak ada isinya, isi dengan
NullString [""]."
Formula D3 : (*baris kerja di baris 3*) ->
=IF(LEN(B3),LOOKUP("z",A$2:A2,E$2:E2),"")
"Jika [IF] kolom B ada isinya [Len(B3)] maka lakukan pencarian [LookUp(]
huruf z ["z"] di No (kolom A) yang *selalu mulai dari* baris 2 [A$2] sampai
[:] di baris sebelum baris kerja [A2], kalau ketemu, ambil nilai data
dikolom E yang sesuai posisi ketemunya, dengan data kolom E yang dipakai
adalah *selalu mulai dari* baris 2 [E$2] sampai [:] di *1 baris sebelum
baris kerja* [E2]. Jika kolom B tidak ada isinya, isi dengan NullString
[""]."
Selamat mencoba.
Wassalam,
Kid.
2013/9/28 rizald al kaaf <r.alkaaf@gmail.com>
> **
>
>
> Malam rekan2
> Salam hangat dari denpasar, Bali
> Saya lagi coba olah tabel penduduk nih..cuma agak bingung..dapetnya dari
> pihak lain sudah seperti terlampir
> Intinya..saya ingin setiap nik/nama diketahui no KK plus alamatnya
> Terima Kasih sebelumnya atas perhatian dan bantuannya
> Matur Suksma
>
> --
> ~Rizald D AlKaaf
>
>
Coba pada C3 diberi formula :
=IF(LEN(B3),
dan pada D3 diberi formula :
=IF(LEN(B3),
Copy kebawah kedua formula tersebut.
Formula C3 : (*baris kerja di baris 3*) ->
=IF(LEN(B3),
"Jika [IF] kolom B ada isinya [Len(B3)] maka lakukan pencarian [LookUp(]
huruf z ["z"
[:] di *1 baris sebelum baris kerja* [A2], kalau ketemu, ambil nilai data
dikolom pencarian itu (kolom A). Jika kolom B tidak ada isinya, isi dengan
NullString [""
Formula D3 : (*baris kerja di baris 3*) ->
=IF(LEN(B3),
"Jika [IF] kolom B ada isinya [Len(B3)] maka lakukan pencarian [LookUp(]
huruf z ["z"
[:] di baris sebelum baris kerja [A2], kalau ketemu, ambil nilai data
dikolom E yang sesuai posisi ketemunya, dengan data kolom E yang dipakai
adalah *selalu mulai dari* baris 2 [E$2] sampai [:] di *1 baris sebelum
baris kerja* [E2]. Jika kolom B tidak ada isinya, isi dengan NullString
[""
Selamat mencoba.
Wassalam,
Kid.
2013/9/28 rizald al kaaf <r.alkaaf@gmail.
> **
>
>
> Malam rekan2
> Salam hangat dari denpasar, Bali
> Saya lagi coba olah tabel penduduk nih..cuma agak bingung..dapetnya dari
> pihak lain sudah seperti terlampir
> Intinya..saya ingin setiap nik/nama diketahui no KK plus alamatnya
> Terima Kasih sebelumnya atas perhatian dan bantuannya
> Matur Suksma
>
> --
> ~Rizald D AlKaaf
>
>
Sat Sep 28, 2013 6:27 pm (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
untuk mengisi kolom No KK di C3 formulanya :
=IF($B3="";"";INDEX(A$3:A3;MATCH("z";A$3:A3)))
copy ke bawah
untuk mengisi kolom Alamat di D3 formulanya :
=IF($B3="";"";INDEX(E$3:E3;MATCH("z";A$3:A3)))
copy ke bawah
wassalam
Ghozi Alkatiri
________________________________
Dari: rizald al kaaf <r.alkaaf@gmail.com>
Kepada: belajar-excel <belajar-excel@yahoogroups.com>
Dikirim: Sabtu, 28 September 2013 8:34
Judul: [belajar-excel] mohon solusi tabel [1 Attachment]
Malam rekan2
Salam hangat dari denpasar, Bali
Saya lagi coba olah tabel penduduk nih..cuma agak bingung..dapetnya dari pihak lain sudah seperti terlampir
Intinya..saya ingin setiap nik/nama diketahui no KK plus alamatnya
Terima Kasih sebelumnya atas perhatian dan bantuannya
Matur Suksma
--
~Rizald D AlKaaf
=IF($B3="
copy ke bawah
untuk mengisi kolom Alamat di D3 formulanya :
=IF($B3="
copy ke bawah
wassalam
Ghozi Alkatiri
____________
Dari: rizald al kaaf <r.alkaaf@gmail.
Kepada: belajar-excel <belajar-excel@
Dikirim: Sabtu, 28 September 2013 8:34
Judul: [belajar-excel] mohon solusi tabel [1 Attachment]
Malam rekan2
Salam hangat dari denpasar, Bali
Saya lagi coba olah tabel penduduk nih..cuma agak bingung..dapetnya dari pihak lain sudah seperti terlampir
Intinya..saya ingin setiap nik/nama diketahui no KK plus alamatnya
Terima Kasih sebelumnya atas perhatian dan bantuannya
Matur Suksma
--
~Rizald D AlKaaf
Sat Sep 28, 2013 11:11 pm (PDT) . Posted by:
"rizald al kaaf"
Salim om kid
It works hehe
Lanjuutt ah garapan ku
Makasih banyak
On Sunday, September 29, 2013, Mr. Kid <mr.nmkid@gmail.com> wrote:
>
>
> Hai Rizald,
>
> Coba pada C3 diberi formula :
> =IF(LEN(B3),LOOKUP("z",A$2:A2),"")
>
> dan pada D3 diberi formula :
> =IF(LEN(B3),LOOKUP("z",A$2:A2,E$2:E2),"")
>
> Copy kebawah kedua formula tersebut.
>
> Formula C3 : (baris kerja di baris 3) ->
=IF(LEN(B3),LOOKUP("z",A$2:A2),"")
> "Jika [IF] kolom B ada isinya [Len(B3)] maka lakukan pencarian [LookUp(]
huruf z ["z"] di No (kolom A) yang selalu mulai dari baris 2 [A$2] sampai
[:] di 1 baris sebelum baris kerja [A2], kalau ketemu, ambil nilai data
dikolom pencarian itu (kolom A). Jika kolom B tidak ada isinya, isi dengan
NullString [""]."
>
> Formula D3 : (baris kerja di baris 3) ->
=IF(LEN(B3),LOOKUP("z",A$2:A2,E$2:E2),"")
> "Jika [IF] kolom B ada isinya [Len(B3)] maka lakukan pencarian [LookUp(]
huruf z ["z"] di No (kolom A) yang selalu mulai dari baris 2 [A$2] sampai
[:] di baris sebelum baris kerja [A2], kalau ketemu, ambil nilai data
dikolom E yang sesuai posisi ketemunya, dengan data kolom E yang dipakai
adalah selalu mulai dari baris 2 [E$2] sampai [:] di 1 baris sebelum baris
kerja [E2]. Jika kolom B tidak ada isinya, isi dengan NullString [""]."
>
> Selamat mencoba.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
> 2013/9/28 rizald al kaaf <r.alkaaf@gmail.com>
>>
>>
>>
>> Malam rekan2
>> Salam hangat dari denpasar, Bali
>> Saya lagi coba olah tabel penduduk nih..cuma agak bingung..dapetnya dari
pihak lain sudah seperti terlampir
>> Intinya..saya ingin setiap nik/nama diketahui no KK plus alamatnya
>> Terima Kasih sebelumnya atas perhatian dan bantuannya
>> Matur Suksma
>>
>> --
>> ~Rizald D AlKaaf
>
>
--
~Rizald D AlKaaf
It works hehe
Lanjuutt ah garapan ku
Makasih banyak
On Sunday, September 29, 2013, Mr. Kid <mr.nmkid@gmail.
>
>
> Hai Rizald,
>
> Coba pada C3 diberi formula :
> =IF(LEN(B3),
>
> dan pada D3 diberi formula :
> =IF(LEN(B3),
>
> Copy kebawah kedua formula tersebut.
>
> Formula C3 : (baris kerja di baris 3) ->
=IF(LEN(B3),
> "Jika [IF] kolom B ada isinya [Len(B3)] maka lakukan pencarian [LookUp(]
huruf z ["z"
[:] di 1 baris sebelum baris kerja [A2], kalau ketemu, ambil nilai data
dikolom pencarian itu (kolom A). Jika kolom B tidak ada isinya, isi dengan
NullString [""
>
> Formula D3 : (baris kerja di baris 3) ->
=IF(LEN(B3),
> "Jika [IF] kolom B ada isinya [Len(B3)] maka lakukan pencarian [LookUp(]
huruf z ["z"
[:] di baris sebelum baris kerja [A2], kalau ketemu, ambil nilai data
dikolom E yang sesuai posisi ketemunya, dengan data kolom E yang dipakai
adalah selalu mulai dari baris 2 [E$2] sampai [:] di 1 baris sebelum baris
kerja [E2]. Jika kolom B tidak ada isinya, isi dengan NullString [""
>
> Selamat mencoba.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
> 2013/9/28 rizald al kaaf <r.alkaaf@gmail.
>>
>>
>>
>> Malam rekan2
>> Salam hangat dari denpasar, Bali
>> Saya lagi coba olah tabel penduduk nih..cuma agak bingung..dapetnya dari
pihak lain sudah seperti terlampir
>> Intinya..saya ingin setiap nik/nama diketahui no KK plus alamatnya
>> Terima Kasih sebelumnya atas perhatian dan bantuannya
>> Matur Suksma
>>
>> --
>> ~Rizald D AlKaaf
>
>
--
~Rizald D AlKaaf
Sat Sep 28, 2013 11:14 pm (PDT) . Posted by:
"rizald al kaaf"
@gHozi...coba ntar kucoba rumus ini
Sepertinya hasilnya sama ya dgn formula dr mr.kid
Makasih banyak
On Sunday, September 29, 2013, ghozi alkatiri <ghozialkatiri@yahoo.co.id>
wrote:
>
>
> untuk mengisi kolom No KK di C3 formulanya :
>
> =IF($B3="";"";INDEX(A$3:A3;MATCH("z";A$3:A3)))
> copy ke bawah
>
> untuk mengisi kolom Alamat di D3 formulanya :
>
> =IF($B3="";"";INDEX(E$3:E3;MATCH("z";A$3:A3)))
> copy ke bawah
>
> wassalam
>
> Ghozi Alkatiri
>
>
>
>
>
> ________________________________
> Dari: rizald al kaaf <r.alkaaf@gmail.com>
>
> Kepada: belajar-excel <belajar-excel@yahoogroups.com>
> Dikirim: Sabtu, 28 September 2013 8:34
> Judul: [belajar-excel] mohon solusi tabel [1 Attachment]
>
>
> Malam rekan2
> Salam hangat dari denpasar, Bali
> Saya lagi coba olah tabel penduduk nih..cuma agak bingung..dapetnya dari
pihak lain sudah seperti terlampir
> Intinya..saya ingin setiap nik/nama diketahui no KK plus alamatnya
> Terima Kasih sebelumnya atas perhatian dan bantuannya
> Matur Suksma
>
> --
> ~Rizald D AlKaaf
>
>
>
--
~Rizald D AlKaaf
Sepertinya hasilnya sama ya dgn formula dr mr.kid
Makasih banyak
On Sunday, September 29, 2013, ghozi alkatiri <ghozialkatiri@
wrote:
>
>
> untuk mengisi kolom No KK di C3 formulanya :
>
> =IF($B3="
> copy ke bawah
>
> untuk mengisi kolom Alamat di D3 formulanya :
>
> =IF($B3="
> copy ke bawah
>
> wassalam
>
> Ghozi Alkatiri
>
>
>
>
>
> ____________
> Dari: rizald al kaaf <r.alkaaf@gmail.
>
> Kepada: belajar-excel <belajar-excel@
> Dikirim: Sabtu, 28 September 2013 8:34
> Judul: [belajar-excel] mohon solusi tabel [1 Attachment]
>
>
> Malam rekan2
> Salam hangat dari denpasar, Bali
> Saya lagi coba olah tabel penduduk nih..cuma agak bingung..dapetnya dari
pihak lain sudah seperti terlampir
> Intinya..saya ingin setiap nik/nama diketahui no KK plus alamatnya
> Terima Kasih sebelumnya atas perhatian dan bantuannya
> Matur Suksma
>
> --
> ~Rizald D AlKaaf
>
>
>
--
~Rizald D AlKaaf
Sat Sep 28, 2013 9:25 am (PDT) . Posted by:
"De Premor" de.premor
Code revisi sudah dikirim beberapa hari lalu, tapi sepertinya tidak
selamat sampai tujuan
berikut dikirimkan ulang, semoga kali ini masuk
Difile terlampir disertakan juga untuk enkripsi tanggal sederhana
Pada 28/09/2013 18:29, Mr. Kid menulis:
> Oh iya, idenya menambahkan userform untuk load itu bagus. File
> digunakan kerja berapa lama pun (sampai ganti hari) tetap oke
> (penggunaan variabel sPwd yang pas penempatannya. Tapi, pertama kali
> si file dibuka, semua sheet data tidak terprotect.
>
> *Terlepas semua orang bisa membongkar password VBAProject ataupun
> password worksheet ya...*
> Jika filenya miss Jan dibuka lalu security macro dipilih Disable, maka
> userform yang punya tugas untuk meng-quit si file tidak bekerja.
> Jadinya, semua sheet data bisa terekspose oleh workbook lain dalam
> instansi excel tersebut.
>
> Misal, ada sebuah file ber-VBA yang dibuka bernama FileA yang tidak
> diproteksi VBAProjectnya,
> sedang file miss Jan yang diproteksi VBAProject-nya belum dibuka.
>
> Ketika FileA dibuka dan di-enable macro, maka VBA dalam FileA bisa
> bekerja dan VBAProject milik FileA bisa dilihat.
> Kemudian file miss Jan dibuka dan security Macro tidak di-enable alias
> tetap disable, maka userform di file miss Jan tidak berjalan alias
> sheet yang tampil adalah sheet Menu. Jika ke VBE, maka VBAProject
> FileA bisa dilihat isinya dan file miss Jan tidak bisa dilihat isi
> VBAProjectnya.
>
> Kemudian di FileA di VBA-nya, diberi prosedur untuk meng-visible-kan
> semua sheet, maka semua sheet dalam file miss Jan bisa diganti nilainya.
>
> Sedangkan si FileA tadi itu bisa jadi sebuah file excel baru yang
> kemudian diisi VBA dan disave sebagai Macro Enabled Workbook (.xlsm).
>
> Tentu akan sedikit berbeda (karena ada pengabaian tentang *Terlepas
> semua orang bisa membongkar password VBAProject ataupun password
> worksheet ya...*) ketika semua sheet selalu dalam keadaan ter-protect
> saat tidak digunakan (tertutup).
>
> Script-nya PakDe sudah bisa melakukannya.
> Cukup tambahkan saja proses Thisworkbook.Save tepat sebelum End Sub di
> event WorkbookOpen.
> Apalagi kalau yang disimpan dalam script PakDe adalah tanggalnya saja
> (bukan passwordnya).
> Kemudian, cell tersebut diatur supaya warna fontnya sama dengan warna
> latar cell (supaya bisa diletakkan di cell A1 saja tapi ndak kelihatan).
> Sheet yang menyimpan tanggal tersebut diprotect dengan password
> tertentu yang berbeda dengan sheet lainnya.
> Proses ganti password dalam workbook open selalu didahului buka
> proteksi sheet penyimpan tanggal dan diakhiri dengan memproteksi sheet
> penyimpan tanggal.
> Dalam blok event workbook open diberi on error resume next dan ditutup
> dengan err.clear dan on error goto 0 supaya pengaturan error
> selanjutnya bisa diserahkan ke script yang ada didalam file selain
> workbook open.
> VBAProject diproteksi.
>
> kira-kira bunyi script pakDe jadi : (pinjem scriptnya pakde)
>
> Dim TmpPass as string, NewPass as string, Sht as worksheet, vhari as
> Variant, dtCur as date
> on error resume next
> vhari=array("Minggu!","Senin@","Selasa#","Rabu$","Kamis%","Jumat^","Sabtu&")
>
>
> application.screenupdating = false
> sheets("SheetPassword").visible = xlsheetvisible
>
> sheets("SheetPassword").unprotect "cekripnyaPakD"
> TmpPass = sheets("SheetPassword").range("a1").value
>
> dtCur =date
> NewPass = vhari( weekday( dtCur ) -1 ) & format$( dtCur,"DD-MM-YYYY" )
>
> for each Sht in worksheets
> Sht.unprotect TmpPass
> Sht.protect NewPass
> next
>
> sheets("SheetPassword").range("a1") = dtcur 'NewPass
> sheets("SheetPassword").range("a1").font.colorindex= _
> sheets("SheetPassword").range("a1").interior.colorindex
>
> sheets("SheetPassword").enableselection=unlockedcells
> sheets("SheetPassword").protect "cekripnyaPakD"
> sheets("SheetPassword").visible = xlsheetveryhidden
> application.displayalerts=false
> thisworkbook.save
> application.displayalerts=true
> application.screenupdating = true
> err.clear
> on error goto 0
>
> tapi bisa jadi script diatas ada errornya, soale belum dicoba. Silakan
> BeExceller yang pada suka VBA memperbaikinya. Eh atau malah PakDe yang
> punya script yang mau memperbaikinya... suwun...
>
> Wassalam,
> Kid.
>
>
> 2013/9/28 PRAZT <praztmath@gmail.com <mailto:praztmath@gmail.com>>
>
> Masih lanjut Mr.Kid, solusi dari Mis Jan bagus tadi...sekali lagi
> makasih MK, MJR, MHK,Pak De, bang Zain, dan master-master yang
> sudah banyak membantu....kasus ini saya tutup dengan solusi dari
> Mis Jan...Wassalam..
>
> PRAZTMATH �
>
> *From:*belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>
> [mailto:belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>] *On Behalf Of *Mr. Kid
> *Sent:* 28 September 2013 06:37
>
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai nama
> hari dan tanggal dibuka
>
> hehehe....
>
> masih juga dilanjutkan ya...
>
> Pak HK,
> bagaimana jika dicopasken script yang dipakai sampai gak jalan
> tersebut.
>
> bagaimana kalai dicoba juga diworkbook baru, siapa tahu nanti bisa
> tampak penyebabnya.
>
> Wassalam,
>
> Kid.
>
>
>
>
>
> 2013/9/27 hendrik karnadi <hendrikkarnadi@yahoo.com
> <mailto:hendrikkarnadi@yahoo.com>>
>
> Saya barusan coba ketik Password:
>
> Jum'at%27-09-2013 dan Jumat%27-09-2013 koq ga jalan ya ?
>
> Salam,
>
> HK
>
> ----------------------------------------------------------
>
> *From:*PRAZT <praztmath@gmail.com <mailto:praztmath@gmail.com>>
> *To:* belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>
>
> *Sent:*Friday, 27 September 2013, 9:39
>
>
> *Subject:* RE: [belajar-excel] paswword sheet berganti sesuai
> nama hari dan tanggal dibuka
>
> Pk De ikut nih jadi tambah ilmu lagi nih ntar hehehe....kalau
> sampai lembur bom pernah saya cb pk De, tapi kalau kompi udah
> dimatika sih bisa berganti kemarin (sebelum ada tambahan �
> pada baris pwd = .Text(Now, "[$-421]ddd""" & arrSymbol(i - 1)
> & """dd-mm-yyyy")
>
> PRAZTMATH �
>
> *From:*belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>
> [mailto:belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>] *On Behalf Of *De Premor
> *Sent:* 27 September 2013 08:07
> *To:* belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai
> nama hari dan tanggal dibuka
>
> Pada kode yang disertakan error disebabkan oleh kalau
> dieksekusi akan menjadi *ddd%dd-mm-yyyy* yang bikin eksyel
> bingung,
> biar eksyel ndak bingung coba dikasih tanda kutip sehingga
> menjadi *ddd"%"dd-mm-yyyy*
> Kalau dibahasakan ke rumus menjadi
>
> pwd = .Text(Now, "[$-421]ddd""" & arrSymbol(i - 1) &
> """dd-mm-yyyy")
>
> Oiya, mau tanya, kalau kira2 saya mbuka filenya sekitar jam
> 10'an malam, trus lembur sampai pagi baru saya close filenya,
> kira-kira apa yang terjadi ya ?
>
> On 27-09-2013 7:16, PRAZT wrote:
>
> Assalamu�alaikum....
>
> Selamat pagi Mr.Kid dan beExceller yang lain...
>
> Kalau itu saya kurang paham MK, tapi pada intinya kalau
> pakai sht.Unprotect PasswordKu itu kalau pas di tutup ada
> errornya tapi untuk hari ini tidak, hanya saja untuk hari
> ini malah erornya berpindah pada baris blok kuning berikut
> dan coba buka file lampiran ;
>
> '=================================
>
> Function PasswordKu()
>
> Dim pwd As String, i As Integer
>
> Dim arrSymbol As Variant
>
> arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")
>
> With Application.WorksheetFunction
>
> i = .Weekday(Now, 2)
>
> pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) &
> "dd-mm-yyyy")
>
> End With
>
> PasswordKu = pwd
>
> End Function
>
> Dengan bunyi eror seperti ini
>
> PRAZTMATH �
>
> *From:*belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>
> [mailto:belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
> *Sent:* 26 September 2013 17:15
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] paswword sheet berganti
> sesuai nama hari dan tanggal dibuka
>
> Maaf,
>
> saya ndak mudeng dasar penggantian dari sht.Unprotect
> PasswordKu menjadi sht.Protect PasswordKu itu apa ya ?
>
> Apalagi sampai diputuskan bisa berjalan dengan normal.
>
> Apa maksud normal ? tidak muncul error ?
>
> kalau normal berarti tidak muncul error, berikan saja
> baris On error resume next disetiap prosedur. Jamin, gak
> akan ada error yang pernah muncul dalam setiap proses.
> Tapi, apa terus berarti si prosedur udah baik dan benar
> kalau ndak muncul error ?
>
> Bukankah errornya yang muncul saat pakai sht.Unprotect
> PasswordKu adalah tidak bisa buka proteksi sheet ?
>
> Itukan artinya sheet sudah terproteksi dengan password
> (misalnya : kid ganteng) terus baris itu akan unprotect
> dengan hasil function PasswordKu berisi teks 'kid cakep'
>
> Nah kan gak bisa kalau sheet yang diproteksi pakai 'kid
> ganteng' akan di unprotect (kuning) oleh 'kid cakep'
>
> Kalau sht.Unprotect PasswordKu diubah menjadi sht.Protect
> PasswordKu
>
> , lalu blok yang bunyi :
>
> If bolProtect Then
>
> sht.Protect PasswordKu
>
> Else
>
> sht.Unprotect PasswordKu 'di sini terjadi galat,
> mungkinkah maksudya adalah sht.Protect PasswordKu
>
> End If
>
> akan menjadi :
>
> If bolProtect Then
>
> sht.Protect PasswordKu
>
> Else
>
> sht.Protect PasswordKu
>
> End If
>
> lalu, apa gunanya blok IF tersebut ?
>
> Wassalam,
>
> Kid.
>
> 2013/9/26 PRAZT <praztmath@gmail.com
> <mailto:praztmath@gmail.com>>
>
> Udah saya ganti dari sht.Unprotect PasswordKu menjadi
> sht.Protect PasswordKu sehingga bisa berjalan normal,
> makasih Mas Zain n Mr.Kid, terus gmn pendapat mas Zain
> tentang pendapat Mr.Kid tadi apakah lebih baik di
> kasih pemaksaan ke user untuk mengenablekan security
> macro atau pakai sheet penyimpan password seperti yang
> Mr.Kid bilang tadi?
>
> *From:*belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>[mailto:belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>] *On Behalf Of
> *zainul_ulum[at]yahoo[dot]com
> *Sent:* 26 September 2013 16:55
>
>
> *To:* belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>
> *Subject:* RE: [belajar-excel] paswword sheet berganti
> sesuai nama hari dan tanggal dibuka [1 Attachment]
>
> mas Prast,
>
> silahkan dicoba file terlampir.
>
> thanks
>
> -zainul-
>
> *From:*belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>[mailto:belajar-excel@yahoogroups.com]
> *On Behalf Of *PRAZT
> *Sent:* Thursday, September 26, 2013 4:45 PM
>
>
> *To:* belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>
> *Subject:* RE: [belajar-excel] paswword sheet berganti
> sesuai nama hari dan tanggal dibuka
>
> Ohh yang saya tampilkan hanya pada bagian yang eror Mr.Kid
>
> Kumplitannya begini dari mas Zain
>
> '=================================
>
> Function PasswordKu()
>
> Dim pwd As String, i As Integer
>
> Dim arrSymbol As Variant
>
> arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")
>
> With Application.WorksheetFunction
>
> i = .Weekday(Now, 2)
>
> pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) &
> "dd-mm-yyyy")
>
> End With
>
> PasswordKu = pwd
>
> End Function
>
> Sub ProtectSheets(ByVal bolProtect As Boolean)
>
> Dim sht As Worksheet
>
> For Each sht In ActiveWorkbook.Worksheets
>
> If bolProtect Then
>
> sht.Protect PasswordKu
>
> Else
>
> sht.Unprotect PasswordKu di sini terjadi galat,
> mungkinkah maksudya adalah sht.Protect PasswordKu
>
> End If
>
> Next
>
> End Sub
>
> '=====code ini di tulis di object workbook==============
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
>
> ProtectSheets False
>
> End Sub
>
> Private Sub Workbook_Open()
>
> ProtectSheets True
>
> End Sub
>
> '===========================
>
> *From:*belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>[mailto:belajar-excel@yahoogroups.com]
> *On Behalf Of *Mr. Kid
> *Sent:* 26 September 2013 16:29
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] paswword sheet berganti
> sesuai nama hari dan tanggal dibuka
>
> Bukankah function yang dibuat mas Zain bernama PasswordKu_
>
> Coba gunakan PasswordKu_ daripada PasswordKu
>
> Wassalam,
>
> Kid.
>
> 2013/9/26 PRAZT <praztmath@gmail.com
> <mailto:praztmath@gmail.com>>
>
> @_Iya M.Kid, jadi user harus enable security
> macronya, tapi saya akali dengan memaksa user
> harus mengenabelkan security macro (tapi masih
> menggunakan VBA sih) ato mungkin Mr.Kid ada solusi
> untuk hal ini ?
>
> @_Mas Zainul, bisa tuh coba untuk hari ini dan
> besok hasilnya gmn...tapi mungkin tidak itu
> terjadi seperti yang dikatakan Mr.Kid...
>
> Terus pas saat di buka file tersebut terjadi eror
> pada bagian per tanda kuning berikut :
>
> Sub ProtectSheets(ByVal bolProtect As Boolean)
>
> Dim sht As Worksheet
>
> For Each sht In ActiveWorkbook.Worksheets
>
> If bolProtect Then
>
> sht.Protect PasswordKu
>
> Else
>
> sht.Unprotect PasswordKu apakah mungkin maksudnya
> adalah sht.Protect PasswordKu
>
> End If
>
> Next
>
> End Sub
>
> *From:*belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>[mailto:belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>] *On Behalf
> Of *Mr. Kid
> *Sent:* 26 September 2013 15:45
> *To:* BeExcel
>
>
> *Subject:* Re: [belajar-excel] paswword sheet
> berganti sesuai nama hari dan tanggal dibuka
>
> Dengan cara yang dipakai mas Prazt ini, jika file
> dibuka pada komputer yang Macro Security didisable
> atau belum dienablekan oleh user, maka semua sheet
> dalam keadaan unprotected alias bisa diubah isinya.
>
> Wassalam,
>
> Kid.
>
> 2013/9/26 zainul_ulum[at]yahoo[dot]com
> <zainul_ulum@yahoo.com <mailto:zainul_ulum@yahoo.com>>
>
> Passwordnya sepertinya sih nggak berubah kalo
> ganti hari.
> tetapi bisa dicoba dengan urutan sbb:
> 1. Sebelum Workbook ditutup unprotect semua sheet
> 2. Jika suatu saat workbook dibuka, protect
> semua worksheet dengan password baru
>
> '=================================
>
>
> Function PasswordKu()
> Dim pwd As String, i As Integer
> Dim arrSymbol As Variant
> arrSymbol = Array("!", "@", "#", "$", "%",
> "^", "&")
> With Application.WorksheetFunction
> i = .Weekday(Now, 2)
>
> pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i -
> 1) & "dd-mm-yyyy")
>
>
> End With
> PasswordKu = pwd
> End Function
>
> Sub ProtectSheets(ByVal bolProtect As Boolean)
> Dim sht As Worksheet
> For Each sht In ActiveWorkbook.Worksheets
> If bolProtect Then
> sht.Protect PasswordKu
> Else
> sht.Unprotect PasswordKu
> End If
> Next
> End Sub
> '=======================
> '=====code ini di tulis di object
> workbook==============
> Private Sub Workbook_BeforeClose(Cancel As
> Boolean)
> ProtectSheets False
> End Sub
>
> Private Sub Workbook_Open()
> ProtectSheets True
> End Sub
> '===========================
>
>
>
> From: belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>[mailto:belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>] On
> Behalf Of PRAZT
>
> Sent: Thursday, September 26, 2013 2:30 PM
>
>
> To: belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>
> Subject: RE: [belajar-excel] paswword sheet
> berganti sesuai nama hari dan tanggal dibuka
>
> Berarti harus di unprotect semua dulu mas
> Zainul?, tapi nanti kalau berganti hari
> kira-kira passwordnya ikutan berganti undak
> ya?....ok Mr. Zainul, Suwun dah
> membantu+koreksi, Syukron Katsiron....
>
> PRAZTMATH �
>
> From: belajar-excel@yahoogroups.
selamat sampai tujuan
berikut dikirimkan ulang, semoga kali ini masuk
Difile terlampir disertakan juga untuk enkripsi tanggal sederhana
Pada 28/09/2013 18:29, Mr. Kid menulis:
> Oh iya, idenya menambahkan userform untuk load itu bagus. File
> digunakan kerja berapa lama pun (sampai ganti hari) tetap oke
> (penggunaan variabel sPwd yang pas penempatannya. Tapi, pertama kali
> si file dibuka, semua sheet data tidak terprotect.
>
> *Terlepas semua orang bisa membongkar password VBAProject ataupun
> password worksheet ya...*
> Jika filenya miss Jan dibuka lalu security macro dipilih Disable, maka
> userform yang punya tugas untuk meng-quit si file tidak bekerja.
> Jadinya, semua sheet data bisa terekspose oleh workbook lain dalam
> instansi excel tersebut.
>
> Misal, ada sebuah file ber-VBA yang dibuka bernama FileA yang tidak
> diproteksi VBAProjectnya,
> sedang file miss Jan yang diproteksi VBAProject-nya belum dibuka.
>
> Ketika FileA dibuka dan di-enable macro, maka VBA dalam FileA bisa
> bekerja dan VBAProject milik FileA bisa dilihat.
> Kemudian file miss Jan dibuka dan security Macro tidak di-enable alias
> tetap disable, maka userform di file miss Jan tidak berjalan alias
> sheet yang tampil adalah sheet Menu. Jika ke VBE, maka VBAProject
> FileA bisa dilihat isinya dan file miss Jan tidak bisa dilihat isi
> VBAProjectnya.
>
> Kemudian di FileA di VBA-nya, diberi prosedur untuk meng-visible-
> semua sheet, maka semua sheet dalam file miss Jan bisa diganti nilainya.
>
> Sedangkan si FileA tadi itu bisa jadi sebuah file excel baru yang
> kemudian diisi VBA dan disave sebagai Macro Enabled Workbook (.xlsm).
>
> Tentu akan sedikit berbeda (karena ada pengabaian tentang *Terlepas
> semua orang bisa membongkar password VBAProject ataupun password
> worksheet ya...*) ketika semua sheet selalu dalam keadaan ter-protect
> saat tidak digunakan (tertutup).
>
> Script-nya PakDe sudah bisa melakukannya.
> Cukup tambahkan saja proses Thisworkbook.
> event WorkbookOpen.
> Apalagi kalau yang disimpan dalam script PakDe adalah tanggalnya saja
> (bukan passwordnya)
> Kemudian, cell tersebut diatur supaya warna fontnya sama dengan warna
> latar cell (supaya bisa diletakkan di cell A1 saja tapi ndak kelihatan).
> Sheet yang menyimpan tanggal tersebut diprotect dengan password
> tertentu yang berbeda dengan sheet lainnya.
> Proses ganti password dalam workbook open selalu didahului buka
> proteksi sheet penyimpan tanggal dan diakhiri dengan memproteksi sheet
> penyimpan tanggal.
> Dalam blok event workbook open diberi on error resume next dan ditutup
> dengan err.clear dan on error goto 0 supaya pengaturan error
> selanjutnya bisa diserahkan ke script yang ada didalam file selain
> workbook open.
> VBAProject diproteksi.
>
> kira-kira bunyi script pakDe jadi : (pinjem scriptnya pakde)
>
> Dim TmpPass as string, NewPass as string, Sht as worksheet, vhari as
> Variant, dtCur as date
> on error resume next
> vhari=array(
>
>
> application.
> sheets("
>
> sheets("
> TmpPass = sheets("
>
> dtCur =date
> NewPass = vhari( weekday( dtCur ) -1 ) & format$( dtCur,"
>
> for each Sht in worksheets
> Sht.unprotect TmpPass
> Sht.protect NewPass
> next
>
> sheets("
> sheets("
> sheets("
>
> sheets("
> sheets("
> sheets("
> application.
> thisworkbook.
> application.
> application.
> err.clear
> on error goto 0
>
> tapi bisa jadi script diatas ada errornya, soale belum dicoba. Silakan
> BeExceller yang pada suka VBA memperbaikinya. Eh atau malah PakDe yang
> punya script yang mau memperbaikinya.
>
> Wassalam,
> Kid.
>
>
> 2013/9/28 PRAZT <praztmath@gmail.
>
> Masih lanjut Mr.Kid, solusi dari Mis Jan bagus tadi...sekali lagi
> makasih MK, MJR, MHK,Pak De, bang Zain, dan master-master yang
> sudah banyak membantu....
> Mis Jan...Wassalam.
>
> PRAZTMATH �
>
> *From:*belajar-excel@
> <mailto:belajar-excel@
> [mailto:belajar-excel@
> <mailto:belajar-excel@
> *Sent:* 28 September 2013 06:37
>
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai nama
> hari dan tanggal dibuka
>
> hehehe....
>
> masih juga dilanjutkan ya...
>
> Pak HK,
> bagaimana jika dicopasken script yang dipakai sampai gak jalan
> tersebut.
>
> bagaimana kalai dicoba juga diworkbook baru, siapa tahu nanti bisa
> tampak penyebabnya.
>
> Wassalam,
>
> Kid.
>
>
>
>
>
> 2013/9/27 hendrik karnadi <hendrikkarnadi@
> <mailto:hendrikkarnadi@
>
> Saya barusan coba ketik Password:
>
> Jum'at%27-
>
> Salam,
>
> HK
>
> ------------
>
> *From:*PRAZT <praztmath@gmail.
> *To:* belajar-excel@
> <mailto:belajar-excel@
>
> *Sent:*Friday, 27 September 2013, 9:39
>
>
> *Subject:* RE: [belajar-excel] paswword sheet berganti sesuai
> nama hari dan tanggal dibuka
>
> Pk De ikut nih jadi tambah ilmu lagi nih ntar hehehe....kalau
> sampai lembur bom pernah saya cb pk De, tapi kalau kompi udah
> dimatika sih bisa berganti kemarin (sebelum ada tambahan �
> pada baris pwd = .Text(Now, "[$-421]
> & ""
>
> PRAZTMATH �
>
> *From:*belajar-excel@
> <mailto:belajar-excel@
> [mailto:belajar-excel@
> <mailto:belajar-excel@
> *Sent:* 27 September 2013 08:07
> *To:* belajar-excel@
> <mailto:belajar-excel@
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai
> nama hari dan tanggal dibuka
>
> Pada kode yang disertakan error disebabkan oleh kalau
> dieksekusi akan menjadi *ddd%dd-mm-yyyy* yang bikin eksyel
> bingung,
> biar eksyel ndak bingung coba dikasih tanda kutip sehingga
> menjadi *ddd"%"
> Kalau dibahasakan ke rumus menjadi
>
> pwd = .Text(Now, "[$-421]
> ""
>
> Oiya, mau tanya, kalau kira2 saya mbuka filenya sekitar jam
> 10'an malam, trus lembur sampai pagi baru saya close filenya,
> kira-kira apa yang terjadi ya ?
>
> On 27-09-2013 7:16, PRAZT wrote:
>
> Assalamu�alaikum.
>
> Selamat pagi Mr.Kid dan beExceller yang lain...
>
> Kalau itu saya kurang paham MK, tapi pada intinya kalau
> pakai sht.Unprotect PasswordKu itu kalau pas di tutup ada
> errornya tapi untuk hari ini tidak, hanya saja untuk hari
> ini malah erornya berpindah pada baris blok kuning berikut
> dan coba buka file lampiran ;
>
> '=======
>
> Function PasswordKu()
>
> Dim pwd As String, i As Integer
>
> Dim arrSymbol As Variant
>
> arrSymbol = Array("
>
> With Application.
>
> i = .Weekday(Now, 2)
>
> pwd = .Text(Now, "[$-421]
> "dd-mm-
>
> End With
>
> PasswordKu = pwd
>
> End Function
>
> Dengan bunyi eror seperti ini
>
> PRAZTMATH �
>
> *From:*belajar-excel@
> <mailto:belajar-excel@
> [mailto:belajar-excel@
> *Sent:* 26 September 2013 17:15
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] paswword sheet berganti
> sesuai nama hari dan tanggal dibuka
>
> Maaf,
>
> saya ndak mudeng dasar penggantian dari sht.Unprotect
> PasswordKu menjadi sht.Protect PasswordKu itu apa ya ?
>
> Apalagi sampai diputuskan bisa berjalan dengan normal.
>
> Apa maksud normal ? tidak muncul error ?
>
> kalau normal berarti tidak muncul error, berikan saja
> baris On error resume next disetiap prosedur. Jamin, gak
> akan ada error yang pernah muncul dalam setiap proses.
> Tapi, apa terus berarti si prosedur udah baik dan benar
> kalau ndak muncul error ?
>
> Bukankah errornya yang muncul saat pakai sht.Unprotect
> PasswordKu adalah tidak bisa buka proteksi sheet ?
>
> Itukan artinya sheet sudah terproteksi dengan password
> (misalnya : kid ganteng) terus baris itu akan unprotect
> dengan hasil function PasswordKu berisi teks 'kid cakep'
>
> Nah kan gak bisa kalau sheet yang diproteksi pakai 'kid
> ganteng' akan di unprotect (kuning) oleh 'kid cakep'
>
> Kalau sht.Unprotect PasswordKu diubah menjadi sht.Protect
> PasswordKu
>
> , lalu blok yang bunyi :
>
> If bolProtect Then
>
> sht.Protect PasswordKu
>
> Else
>
> sht.Unprotect PasswordKu 'di sini terjadi galat,
> mungkinkah maksudya adalah sht.Protect PasswordKu
>
> End If
>
> akan menjadi :
>
> If bolProtect Then
>
> sht.Protect PasswordKu
>
> Else
>
> sht.Protect PasswordKu
>
> End If
>
> lalu, apa gunanya blok IF tersebut ?
>
> Wassalam,
>
> Kid.
>
> 2013/9/26 PRAZT <praztmath@gmail.
> <mailto:praztmath@gmail.
>
> Udah saya ganti dari sht.Unprotect PasswordKu menjadi
> sht.Protect PasswordKu sehingga bisa berjalan normal,
> makasih Mas Zain n Mr.Kid, terus gmn pendapat mas Zain
> tentang pendapat Mr.Kid tadi apakah lebih baik di
> kasih pemaksaan ke user untuk mengenablekan security
> macro atau pakai sheet penyimpan password seperti yang
> Mr.Kid bilang tadi?
>
> *From:*belajar-excel@
> <mailto:belajar-excel@
> <mailto:belajar-excel@
> *zainul_ulum[
> *Sent:* 26 September 2013 16:55
>
>
> *To:* belajar-excel@
> <mailto:belajar-excel@
> *Subject:* RE: [belajar-excel] paswword sheet berganti
> sesuai nama hari dan tanggal dibuka [1 Attachment]
>
> mas Prast,
>
> silahkan dicoba file terlampir.
>
> thanks
>
> -zainul-
>
> *From:*belajar-excel@
> <mailto:belajar-excel@
> *On Behalf Of *PRAZT
> *Sent:* Thursday, September 26, 2013 4:45 PM
>
>
> *To:* belajar-excel@
> <mailto:belajar-excel@
> *Subject:* RE: [belajar-excel] paswword sheet berganti
> sesuai nama hari dan tanggal dibuka
>
> Ohh yang saya tampilkan hanya pada bagian yang eror Mr.Kid
>
> Kumplitannya begini dari mas Zain
>
> '=======
>
> Function PasswordKu()
>
> Dim pwd As String, i As Integer
>
> Dim arrSymbol As Variant
>
> arrSymbol = Array("
>
> With Application.
>
> i = .Weekday(Now, 2)
>
> pwd = .Text(Now, "[$-421]
> "dd-mm-
>
> End With
>
> PasswordKu = pwd
>
> End Function
>
> Sub ProtectSheets(
>
> Dim sht As Worksheet
>
> For Each sht In ActiveWorkbook.
>
> If bolProtect Then
>
> sht.Protect PasswordKu
>
> Else
>
> sht.Unprotect PasswordKu di sini terjadi galat,
> mungkinkah maksudya adalah sht.Protect PasswordKu
>
> End If
>
> Next
>
> End Sub
>
> '=====code ini di tulis di object workbook====
>
> Private Sub Workbook_BeforeClos
>
> ProtectSheets False
>
> End Sub
>
> Private Sub Workbook_Open(
>
> ProtectSheets True
>
> End Sub
>
> '=======
>
> *From:*belajar-excel@
> <mailto:belajar-excel@
> *On Behalf Of *Mr. Kid
> *Sent:* 26 September 2013 16:29
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] paswword sheet berganti
> sesuai nama hari dan tanggal dibuka
>
> Bukankah function yang dibuat mas Zain bernama PasswordKu_
>
> Coba gunakan PasswordKu_ daripada PasswordKu
>
> Wassalam,
>
> Kid.
>
> 2013/9/26 PRAZT <praztmath@gmail.
> <mailto:praztmath@gmail.
>
> @_Iya M.Kid, jadi user harus enable security
> macronya, tapi saya akali dengan memaksa user
> harus mengenabelkan security macro (tapi masih
> menggunakan VBA sih) ato mungkin Mr.Kid ada solusi
> untuk hal ini ?
>
> @_Mas Zainul, bisa tuh coba untuk hari ini dan
> besok hasilnya gmn...tapi mungkin tidak itu
> terjadi seperti yang dikatakan Mr.Kid...
>
> Terus pas saat di buka file tersebut terjadi eror
> pada bagian per tanda kuning berikut :
>
> Sub ProtectSheets(
>
> Dim sht As Worksheet
>
> For Each sht In ActiveWorkbook.
>
> If bolProtect Then
>
> sht.Protect PasswordKu
>
> Else
>
> sht.Unprotect PasswordKu apakah mungkin maksudnya
> adalah sht.Protect PasswordKu
>
> End If
>
> Next
>
> End Sub
>
> *From:*belajar-excel@
> <mailto:belajar-excel@
> <mailto:belajar-excel@
> Of *Mr. Kid
> *Sent:* 26 September 2013 15:45
> *To:* BeExcel
>
>
> *Subject:* Re: [belajar-excel] paswword sheet
> berganti sesuai nama hari dan tanggal dibuka
>
> Dengan cara yang dipakai mas Prazt ini, jika file
> dibuka pada komputer yang Macro Security didisable
> atau belum dienablekan oleh user, maka semua sheet
> dalam keadaan unprotected alias bisa diubah isinya.
>
> Wassalam,
>
> Kid.
>
> 2013/9/26 zainul_ulum[
> <zainul_ulum@
>
> Passwordnya sepertinya sih nggak berubah kalo
> ganti hari.
> tetapi bisa dicoba dengan urutan sbb:
> 1. Sebelum Workbook ditutup unprotect semua sheet
> 2. Jika suatu saat workbook dibuka, protect
> semua worksheet dengan password baru
>
> '=======
>
>
> Function PasswordKu()
> Dim pwd As String, i As Integer
> Dim arrSymbol As Variant
> arrSymbol = Array("
> "^"
> With Application.
> i = .Weekday(Now, 2)
>
> pwd = .Text(Now, "[$-421]
> 1) & "dd-mm-
>
>
> End With
> PasswordKu = pwd
> End Function
>
> Sub ProtectSheets(
> Dim sht As Worksheet
> For Each sht In ActiveWorkbook.
> If bolProtect Then
> sht.Protect PasswordKu
> Else
> sht.Unprotect PasswordKu
> End If
> Next
> End Sub
> '=======
> '=====code ini di tulis di object
> workbook====
> Private Sub Workbook_BeforeClos
> Boolean)
> ProtectSheets False
> End Sub
>
> Private Sub Workbook_Open(
> ProtectSheets True
> End Sub
> '=======
>
>
>
> From: belajar-excel@
> <mailto:belajar-excel@
> <mailto:belajar-excel@
> Behalf Of PRAZT
>
> Sent: Thursday, September 26, 2013 2:30 PM
>
>
> To: belajar-excel@
> <mailto:belajar-excel@
> Subject: RE: [belajar-excel] paswword sheet
> berganti sesuai nama hari dan tanggal dibuka
>
> Berarti harus di unprotect semua dulu mas
> Zainul?, tapi nanti kalau berganti hari
> kira-kira passwordnya ikutan berganti undak
> ya?....ok Mr. Zainul, Suwun dah
> membantu+koreksi, Syukron Katsiron....
>
> PRAZTMATH �
>
> From: belajar-excel@