Oke mas Zain. Di website milis di posting : http://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/28024
Jangan lupa menambahkan bagian untuk save workbook-nya sebelum End Sub setiap event yang ada cekrip ubah password nya Wassalam, Kid. 2013/9/26 zainul_ulum[at]yahoo[dot]com <[email protected]> > ** > > > berarti saya kurang lengkap baca emailnya PakD**** > > terimakasih, saya baca-baca lagi emailnya PakD.**** > > ** ** > > wasssalam**** > > -zainul-**** > > ** ** > > *From:* [email protected] [mailto: > [email protected]] *On Behalf Of *Mr. Kid > *Sent:* Thursday, September 26, 2013 4:07 PM > > *To:* BeExcel > *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai nama hari > dan tanggal dibuka**** > > ** ** > > **** > > Kan idenya sudah ada tadi pagi**** > > lalu sudah dikembangkan oleh PakD**** > > Yang dibutuhkan dari pengembangan PakD adalah proses save sebelum end sub > di event workbook open**** > > Bila perlu, saat akan close juga dilakukan hal yang sama, siapa tahu tadi > dibuka jam 23:00 dan ditutup jam 03:00 (sudah ganti hari). > > :)**** > > Konsepnya sederhana saja, yaitu : > 1. File yang tersimpan selalu dalam keadaan terproteksi setiap sheetnya.** > ** > > 2. Ada nilai password atau nilai petunjuk yang bisa digunakan untuk > menyusun password disuatu tempat yang tidak hilang dan tidak bisa dijangkau > user.**** > > 3. Saat buka atau tutup file, selalu unprotect dengan password yang > tersimpan atau susun password dengan petunjuk yang tersimpan (nomor 2) lalu > proteksi dengan susunan password baru disertai menyimpan nilai password > baru tersebut atau nilei petunjuk penyusunannya untuk mengubah nilai nomor 2 > **** > > tempat menyimpannya ndak mesti di cell yang ada di worksheet seperti yang > dicontohkan PakD. Bisa diletakkan dimana-mana, cukup dikreasikan dengan > kreatifitas yang ada. Paling bagus kalau yang disimpan adalah petunjuk > penyusunan password nya (semacam hash data gitu). Untungnya, contoh yang > disimpan di sheet sudah disediakan PakD (ty PakD). Misal disimpan di > userform atau di textfile, atau di registri windows kali (ops..)**** > > ** ** > > hehehe...**** > > kira-kira gitu kali ya**** > > ** ** > > met berkreasi**** > > Wassalam, > Kid.**** > > ** ** > > **** > > ** ** > > ** ** > > 2013/9/26 zainul_ulum[at]yahoo[dot]com <[email protected]>**** > > **** > > betul sekali Mr. Kid**** > > atau ada ide yang lain?**** > > **** > > **** > > *From:* [email protected] [mailto: > [email protected]] *On Behalf Of *Mr. Kid > *Sent:* Thursday, September 26, 2013 3:45 PM > *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 <[email protected]>**** > > **** > > 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: [email protected] [mailto:[email protected]] > On Behalf Of PRAZT**** > > Sent: Thursday, September 26, 2013 2:30 PM**** > > > To: [email protected] > 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: [email protected] [mailto:[email protected]] > On Behalf Of zainul_ulum[at]yahoo[dot]com > Sent: 26 September 2013 14:21 > To: [email protected] > Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan > tanggal dibuka > > > coba di unprotect dulu semua sheet, kemudian dijalankan lagi macronya. > > > From: [email protected] [mailto:[email protected]] > On Behalf Of PRAZT > Sent: Thursday, September 26, 2013 2:12 PM > To: [email protected] > Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan > tanggal dibuka > > > O ya maap kelebihan y di dd-mm-yyyy, tapi coba buka sheet 3 di file yang > terakhir tadi, passwordnya tidak bisa dibuka dengan Kamis$26-09-2013, tapi > bisanya Kamis$26-09-13 padahal di vba kodenya merujuk ke Kamis$26-09-2013 > pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyy") > Kalau sheet 1 dan sheet2 OK paswordnya Kamis$26-09-2013 karena saya buka > password sebelum saya merubah kode di VBA pwd = .Text(Now, "[$-421]ddd" & > arrSymbol(i - 1) & "dd-mm-yy") menjadi pwd = .Text(Now, "[$-421]ddd" & > arrSymbol(i - 1) & "dd-mm-yyyy"). mohon koreksinya Mas Zainul+Mr.HK+Mr.Kid > atau master yang lain...**** > > PRAZTMATH ™ > > From: [email protected] [mailto:[email protected]] > On Behalf Of zainul_ulum[at]yahoo[dot]com > Sent: 26 September 2013 13:34 > To: [email protected] > Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan > tanggal dibuka > > > jawabannya sama dengan Pak HK. > terimakasih koreksinya… > > From: [email protected] [mailto:[email protected]] > On Behalf Of hendrik karnadi > Sent: Thursday, September 26, 2013 12:33 PM > To: [email protected] > Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan > tanggal dibuka > > > Ikutan njawab. > Barangkali karena kelbihan sau "y". > pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyyy") > > Salam, > HK**** > > ________________________________________**** > > > From: PRAZT <[email protected]> > To: [email protected] > Sent: Thursday, 26 September 2013, 12:23 > Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan > tanggal dibuka [1 Attachment] > > > Jika saya saya modifikasi seperti file terlampir terus file saya tutup dan > dibuka lagi kok passwordnya masih > “Kamis$26-09-13”(tanpa tanda petik) yang seharusnya “Kamis$26-09-2013”, > jadi pada intinya password tidak bisa berubah sebelum paswordnya di > Unprotect dulu...mohon penjelasa mas Zainul. > > From: [email protected] [mailto:[email protected]] > On Behalf Of zainul_ulum[at]yahoo[dot]com > Sent: 26 September 2013 10:47 > To: [email protected] > Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan > tanggal dibuka [1 Attachment] > > > terlampir file yang sudah saya coba... > > -----Original Message----- > From: zainul_ulum[at]yahoo[dot]com [mailto:[email protected]] > Sent: Thursday, September 26, 2013 10:35 AM > To: '[email protected]' > Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan > tanggal dibuka > > maaf sekali kalo nggak bisa, > seharusnya sih bisa karena fungsi tersebut saya coba di excel saya, tidak > masalah > > coba diganti > pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") 'ada spasi > di depan dd > > menjadi > > pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yy") 'spasi > dihilangkan > > wassalam > -zainul- > > From: [email protected] [mailto:[email protected]] > On Behalf Of PRAZT > Sent: Thursday, September 26, 2013 9:47 AM > To: [email protected] > Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan > tanggal dibuka > > Malah tidak jalan mas zainul > > From: [email protected] [mailto:[email protected]] > On Behalf Of zainul_ulum[at]yahoo[dot]com > Sent: 26 September 2013 08:44 > To: [email protected] > Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan > tanggal dibuka > > > mungkin yang dimaksud seperti ini ya… > ‘=================== > 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-yy") End With > PasswordKu = pwd End Function ‘============================================ > > From: [email protected] [mailto:[email protected]] > On Behalf Of zainul_ulum[at]yahoo[dot]com > Sent: Thursday, September 26, 2013 8:35 AM > To: [email protected] > Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan > tanggal dibuka > > coba code berikut: > Function PasswordKu_() > Dim pwd As String > With Application.WorksheetFunction > 'aturan memberi symbol $ # @ masih belum jelas aturannya 'secara default > diberi symbol | > > pwd = .Text(Now, "[$-421]ddd|dd-mm-yy") > > 'mengganti symbol | dengan misal $ > pwd = .Substitute(pwd, "|", "$") > End With > PasswordKu_=pwd > End Function > > From: [email protected] [mailto:[email protected]] > On Behalf Of PRAZT > Sent: Thursday, September 26, 2013 8:03 AM > To: group excel > Subject: [belajar-excel] paswword sheet berganti sesuai nama hari dan > tanggal dibuka [1 Attachment] > > 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 ™**** > > **** > > ** ** > > **** > > >
