15 New Messages

Digest #2559

Re: Sofwer perkuat passwor VBA by "Elin Nurhayati"

Re: Fw: Trs: [belajar-excel] Nilai tambah pada VBA developer by "Jan Raisin"

Re: Fw: Trs: [belajar-excel] Nilai tambah pada VBA developer by "hendrik karnadi" hendrikkarnadi

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "zainul_ulum[at]yahoo[dot]com" zainul_ulum

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "PRAZT" praztmath

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "zainul_ulum[at]yahoo[dot]com" zainul_ulum

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "PRAZT" praztmath

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "zainul_ulum[at]yahoo[dot]com" zainul_ulum

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "Mr. Kid" nmkid.family@ymail.com

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "zainul_ulum[at]yahoo[dot]com" zainul_ulum

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "Mr. Kid" nmkid.family@ymail.com

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "zainul_ulum[at]yahoo[dot]com" zainul_ulum

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "Mr. Kid" nmkid.family@ymail.com

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "PRAZT" praztmath

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "Mr. Kid" nmkid.family@ymail.com

Messages

1a

Re: Sofwer perkuat passwor VBA

Wed Sep 25, 2013 10:54 pm (PDT) . Posted by:

"Elin Nurhayati"

Dear para Master excel terima kasih banyak atas jawabannya. jawaban
dari master sangat bermanfaat. Sekali lagi saya ucapkan terima kasih

salam Elan Nurhayati

