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: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com Sent: 26 September 2013 10:47 To: belajar-excel@yahoogroups.com 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:zainul_u...@yahoo.com] Sent: Thursday, September 26, 2013 10:35 AM To: 'belajar-excel@yahoogroups.com' 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: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com] On Behalf Of PRAZT Sent: Thursday, September 26, 2013 9:47 AM To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka Malah tidak jalan mas zainul From: 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 08:44 To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> 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: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com Sent: Thursday, September 26, 2013 8:35 AM To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> 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: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com] 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 T
password-protectsheet.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
