Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka

[De Premor]

mungkin bisa dibuat satu sheet penyimpanan password yang diset very hidden (jadi yang bisa menampilkannya hanya VBA), dimana setiap kali selesai ngeset password, passwordnya disimpan disitu, yang mana kemudian dari situ setiap kali akan mengganti password (meng-Unprotect) tinggal ambil saja dari sheet tersebut, kemudian ganti dengan pass baru selanjut password baru di simpan lagi kesitu. Dim TmpPass as string, NewPass as string, Sht as worksheet, vhari as Variant vhari=array("Minggu!","Senin@","Selasa#","Rabu$","Kamis%","Jumat^","Sabtu&") application.screenupdating = false     sheets("SheetPassword").visible = xlsheetvisible         TmpPass = sheets("SheetPassword").range("ZZ999")         NewPass = vhari( weekday( date ) -1 ) & format$( date,"DD-MM-YYYY" )         for each Sht in worksheets             Sht.unprotect TmpPass                Sht.protect NewPass         next         sheets("SheetPassword").range("ZZ999") = NewPass     sheets("SheetPassword").visible = xlsheetveryhidden application.screenupdating = true Rgds, [dp] On 26-09-2013 8:51, Mr. Kid wrote:   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 <praztm...@gmail.com> 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 ™