Pada tanggal 26/09/13, Mr. Kid <mr.nmkid@gmail.com> menulis:
> Wa'alaikumussalam Wr. Wb.
>
> Memperkuat proteksi berarti menunda proses pembobolan loh ya, bukan menutup
> kemungkinan untuk dibobol. Artinya, siapa yang pengen membobol pasti ada
> jalannya.
> Untuk memperkuat proteksi, bisa coba LockXLS.
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
> 2013/9/26 Elin Nurhayati <elinnurhayati4@gmail.com>
>
>> **
>>
>>
>> Assalamualaikum Wr Wb
>> Dear para master terima kasih banyak atas jawabannya dan mhon maaf
>> atas kesalahan maksud pertanyaannya.tapi maksud saya yang sebenarnya
>> bukan buat untuk bobol passwor orang lain kok, bener deh suerrr, he
>> he. Mau tanya sekali lagi itupun kalo Master ga keberatan ngejawabnya
>> he he! Kira-kira nama sofwer security lain yang bisa perkuat password
>> VBA excel apa yaa?
>> Sudah lebih satu bulan saya mencari eh ga ketemu-ketemu!
>> Terima kasih sebelumnya
>>
>> Pada tanggal 26/09/13, Mr. Kid <mr.nmkid@gmail.com> menulis:
>> > Wa'alaikumussalam Wr. Wb.
>> >
>> > Hai Elin,
>> >
>> > Untuk :
>> > 0. ketika dibuka VBAnya keluar keterangan project is unviewable tetapi
>> > tidak dishare ! Kira-kira bagaimana yaa caranya?
>> >>> ke VBE (ALT F11) -> klik kanan nama project (yang ada nama workbook)
>> >>> ->
>> > pilih VBAProject Properties -> tab Protection -> centang Lock project
>> > for
>> > viewing -> isi password dan konfirmasi password-nya -> OK -> save ->
>> tutup
>> > workbook -> buka lagi -> coba lihat isi VBA-nya
>> > *** mestinya sampai sini si pi bi e sudah anpiyuwebel ya
>> >
>> > 1. Saya ingin membuka dan ingin tau isi VBAnya.
>> >>> hehehe... sebaiknya meminta ijin kepada yang buat ya.
>> >>> kalau mau dibongkar sendiri gimana caranya ya. Filenya dibuat dengan
>> > Excel 8.0. Mungkin dibuka di Excel 8.0 bisa muncul pertanyaan
>> > passwordnya
>> > apa kali ya. Kalau bisa muncul pertanyaan password-nya apa, berarti
>> > bisa
>> > dibongkar sendiri kalau bisa cari passwordnya. Masalahnya, si password
>> bisa
>> > jadi disusun dengan hash data yang berbeda dengan yang biasa dilakukan
>> oleh
>> > si office. Misalnya, proses proteksi dilakukan dengan bantuan aplikasi
>> lain
>> > yang menulis ulang struktur VBAProject.bin. Tentu saja ketika hal ini
>> yang
>> > terjadi, maka harus membaca isi setiap stream yang ada VBAProject.bin
>> yang
>> > baru tersebut supaya tahu bagian mana yang ditambahkan dan membuatnya
>> > berbeda dengan struktur dasar dari Office.
>> >>> gini aja, coba extract file VBAProject.bin yang ada dalam file Excel
>> > tersebut, coba lihat-lihat ininya, bisa dicoba untuk cari hash data
>> > untuk
>> > decrypt passwordnya. Kemudian lakukan apa yang diinginkan terhadap file
>> > VBAProject.bin tersebut.
>> > *** ngobrolin kok ya cara bongkar password orang sih... mbok ya
>> > ngobrolin
>> > bikin Excel yang optimum pemakaiannya aja... lagian, banyak kok
>> > aplikasi
>> > yang bisa dipakai untuk memproteksi Excel supaya ndak bisa dibongkar
>> > pengguna.
>> >
>> > 2. Saya ingin file excel yang sudah saya buat ingin seperti itu.tidak
>> >>> Cara yang disediakan oleh VBA adalah melalui VBAProject Properties
>> >>> Cara lainnya adalah menggunakan aplikasi yang dibuat untuk
>> >>> memproteksi
>> > file Excel. Cari di internet ajah yah..
>> >
>> > Wassalam,
>> > Kid.
>> >
>> >
>> >
>> >
>> >
>> >
>> > 2013/9/25 Elin Nurhayati <elinnurhayati4@gmail.com>
>> >
>> >> **
>> >>
>> >>
>> >> Assalamualaikum. wr.wb
>> >> Dear para Master excel. Masih mengenai file terlampir. Saya ingin
>> >> membuat file excel seperti file terlampir , ketika dibuka VBAnya
>> >> keluar keterangan project is unviewable tetapi tidak dishare !
>> >> Kira-kira bagaimana yaa caranya?
>> >> Sebelumnya saya ucapkan bnyak terima kasih.
>> >>
>> >> ---------- Forwarded message ----------
>> >> From: Elin Nurhayati <elinnurhayati4@gmail.com>
>> >> Date: Tue, 24 Sep 2013 21:46:02 +0700
>> >> Subject: [belajar-excel] [1 Attachment]
>> >> To: belajar-excel@yahoogroups.com
>> >>
>> >> Ass.Para Master excel, semoga para Master selalu ada dalam lindungan
>> >> AllohSWT Amien
>> >> Dear Master excel mau tanya mengenai file terlampir. Kenapa kalau
>> >> VBAnya dibuka keluar keterangan (Project is unviewable)? padahal
>> >> wrokbooknya tidak di share!
>> >> Sebelumnya saya ucapkan terima kasih.
>> >>
>> >> ---------- Forwarded message ----------
>> >> From: diman hidayat <dim4nhid4y4t@yahoo.com>
>> >> Date: Tue, 24 Sep 2013 22:33:27 +0800 (SGT)
>> >> Subject: TRS:
>> >> To: elinnurhayati4@gmail.com
>> >>
>> >> Ass.Para Master excel. salam sejhtera kami ucapken semoga para master
>> >> selalu ada dalam lindungan Alloh SWT amien.Dear para Master excel mau
>> >> tanya soal file terlampir,ketika saya buka VBAnya muncul keterangan
>> >> project is unviewable !mohon pencerahannya mengapa demikian! Karena
>> >> file tida di share wrokbook!
>> >>
>> >>
>> >
>>
>>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

2a

Re: Fw: Trs: [belajar-excel] Nilai tambah pada VBA developer

Wed Sep 25, 2013 11:08 pm (PDT) . Posted by:

"Jan Raisin"

tetap bisa pak Hendrik..

silakan dicoba dengan mengubah tipe data textbox dari string menjadi single
atau doubel,
lalu coba masukkan angka2 integer dan lihat hasilnya
coba juga masukkan angka2 desimal dan lihat hasilnya

hanya diperlukan 1 kali ubah tipe data dan bisa digunakan untuk semua nilai
selama nilai tersebut masuk dalam batasan yang ada (single atau double)

tambahan lagi.. sebaiknya sebelum melakukan kalkulasi perhitungan, ubah
dahulu nilai yang diambil dari textbox yang defaultnya bertipe string
menjadi tipe data yang sesuai.
dalam VBA (mungkin juga di VB, belum tau karena belum pernah belajar VB),
tanda untuk menggabungkan dua buah string selain menggunakan tanda & juga
bisa menggunakan tanda +

awal dari thread ini adalah nilai dari masing-masing textbox akan
dijumlahkan menggunakan operator + dimana contohnya adalah 4 + 4 dan hasil
yang diinginkan adalah 8,
tetapi karena komputer membaca bahwa tipe data dari setiap textbox
defaultnya adalah string maka hasilnya adalah penggabungan dua buah string
tersebut yang akhirnya menghasilkan nilai 44 dan bukan nilai 8.

Salam,

-Miss Jan Raisin-

Pada 26 September 2013 11.32, hendrik karnadi <hendrikkarnadi@yahoo.com>menulis:

> **
>
>
> Miss Jan,
> Jadi ga bisa berlaku untuk kedua2nya tanpa merubah code?
>
> Salam,
> HK
>
> ------------------------------
> *From:* Jan Raisin <miss.jan.raisin@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, 26 September 2013, 11:12
> *Subject:* Re: Fw: Trs: [belajar-excel] Nilai tambah pada VBA developer
>
>
> jika nilai adalah desimal, maka bisa diubah dahulu menjadi data bertipe
> Single atau Double
>
> caranya:
> CSng(...) untuk mengubah menjadi single, atau
> CDbl(....) untuk mengubah menjadi double
>
> oia.. sebaiknya nilai suatu objek dituliskan lengkap sesuai defaultnya..
> karena katanya (ini katanya ya..) akan lebih mudah saat akan diubah dari
> satu bahasa pemrograman yang satu ke bahasa pemrograman yang lain..
>
> jadi kalo Range("...") harus ditulis menjadi Range("...").value
> lalu kalo textbox harus ditulis TextBox1.txt sesuai dengan defaultnya
> kalo label berarti harus .Caption dsb
>
> salam,
>
>
> -Miss Jan Raisin-
>
>
> Pada 26 September 2013 10.47, hendrik karnadi <hendrikkarnadi@yahoo.com>menulis:
>
> **
>
> Miss Jan,
> Masih ada "sedikit" pertanyaan kecil,
> bagaimana kalau angkanya bisa integer atau decimal ?
>
> Salam,
> HK
>
> ----- Forwarded Message -----
> *From:* Andy Ajhis Ramadhan <andyajhisramadhan@ymail.com>
> *To:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Sent:* Thursday, 26 September 2013, 10:30
> *Subject:* Trs: [belajar-excel] Nilai tambah pada VBA developer
>
>
> Wah terima kasih banyak miss jan :D miss jan Thanks You...
> hehee gak jadi patah semangat deh, buat belajar lagi... kapan-kapan andy
> teraktir bakso Xiaa ^_^ xixixi
>
> Terima Kasih Allah, kemudian Trima kasih Be-Exceller, Terima Kasih Miss
> Jan.
>
> Salam,
> Andy Ajhis R
>
> ----- Pesan yang Diteruskan -----
> *Dari:* Jan Raisin <miss.jan.raisin@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 26 September 2013 10:21
> *Judul:* Re: [belajar-excel] Nilai tambah pada VBA developer
>
>
> وَعَلَيْكُمُ لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> coba nyekripnya pakai rasa cinta xixixix ^_^
>
> Range("C6") = CInt(TextBox2.Value) + CInt(TextBox3.Value)
>
>
> وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> -Miss Jan Raisin-
>
>
> Pada 26 September 2013 09.35, Andy Ajhis Ramadhan <
> andyajhisramadhan@ymail.com> menulis:
>
> **
>
>
> Asslamu allaikum, wr wb
> Be-Exceller
>
> Bagaimana perumusan nilai tambah pada VBA developer ?
>
> Private Sub CommandButton1_Click()
> Range("C6") = (TextBox2.Value + TextBox3.Value) 'Nilai Plus disamping
> malah error, misal : 4 + 4 = 44, tetapi kalau diganti * atau / hasilnya
> tidak masalah.
> TextBox4 = Range("C6").Value
> End Sub
>
> file terlampir.... mohon bantuannya master. Terima Kasih
>
> Wassalamu allaikum, wr wb
> Andy
> _
>
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (8) . Top ^

2b

Re: Fw: Trs: [belajar-excel] Nilai tambah pada VBA developer

Wed Sep 25, 2013 11:20 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Terima kasih Miss Jan.

Salam,
HK

________________________________
From: Jan Raisin <miss.jan.raisin@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 26 September 2013, 13:08
Subject: Re: Fw: Trs: [belajar-excel] Nilai tambah pada VBA developer

tetap bisa pak Hendrik..

silakan dicoba dengan mengubah tipe data textbox dari string menjadi single atau doubel,
lalu coba masukkan angka2 integer dan lihat hasilnya
coba juga masukkan angka2 desimal dan lihat hasilnya

hanya diperlukan 1 kali ubah tipe data dan bisa digunakan untuk semua nilai selama nilai tersebut masuk dalam batasan yang ada (single atau double)

tambahan lagi.. sebaiknya sebelum melakukan kalkulasi perhitungan, ubah dahulu nilai yang diambil dari textbox yang defaultnya bertipe string menjadi tipe data yang sesuai.
dalam VBA (mungkin juga di VB, belum tau karena belum pernah belajar VB), tanda untuk menggabungkan dua buah string selain menggunakan tanda & juga bisa menggunakan tanda +

awal dari thread ini adalah nilai dari masing-masing textbox akan dijumlahkan menggunakan operator + dimana contohnya adalah 4 + 4 dan hasil yang diinginkan adalah 8,
tetapi karena komputer membaca bahwa tipe data dari setiap textbox defaultnya adalah string maka hasilnya adalah penggabungan dua buah string tersebut yang akhirnya menghasilkan nilai 44 dan bukan nilai 8.

Salam,

-Miss Jan Raisin-

Pada 26 September 2013 11.32, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:

>
>Miss Jan,
>Jadi ga bisa berlaku untuk kedua2nya tanpa merubah code?
>
>
>Salam,
>HK
>
>
>
>________________________________
> From: Jan Raisin <miss.jan.raisin@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Thursday, 26 September 2013, 11:12
>Subject: Re: Fw: Trs: [belajar-excel] Nilai tambah pada VBA developer
>
>
>
>
>jika nilai adalah desimal, maka bisa diubah dahulu menjadi data bertipe Single atau Double
>
>
>caranya:
>CSng(...) untuk mengubah menjadi single, atau
>CDbl(....) untuk mengubah menjadi double
>
>
>oia.. sebaiknya nilai suatu objek dituliskan lengkap sesuai defaultnya.. karena katanya (ini katanya ya..) akan lebih mudah saat akan diubah dari satu bahasa pemrograman yang satu ke bahasa pemrograman yang lain..
>
>
>jadi kalo Range("...") harus ditulis menjadi Range("...").value
>lalu kalo textbox harus ditulis TextBox1.txt sesuai dengan defaultnya
>kalo label berarti harus .Caption dsb
>
>
>salam,
>
>
>
>-Miss Jan Raisin-
>
>
>Pada 26 September 2013 10.47, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:
>
>
>>
>>Miss Jan,
>>Masih ada "sedikit" pertanyaan kecil,
>>bagaimana kalau angkanya bisa integer atau decimal ?
>>
>>
>>Salam,
>>HK
>>
>>
>>----- Forwarded Message -----
>>From: Andy Ajhis Ramadhan <andyajhisramadhan@ymail.com>
>>To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
>>Sent: Thursday, 26 September 2013, 10:30
>>Subject: Trs: [belajar-excel] Nilai tambah pada VBA developer
>>
>>
>>
>>
>>Wah terima kasih banyak miss jan :D miss jan Thanks You...
>>hehee gak jadi patah semangat deh, buat belajar lagi... kapan-kapan andy teraktir bakso Xiaa ^_^ xixixi
>>
>>
>>Terima Kasih Allah, kemudian Trima kasih Be-Exceller, Terima Kasih Miss Jan.
>>
>>
>>Salam,
>>Andy Ajhis R
>>
>>
>>----- Pesan yang Diteruskan -----
>>Dari: Jan Raisin <miss.jan.raisin@gmail.com>
>>Kepada: belajar-excel@yahoogroups.com
>>Dikirim: Kamis, 26 September 2013 10:21
>>Judul: Re: [belajar-excel] Nilai tambah pada VBA developer
>>
>>
>>
>>
>> وَعَلَيْكُمُ لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>
>>
>>
>>coba nyekripnya pakai rasa cinta xixixix ^_^
>>
>>
>>Range("C6") = CInt(TextBox2.Value)+ CInt(TextBox3.Value)
>>
>>
>>
>>
>>
>>وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>
>>
>>
>>-Miss Jan Raisin-
>>
>>
>>Pada 26 September 2013 09.35, Andy Ajhis Ramadhan <andyajhisramadhan@ymail.com> menulis:
>>
>>
>>>
>>>
>>>
>>>Asslamu allaikum, wr wb
>>>Be-Exceller
>>>
>>>
>>>Bagaimana perumusan nilai tambah pada VBA developer ?
>>>
>>>
>>>Private Sub CommandButton1_Click()
>>>Range("C6") = (TextBox2.Value + TextBox3.Value) 'Nilai Plus disamping malah error, misal : 4 + 4 = 44, tetapi kalau diganti * atau / hasilnya tidak masalah.
>>>TextBox4 = Range("C6").Value
>>>End Sub
>>>
>>>
>>>file terlampir.... mohon bantuannya master. Terima Kasih
>>>
>>>
>>>Wassalamu allaikum, wr wb
>>>Andy
>>>_
>>
>>
>>
>>

Reply to sender . Reply to group . Reply via Web Post . All Messages (8) . Top ^

3a

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Wed Sep 25, 2013 11:33 pm (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

jawabannya sama dengan Pak HK.

terimakasih koreksinya…

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: Thursday, September 26, 2013 12:33 PM
To: belajar-excel@yahoogroups.com
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 <praztmath@gmail.com>
To: belajar-excel@yahoogroups.com
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: 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_ulum@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]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: 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]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 08:44
To: 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]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, September 26, 2013 8:35 AM
To: 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]
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 ™

Reply to sender . Reply to group . Reply via Web Post . All Messages (24) . Top ^

3b

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 12:12 am (PDT) . Posted by:

"PRAZT" praztmath

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: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 13:34
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka

jawabannya sama dengan Pak HK.

terimakasih koreksinya…

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: Thursday, September 26, 2013 12:33 PM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
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 <praztmath@gmail.com <mailto:praztmath@gmail.com> >
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
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: 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 10:47
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]

terlampir file yang sudah saya coba...

-----Original Message-----
From: zainul_ulum[at]yahoo[dot]com [mailto:zainul_ulum@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 ™

Reply to sender . Reply to group . Reply via Web Post . All Messages (24) . Top ^

3c

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 12:20 am (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

coba di unprotect dulu semua sheet, kemudian dijalankan lagi macronya.

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:12 PM
To: belajar-excel@yahoogroups.com
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: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 13:34
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka

jawabannya sama dengan Pak HK.

terimakasih koreksinya…

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: Thursday, September 26, 2013 12:33 PM
To: belajar-excel@yahoogroups.com
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 <praztmath@gmail.com>
To: belajar-excel@yahoogroups.com
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: 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_ulum@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]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: 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]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 08:44
To: 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]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, September 26, 2013 8:35 AM
To: 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]
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 ™

Reply to sender . Reply to group . Reply via Web Post . All Messages (24) . Top ^

3d

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 12:31 am (PDT) . Posted by:

"PRAZT" praztmath

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.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 14:21
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka

coba di unprotect dulu semua sheet, kemudian dijalankan lagi macronya.

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com] On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:12 PM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
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: 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 13:34
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka

jawabannya sama dengan Pak HK.

terimakasih koreksinya…

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: Thursday, September 26, 2013 12:33 PM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
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 <praztmath@gmail.com <mailto:praztmath@gmail.com> >
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
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: 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 10:47
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]

terlampir file yang sudah saya coba...

-----Original Message-----
From: zainul_ulum[at]yahoo[dot]com [mailto:zainul_ulum@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 ™

Reply to sender . Reply to group . Reply via Web Post . All Messages (24) . Top ^

3e

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 1:33 am (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" 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.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] On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:30 PM
To: 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.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 14:21
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka

coba di unprotect dulu semua sheet, kemudian dijalankan lagi macronya.

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:12 PM
To: belajar-excel@yahoogroups.com
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: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 13:34
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka

jawabannya sama dengan Pak HK.
terimakasih koreksinya…

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: Thursday, September 26, 2013 12:33 PM
To: belajar-excel@yahoogroups.com
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 <praztmath@gmail.com>
To: belajar-excel@yahoogroups.com
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: 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_ulum@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]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: 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]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 08:44
To: 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]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, September 26, 2013 8:35 AM
To: 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]
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 ™

Reply to sender . Reply to group . Reply via Web Post . All Messages (24) . Top ^

3f

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 1:45 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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>

> **
>
>
> 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]
> On Behalf Of PRAZT
> Sent: Thursday, September 26, 2013 2:30 PM
>
> To: 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.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: 26 September 2013 14:21
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
>
> coba di unprotect dulu semua sheet, kemudian dijalankan lagi macronya.
>
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of PRAZT
> Sent: Thursday, September 26, 2013 2:12 PM
> To: belajar-excel@yahoogroups.com
> 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: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: 26 September 2013 13:34
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
>
> jawabannya sama dengan Pak HK.
> terimakasih koreksinya�
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of hendrik karnadi
> Sent: Thursday, September 26, 2013 12:33 PM
> To: belajar-excel@yahoogroups.com
> 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 <praztmath@gmail.com>
> To: belajar-excel@yahoogroups.com
> 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: 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_ulum@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]
> On Behalf Of PRAZT
> Sent: Thursday, September 26, 2013 9:47 AM
> To: 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]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: 26 September 2013 08:44
> To: 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]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: Thursday, September 26, 2013 8:35 AM
> To: 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]
> 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 �
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (24) . Top ^

3g

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 1:58 am (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

betul sekali Mr. Kid

atau ada ide yang lain?

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
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 <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]
On Behalf Of PRAZT

Sent: Thursday, September 26, 2013 2:30 PM

To: 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 T

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 14:21
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

coba di unprotect dulu semua sheet, kemudian dijalankan lagi macronya.

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:12 PM
To: belajar-excel@yahoogroups.com
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 T

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 13:34
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

jawabannya sama dengan Pak HK.
terimakasih koreksinya.

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of hendrik karnadi
Sent: Thursday, September 26, 2013 12:33 PM
To: belajar-excel@yahoogroups.com
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 <praztmath@gmail.com>
To: belajar-excel@yahoogroups.com
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: 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_ulum@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]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: 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]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 08:44
To: 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]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, September 26, 2013 8:35 AM
To: 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]
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

Reply to sender . Reply to group . Reply via Web Post . All Messages (24) . Top ^

3h

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 2:07 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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 <zainul_ulum@yahoo.com>

> **
>
>
> betul sekali Mr. Kid****
>
> atau ada ide yang lain?****
>
> ** **
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *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 <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]
> On Behalf Of PRAZT****
>
> Sent: Thursday, September 26, 2013 2:30 PM****
>
>
> To: 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.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: 26 September 2013 14:21
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
>
> coba di unprotect dulu semua sheet, kemudian dijalankan lagi macronya.
>
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of PRAZT
> Sent: Thursday, September 26, 2013 2:12 PM
> To: belajar-excel@yahoogroups.com
> 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: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: 26 September 2013 13:34
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
>
> jawabannya sama dengan Pak HK.
> terimakasih koreksinya�
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of hendrik karnadi
> Sent: Thursday, September 26, 2013 12:33 PM
> To: belajar-excel@yahoogroups.com
> 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 <praztmath@gmail.com>
> To: belajar-excel@yahoogroups.com
> 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: 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_ulum@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]
> On Behalf Of PRAZT
> Sent: Thursday, September 26, 2013 9:47 AM
> To: 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]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: 26 September 2013 08:44
> To: 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]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: Thursday, September 26, 2013 8:35 AM
> To: 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]
> 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 �
>
> ****
>
> ** **
>
> ****
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (24) . Top ^

3i

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 2:13 am (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

berarti saya kurang lengkap baca emailnya PakD

terimakasih, saya baca-baca lagi emailnya PakD.

wasssalam

-zainul-

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
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 <zainul_ulum@yahoo.com>

betul sekali Mr. Kid

atau ada ide yang lain?

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
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 <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]
On Behalf Of PRAZT

Sent: Thursday, September 26, 2013 2:30 PM

To: 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 T

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 14:21
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

coba di unprotect dulu semua sheet, kemudian dijalankan lagi macronya.

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 2:12 PM
To: belajar-excel@yahoogroups.com
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 T

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 13:34
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

jawabannya sama dengan Pak HK.
terimakasih koreksinya.

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of hendrik karnadi
Sent: Thursday, September 26, 2013 12:33 PM
To: belajar-excel@yahoogroups.com
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 <praztmath@gmail.com>
To: belajar-excel@yahoogroups.com
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: 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_ulum@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]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: 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]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 08:44
To: 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]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, September 26, 2013 8:35 AM
To: 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]
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

Reply to sender . Reply to group . Reply via Web Post . All Messages (24) . Top ^

3j

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 2:18 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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 <zainul_ulum@yahoo.com>

> **
>
>
> berarti saya kurang lengkap baca emailnya PakD****
>
> terimakasih, saya baca-baca lagi emailnya PakD.****
>
> ** **
>
> wasssalam****
>
> -zainul-****
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *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 <zainul_ulum@yahoo.com>****
>
> ****
>
> betul sekali Mr. Kid****
>
> atau ada ide yang lain?****
>
> ****
>
> ****
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *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 <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]
> On Behalf Of PRAZT****
>
> Sent: Thursday, September 26, 2013 2:30 PM****
>
>
> To: 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.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: 26 September 2013 14:21
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
>
> coba di unprotect dulu semua sheet, kemudian dijalankan lagi macronya.
>
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of PRAZT
> Sent: Thursday, September 26, 2013 2:12 PM
> To: belajar-excel@yahoogroups.com
> 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: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: 26 September 2013 13:34
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
>
> jawabannya sama dengan Pak HK.
> terimakasih koreksinya�
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of hendrik karnadi
> Sent: Thursday, September 26, 2013 12:33 PM
> To: belajar-excel@yahoogroups.com
> 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 <praztmath@gmail.com>
> To: belajar-excel@yahoogroups.com
> 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: 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_ulum@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]
> On Behalf Of PRAZT
> Sent: Thursday, September 26, 2013 9:47 AM
> To: 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]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: 26 September 2013 08:44
> To: 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]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: Thursday, September 26, 2013 8:35 AM
> To: 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]
> 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 �****
>
> ****
>
> ** **
>
> ****
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (24) . Top ^

3k

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 2:25 am (PDT) . Posted by:

"PRAZT" praztmath

@_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]
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 T

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 14:21
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

coba di unprotect dulu semua sheet, kemudian dijalankan lagi macronya.

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:12 PM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
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 T

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 13:34
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka

jawabannya sama dengan Pak HK.
terimakasih koreksinya.

From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
] On Behalf Of hendrik karnadi
Sent: Thursday, September 26, 2013 12:33 PM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
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 <praztmath@gmail.com <mailto:praztmath@gmail.com> >
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
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: 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 10:47
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]

terlampir file yang sudah saya coba...

-----Original Message-----
From: zainul_ulum[at]yahoo[dot]com [mailto:zainul_ulum@yahoo.com
<mailto:zainul_ulum@yahoo.com> ]
Sent: Thursday, September 26, 2013 10: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

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 <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 <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 <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 <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

Reply to sender . Reply to group . Reply via Web Post . All Messages (24) . Top ^

3l

Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka

Thu Sep 26, 2013 2:29 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Bukankah function yang dibuat mas Zain bernama PasswordKu_
Coba gunakan PasswordKu_ daripada PasswordKu

Wassalam,
Kid.

2013/9/26 PRAZT <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] *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>****
>
> ****
>
> 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]
> On Behalf Of PRAZT****
>
> Sent: Thursday, September 26, 2013 2:30 PM****
>
>
> To: 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.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: 26 September 2013 14:21
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
>
> coba di unprotect dulu semua sheet, kemudian dijalankan lagi macronya.
>
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of PRAZT
> Sent: Thursday, September 26, 2013 2:12 PM
> To: belajar-excel@yahoogroups.com
> 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: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: 26 September 2013 13:34
> To: belajar-excel@yahoogroups.com
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
>
> jawabannya sama dengan Pak HK.
> terimakasih koreksinya�
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of hendrik karnadi
> Sent: Thursday, September 26, 2013 12:33 PM
> To: belajar-excel@yahoogroups.com
> 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 <praztmath@gmail.com>
> To: belajar-excel@yahoogroups.com
> 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: 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_ulum@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]
> On Behalf Of PRAZT
> Sent: Thursday, September 26, 2013 9:47 AM
> To: 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]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: 26 September 2013 08:44
> To: 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]
> On Behalf Of zainul_ulum[at]yahoo[dot]com
> Sent: Thursday, September 26, 2013 8:35 AM
> To: 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]
> 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 �****
>
> ** **
>
> ****
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (24) . Top ^

Visit Your Group

View All Topics

Create New Topic

12 New Members

We are making changes based on your feedback, Thank you !

Submit Feedback

The Yahoo! Groups Product Blog

Check it out!

GROUP FOOTER MESSAGE

=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

CHANGE SETTINGS

UNSUBSCRIBE

Kamis, 26 September 2013

15 New Messages

Messages

1a

Wed Sep 25, 2013 10:54 pm (PDT) . Posted by:

2a

Wed Sep 25, 2013 11:08 pm (PDT) . Posted by:

2b

Wed Sep 25, 2013 11:20 pm (PDT) . Posted by:

3a

Wed Sep 25, 2013 11:33 pm (PDT) . Posted by:

3b

Thu Sep 26, 2013 12:12 am (PDT) . Posted by:

3c

Thu Sep 26, 2013 12:20 am (PDT) . Posted by:

3d

Thu Sep 26, 2013 12:31 am (PDT) . Posted by:

3e

Thu Sep 26, 2013 1:33 am (PDT) . Posted by:

3f

Thu Sep 26, 2013 1:45 am (PDT) . Posted by:

3g

Thu Sep 26, 2013 1:58 am (PDT) . Posted by:

3h

Thu Sep 26, 2013 2:07 am (PDT) . Posted by:

3i

Thu Sep 26, 2013 2:13 am (PDT) . Posted by:

3j

Thu Sep 26, 2013 2:18 am (PDT) . Posted by:

3k

Thu Sep 26, 2013 2:25 am (PDT) . Posted by:

3l

Thu Sep 26, 2013 2:29 am (PDT) . Posted by:

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me