15 New Messages
Digest #2557
8b
Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka [1 A by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
8c
Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
8d
Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka [1 A by "Mr. Kid" nmkid.family@ymail.com
Messages
Wed Sep 25, 2013 5:46 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Dear rekan-rekan Be-Excel,
Saya ingin tanya masalah KeyDown ini. Misalkan saya punya property TextBox, jika pencet huruf tertentu akan melakukan proses tertentu. Misalnya kalo pencet huruf A maka akan muncul pesan "Pencet Huruf A". Bagaimana jika pencet 2 huruf berturut-turut bisa untuk melakukan proses tertentu? Misal pencet hurut A dan S akan muncul pesan "Pencet Huruf AS".
Berkat bantuan rekan-rekan sebelumnya membantu saya dalam pembuatan kode VBE nya, berikut:
Private Sub txtL1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'pencet huruf A muncul pesan "Pencet A"
If KeyCode = 65 Then MsgBox "Pencet A"
'pengennya pencet huruf A dan S muncul pesan "Pencet AS"
If KeyCode = 65 + KeyCode = 83 Then MsgBox "Pencet AS"
'pencet selain angka, txtL1.Value =NullString
If KeyCode > 57 And KeyCode < 96 Or KeyCode > 105 Then KeyCode = 0
End Sub
Yg berwarna merah sudah saya otak atik pakai And Or + tapi hasilnya tidak sesuai. Bagaimana caranya untuk kasus seperti ini?
Apakah harus diberi semacam timer? jika dalam waktu 1 detik pencet huruf A maka keluar pesan "Pencet A". Jika dalam waktu 1 detik pencet huruf A dan S maka keluar pesan "Pencet AS". Mohon bantuannya rekan-rekan.
Trimakasih sebelumnya
Wassalam,
Saya ingin tanya masalah KeyDown ini. Misalkan saya punya property TextBox, jika pencet huruf tertentu akan melakukan proses tertentu. Misalnya kalo pencet huruf A maka akan muncul pesan "Pencet Huruf A". Bagaimana jika pencet 2 huruf berturut-turut bisa untuk melakukan proses tertentu? Misal pencet hurut A dan S akan muncul pesan "Pencet Huruf AS".
Berkat bantuan rekan-rekan sebelumnya membantu saya dalam pembuatan kode VBE nya, berikut:
Private Sub txtL1_KeyDown(
'pencet huruf A muncul pesan "Pencet A"
If KeyCode = 65 Then MsgBox "Pencet A"
'pengennya pencet huruf A dan S muncul pesan "Pencet AS"
If KeyCode = 65 + KeyCode = 83 Then MsgBox "Pencet AS"
'pencet selain angka, txtL1.Value =NullString
If KeyCode > 57 And KeyCode < 96 Or KeyCode > 105 Then KeyCode = 0
End Sub
Yg berwarna merah sudah saya otak atik pakai And Or + tapi hasilnya tidak sesuai. Bagaimana caranya untuk kasus seperti ini?
Apakah harus diberi semacam timer? jika dalam waktu 1 detik pencet huruf A maka keluar pesan "Pencet A". Jika dalam waktu 1 detik pencet huruf A dan S maka keluar pesan "Pencet AS". Mohon bantuannya rekan-rekan.
Trimakasih sebelumnya
Wassalam,
Wed Sep 25, 2013 6:24 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
mas Opik,
Coba langkah ini ya : (pelan-pelan)
1. deklarasikan dalam scope module (di userform kalau pakai userform, di
worksheet kalau pakai worksheet) untuk variabel berikut ini : (nama
variabel -> tipe datanya)
a. dblTime -> double 'waktu pencet terakhir
b. dblBatas -> double 'batas detik antar pencet tombol untuk
dinyatakan pencet bersamaan
c. sChar -> string 'nyimpan karakter di tombol terakhir
yang dipencet
2. set nilai awal variabel (letakkan di event initialize kalau pakai
userform, di event activate kalau di worksheet)
dbltime=timer
schar=vbnullstring
dblbatas=0.5 'berarti kalau kurang dari 0.5 detik pencet tombol lagi,
maka masih dianggap sambungan yang tadi
'jadi kalau dalam waktu 2 menit dia pencet tombol secara konsisten kurang
dari 0.5 detik, maka akan dianggap pencet bersamaan
'wakakakakakka
'atur sendiri batas yang lain supaya bisa batasi dalam 0.5 detik terakhir
ini pencet berapa tombol, gitu ya
3. atur update nilai variabel saat user pencet sesuatu (misal di textbox
bernama txtL1). Letakkan di event keydown si txtL1
dim dblCurTime as double
'bagian atur update nilai variabel saat user pencet tombol
dblcurtime=timer
if dblcurtime-dbltime < dblbatas then
schar=schar & chr$(keycode)
else
schar=chr$(keycode)
endif
dbltime=dblcurtime
'tampilkan pesan disini.
'jangan pakai msgbox ah, gangguin orang ngetik dan akan membuat batas waktu
pasti lebih dari 0.5 detik
'pakai label control aja, font-nya digedein dan dikasih warna gonjreng
(biar eye catching gitu)
'misal si label dikasih nama lblinpo
lblinpo.caption=schar
4. user pencet angka aja yang dibolehkan (alias boleh ditulis oleh si
textbox bernama txtL1). Lanjutkan yang nomor 3 ya
'bagian atur hanya angka do ang
select case keycode
case 48 to 57 'kode ASCII untuk angka do ang
'minum kopi aja gih
case else
keycode=0 'supaya yang ditulis si textbox adalah karakter 0 (null)
atau gak ada apa-apa
end select
5. selesai dan siap dicoba. Pastikan udah ada control yang namanya lblinpo
di nomor 3 bagian akhir ya
6. jangan lupa disave, supaya gak nangis kalo ternyata cekripnya bikin
crash (wakakaka... soale ditulis apa yang terlintas sajah... gak bisa nyoba)
:)
Wassalam,
Kid.
2013/9/25 lapendosol opik <lapendosol@yahoo.com>
> **
>
>
> Dear rekan-rekan Be-Excel,
> Saya ingin tanya masalah KeyDown ini. Misalkan saya punya property
> TextBox, jika pencet huruf tertentu akan melakukan proses tertentu.
> Misalnya kalo pencet huruf A maka akan muncul pesan "Pencet Huruf A".
> Bagaimana jika pencet 2 huruf berturut-turut bisa untuk melakukan proses
> tertentu? Misal pencet hurut A dan S akan muncul pesan "Pencet Huruf AS".
> Berkat bantuan rekan-rekan sebelumnya membantu saya dalam pembuatan kode
> VBE nya, berikut:
>
> Private Sub txtL1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal
> Shift As Integer)
> 'pencet huruf A muncul pesan "Pencet A"
> If KeyCode = 65 Then MsgBox "Pencet A"
> 'pengennya pencet huruf A dan S muncul pesan "Pencet AS"
> If KeyCode = 65 + KeyCode = 83 Then MsgBox "Pencet AS"
> 'pencet selain angka, txtL1.Value = NullString
> If KeyCode > 57 And KeyCode < 96 Or KeyCode > 105 Then KeyCode = 0
> End Sub
>
> Yg berwarna merah sudah saya otak atik pakai And Or + tapi hasilnya tidak
> sesuai. Bagaimana caranya untuk kasus seperti ini?
> Apakah harus diberi semacam timer? jika dalam waktu 1 detik pencet huruf A
> maka keluar pesan "Pencet A". Jika dalam waktu 1 detik pencet huruf A dan S
> maka keluar pesan "Pencet AS". Mohon bantuannya rekan-rekan.
> Trimakasih sebelumnya
> Wassalam,
>
>
>
Coba langkah ini ya : (pelan-pelan)
1. deklarasikan dalam scope module (di userform kalau pakai userform, di
worksheet kalau pakai worksheet) untuk variabel berikut ini : (nama
variabel -> tipe datanya)
a. dblTime -> double 'waktu pencet terakhir
b. dblBatas -> double 'batas detik antar pencet tombol untuk
dinyatakan pencet bersamaan
c. sChar -> string 'nyimpan karakter di tombol terakhir
yang dipencet
2. set nilai awal variabel (letakkan di event initialize kalau pakai
userform, di event activate kalau di worksheet)
dbltime=timer
schar=vbnullstring
dblbatas=0.5 'berarti kalau kurang dari 0.5 detik pencet tombol lagi,
maka masih dianggap sambungan yang tadi
'jadi kalau dalam waktu 2 menit dia pencet tombol secara konsisten kurang
dari 0.5 detik, maka akan dianggap pencet bersamaan
'wakakakakakka
'atur sendiri batas yang lain supaya bisa batasi dalam 0.5 detik terakhir
ini pencet berapa tombol, gitu ya
3. atur update nilai variabel saat user pencet sesuatu (misal di textbox
bernama txtL1). Letakkan di event keydown si txtL1
dim dblCurTime as double
'bagian atur update nilai variabel saat user pencet tombol
dblcurtime=timer
if dblcurtime-dbltime < dblbatas then
schar=schar & chr$(keycode)
else
schar=chr$(keycode)
endif
dbltime=dblcurtime
'tampilkan pesan disini.
'jangan pakai msgbox ah, gangguin orang ngetik dan akan membuat batas waktu
pasti lebih dari 0.5 detik
'pakai label control aja, font-nya digedein dan dikasih warna gonjreng
(biar eye catching gitu)
'misal si label dikasih nama lblinpo
lblinpo.caption=
4. user pencet angka aja yang dibolehkan (alias boleh ditulis oleh si
textbox bernama txtL1). Lanjutkan yang nomor 3 ya
'bagian atur hanya angka do ang
select case keycode
case 48 to 57 'kode ASCII untuk angka do ang
'minum kopi aja gih
case else
keycode=0 'supaya yang ditulis si textbox adalah karakter 0 (null)
atau gak ada apa-apa
end select
5. selesai dan siap dicoba. Pastikan udah ada control yang namanya lblinpo
di nomor 3 bagian akhir ya
6. jangan lupa disave, supaya gak nangis kalo ternyata cekripnya bikin
crash (wakakaka... soale ditulis apa yang terlintas sajah... gak bisa nyoba)
:)
Wassalam,
Kid.
2013/9/25 lapendosol opik <lapendosol@yahoo.
> **
>
>
> Dear rekan-rekan Be-Excel,
> Saya ingin tanya masalah KeyDown ini. Misalkan saya punya property
> TextBox, jika pencet huruf tertentu akan melakukan proses tertentu.
> Misalnya kalo pencet huruf A maka akan muncul pesan "Pencet Huruf A".
> Bagaimana jika pencet 2 huruf berturut-turut bisa untuk melakukan proses
> tertentu? Misal pencet hurut A dan S akan muncul pesan "Pencet Huruf AS".
> Berkat bantuan rekan-rekan sebelumnya membantu saya dalam pembuatan kode
> VBE nya, berikut:
>
> Private Sub txtL1_KeyDown(
> Shift As Integer)
> 'pencet huruf A muncul pesan "Pencet A"
> If KeyCode = 65 Then MsgBox "Pencet A"
> 'pengennya pencet huruf A dan S muncul pesan "Pencet AS"
> If KeyCode = 65 + KeyCode = 83 Then MsgBox "Pencet AS"
> 'pencet selain angka, txtL1.Value = NullString
> If KeyCode > 57 And KeyCode < 96 Or KeyCode > 105 Then KeyCode = 0
> End Sub
>
> Yg berwarna merah sudah saya otak atik pakai And Or + tapi hasilnya tidak
> sesuai. Bagaimana caranya untuk kasus seperti ini?
> Apakah harus diberi semacam timer? jika dalam waktu 1 detik pencet huruf A
> maka keluar pesan "Pencet A". Jika dalam waktu 1 detik pencet huruf A dan S
> maka keluar pesan "Pencet AS". Mohon bantuannya rekan-rekan.
> Trimakasih sebelumnya
> Wassalam,
>
>
>
Wed Sep 25, 2013 1:02 pm (PDT) . Posted by:
"Indra Sanjaya" indradjaja80an
Dear para suhu yg semoga selalu dlm lindungan Allah SWT & semoga selalu sehat wal 'afiat.
Kali ini Saya ingin menanyakan bagaimana rumus di pivot table tuk mencari % pencapaian.
Dlm file terlampir, bagaimana agar kolom G terisi seperti data di kolom M? Dan grand total di cell E125 terisi seperti data di cell K125?
Atas jawabannya diucapkan banyak terima kasih.
Kali ini Saya ingin menanyakan bagaimana rumus di pivot table tuk mencari % pencapaian.
Dlm file terlampir, bagaimana agar kolom G terisi seperti data di kolom M? Dan grand total di cell E125 terisi seperti data di cell K125?
Atas jawabannya diucapkan banyak terima kasih.
Wed Sep 25, 2013 1:52 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Indra,
File terlampir menambahkan kolom persen pencapaian setiap record disisi
data source.
Kolom ini ditampilkan dalam pivot table diberi format number percentage.
Oh iya, apakah tidak sebaiknya target diletakkan pada sisi Rows as it is
dan bukan pada sisi Values yang dikenai agregat average ?
Mungkin pada data yang baik-baik saja, keduanya akan menghasilkan nilai
yang sama.
Wassalam,
Kid.
2013/9/25 Indra Sanjaya <indradjaja80an@yahoo.com>
> **
>
>
> Dear para suhu yg semoga selalu dlm lindungan Allah SWT & semoga selalu
> sehat wal 'afiat.
>
> Kali ini Saya ingin menanyakan bagaimana rumus di pivot table tuk mencari %
> pencapaian.
> Dlm file terlampir, bagaimana agar kolom G terisi seperti data di kolom M?
> Dan grand total di cell E125 terisi seperti data di cell K125?
>
> Atas jawabannya diucapkan banyak terima kasih.
>
>
>
File terlampir menambahkan kolom persen pencapaian setiap record disisi
data source.
Kolom ini ditampilkan dalam pivot table diberi format number percentage.
Oh iya, apakah tidak sebaiknya target diletakkan pada sisi Rows as it is
dan bukan pada sisi Values yang dikenai agregat average ?
Mungkin pada data yang baik-baik saja, keduanya akan menghasilkan nilai
yang sama.
Wassalam,
Kid.
2013/9/25 Indra Sanjaya <indradjaja80an@
> **
>
>
> Dear para suhu yg semoga selalu dlm lindungan Allah SWT & semoga selalu
> sehat wal 'afiat.
>
> Kali ini Saya ingin menanyakan bagaimana rumus di pivot table tuk mencari %
> pencapaian.
> Dlm file terlampir, bagaimana agar kolom G terisi seperti data di kolom M?
> Dan grand total di cell E125 terisi seperti data di cell K125?
>
> Atas jawabannya diucapkan banyak terima kasih.
>
>
>
Wed Sep 25, 2013 2:17 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
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!
>
>
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@
> **
>
>
> 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@
> Date: Tue, 24 Sep 2013 21:46:02 +0700
> Subject: [belajar-excel] [1 Attachment]
> To: belajar-excel@
>
> 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@
> Date: Tue, 24 Sep 2013 22:33:27 +0800 (SGT)
> Subject: TRS:
> To: elinnurhayati4@
>
> 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!
>
>
Wed Sep 25, 2013 3:11 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Bayu,
ndak ada yang perlu diubah. Pivot tablenya bisa menggantikan tabel poin
persis dilokasi yang sudah ada bukan ?
Tabel data aslinya juga apa adanya, hanya ketambahan 1 kolom saja
diletakkan paling kanan. Jika ditabel poin yang ada sekarang terdapat kolom
IDPoin, maka data IDPoin itu harusnya bisa dilookup dari sebuah tabel
tertentu ke tabel data atau langsung ke samping pivot table (rekomendasinya
adalah ke tabel data). Jika tabel data bisa melookup id poin itu dari suatu
tabel referensi, maka di tabel data bertambah lagi 1 kolom (total jadi 2
kolom tambahan berisi formula) berisi formula lookup IDPoin. Dengan
bertambahnya kolom di tabel data, maka pivot tabel akan bisa menampilkan
persis seperti tabel poin yang ada sekarang. Letakkan record pertama pivot
table di lokasi yang persis juga seperti di tabel poin yang sudah ada.
Tabel data diubah agar menggunakan fitur Excel Table, supaya ndak sibuk
copy formula katanya. Semua VBA yang ada yang menulis di tabel data pada
kolom A sampai P tetap akan berjalan seperti biasa tanpa perlu diubah,
meski si tabel diubah jadi Excel Table dan bertambah 2 kolom berformula.
Artinya, penambahan kolom tidak mengganggu sistem yang sudah ada (salah
satu tantangan dalam mengembangkan sistem ada dibagian ini, yaitu sesedikit
mungkin mengganggu sistem yang sudah ada, kecuali bagian sistem yang tidak
efisien).
Apalagi (sekedar apalagi loh ya) kalau memanfaatkan nama range (named
range) yang dirujuk secara dinamis oleh formula index atau offset. Tentu
akan menjadi lebih nyaman untuk dikembangkan lebih lanjut. Nama range untuk
tabel data yang sudah ada bisa tetap digunakan seperti sedia kala dan ndak
perlu menggantinya menjadi nama excel table. Cukup data source pivot table
yang dibuat mengikuti nama excel table-nya.
Jika (nah yang ini hanya jika saja kok) kedepannya ada module baru (misal
hitung apa gitu yang belum ada sekarang) yang juga butuh data poin dari
pivot table, maka selain menggunakan rujukan range dalam VBA seperti yang
telah Anda gunakan sekarang, kelak akan bertambah lagi cara merujuk
rangenya, yaitu dengan object pivot table (karena datanya ada dalam pivot
table). Jadi kan ilmunya juga berkembang.
Benang merahnya apa ya...
Kira-kira begini :
ketika ada worksheet kosong, yang ada hanya range kosong. Anda merujuk ke
range tersebut dengan VBA.
Kemudian Anda menempelkan tabel data poin yang ada sekarang ke area range
yang dirujuk oleh VBA tadi. Anda tidak mengubah VBA-nya.
Kenapa kalau range kosong tadi diisi lembaran pivot table lalu harus
mengubah rujukan range dalam VBA ?
Wassalam,
Kid.
2013/9/23 <ske8ay@gmail.com>
> **
>
>
> ** Gimana Mr. Kid? Sudah di review utk sheet poinnya?
> Apakah sebaiknya tetap menggunakan pivot table dan merubah semua rujukan
> cellnya baik formula dan Vba atau ada alternatif lain?
> Karena semua sheet sifatnya 2 arah, sheet poin juga digunakan untuk
> mengambil informasi tentang nilai terkahir dr poin client, jadi
> destinasinya di rubah ke sheet poin pivot seperti file yg terakhir Mr. Kid
> berikan atau gimana?
> Sy masih bingung utk mengsinkronkan antara hasil dr pivot table dan
> database poin. Karena hasil dr pivot table adalah summary dari semua poin
> di kurangkan dengan poin yg telah kadaluarsa, sementara sheet poin adalah
> record history dr setiap transaksi yg terjadi saat itu tanpa di summarykan
> lagi dr sheet data dan pula berkaitan dgn sheet datapiutang. Maka dr itu,
> supaya tdk merubah banyak kode dan formula, ada jalan pintas nda' supaya yg
> dikurangkan itu langsung di sheet poinnya biar tdk loncat kesana sini?
>
> Trims
> Wassalam
> Powered by Telkomsel BlackBerry®
> ------------------------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Mon, 23 Sep 2013 13:40:18 +0700
> *To: *BeExcel<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] cara mengurangkan poin berdasarkan kriteria
>
>
>
> Berikut link untuk mengunduh file dari mas Bayu Arsyad.
> https://app.box.com/s/rmrufn85ne7eieox9k85
>
> Seluruh kritik, saran, ide baru, perbaikan, dan sebagainya, silakan
> diposting ke milis dengan cara me-reply topik :
> http://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/27971
>
> Wassalam,
> Kid.
>
>
>
> 2013/9/23 Bayu Arsyad <ske8ay@gmail.com>
>
>> **
>>
>>
>> Jangan di ketawain ya dalam penulisan kode2nya :(
>> Karena minim bahasa pemograman, saya hanya berdasarkan logika tanpa
>> mengindahkan kaidah dalam penulisan kodenya. Malahan mungkin malah muter2
>> aja kodenya hehheh.
>> Apabila ada yang bersedia memperbaiki, ataupun mengembangkan jangan
>> sungkan2 (Asal bagi2 juga ke saya heheheh)
>> Ditunggu respon dari Mr. Kid dan master2 lainnya, kira2 untuk case
>> poinnya ini sebaiknya dibuat seperti apa?
>>
>> Berikut saya lampirkan file fullnya
>> Trims
>> Wassalam
>>
>>
>> --- Mods ---
>> File lampiran telah dipisahkan dari email.
>> Terimakasih terlah berbagi dengan milis Belajar-Excel
>> Link untuk mengunduhnya akan diposting setelah selesai di-upload
>> ----------------
>>
>>
>>
>
>
ndak ada yang perlu diubah. Pivot tablenya bisa menggantikan tabel poin
persis dilokasi yang sudah ada bukan ?
Tabel data aslinya juga apa adanya, hanya ketambahan 1 kolom saja
diletakkan paling kanan. Jika ditabel poin yang ada sekarang terdapat kolom
IDPoin, maka data IDPoin itu harusnya bisa dilookup dari sebuah tabel
tertentu ke tabel data atau langsung ke samping pivot table (rekomendasinya
adalah ke tabel data). Jika tabel data bisa melookup id poin itu dari suatu
tabel referensi, maka di tabel data bertambah lagi 1 kolom (total jadi 2
kolom tambahan berisi formula) berisi formula lookup IDPoin. Dengan
bertambahnya kolom di tabel data, maka pivot tabel akan bisa menampilkan
persis seperti tabel poin yang ada sekarang. Letakkan record pertama pivot
table di lokasi yang persis juga seperti di tabel poin yang sudah ada.
Tabel data diubah agar menggunakan fitur Excel Table, supaya ndak sibuk
copy formula katanya. Semua VBA yang ada yang menulis di tabel data pada
kolom A sampai P tetap akan berjalan seperti biasa tanpa perlu diubah,
meski si tabel diubah jadi Excel Table dan bertambah 2 kolom berformula.
Artinya, penambahan kolom tidak mengganggu sistem yang sudah ada (salah
satu tantangan dalam mengembangkan sistem ada dibagian ini, yaitu sesedikit
mungkin mengganggu sistem yang sudah ada, kecuali bagian sistem yang tidak
efisien).
Apalagi (sekedar apalagi loh ya) kalau memanfaatkan nama range (named
range) yang dirujuk secara dinamis oleh formula index atau offset. Tentu
akan menjadi lebih nyaman untuk dikembangkan lebih lanjut. Nama range untuk
tabel data yang sudah ada bisa tetap digunakan seperti sedia kala dan ndak
perlu menggantinya menjadi nama excel table. Cukup data source pivot table
yang dibuat mengikuti nama excel table-nya.
Jika (nah yang ini hanya jika saja kok) kedepannya ada module baru (misal
hitung apa gitu yang belum ada sekarang) yang juga butuh data poin dari
pivot table, maka selain menggunakan rujukan range dalam VBA seperti yang
telah Anda gunakan sekarang, kelak akan bertambah lagi cara merujuk
rangenya, yaitu dengan object pivot table (karena datanya ada dalam pivot
table). Jadi kan ilmunya juga berkembang.
Benang merahnya apa ya...
Kira-kira begini :
ketika ada worksheet kosong, yang ada hanya range kosong. Anda merujuk ke
range tersebut dengan VBA.
Kemudian Anda menempelkan tabel data poin yang ada sekarang ke area range
yang dirujuk oleh VBA tadi. Anda tidak mengubah VBA-nya.
Kenapa kalau range kosong tadi diisi lembaran pivot table lalu harus
mengubah rujukan range dalam VBA ?
Wassalam,
Kid.
2013/9/23 <ske8ay@gmail.
> **
>
>
> ** Gimana Mr. Kid? Sudah di review utk sheet poinnya?
> Apakah sebaiknya tetap menggunakan pivot table dan merubah semua rujukan
> cellnya baik formula dan Vba atau ada alternatif lain?
> Karena semua sheet sifatnya 2 arah, sheet poin juga digunakan untuk
> mengambil informasi tentang nilai terkahir dr poin client, jadi
> destinasinya di rubah ke sheet poin pivot seperti file yg terakhir Mr. Kid
> berikan atau gimana?
> Sy masih bingung utk mengsinkronkan antara hasil dr pivot table dan
> database poin. Karena hasil dr pivot table adalah summary dari semua poin
> di kurangkan dengan poin yg telah kadaluarsa, sementara sheet poin adalah
> record history dr setiap transaksi yg terjadi saat itu tanpa di summarykan
> lagi dr sheet data dan pula berkaitan dgn sheet datapiutang. Maka dr itu,
> supaya tdk merubah banyak kode dan formula, ada jalan pintas nda' supaya yg
> dikurangkan itu langsung di sheet poinnya biar tdk loncat kesana sini?
>
> Trims
> Wassalam
> Powered by Telkomsel BlackBerry®
> ------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.
> *Sender: * belajar-excel@
> *Date: *Mon, 23 Sep 2013 13:40:18 +0700
> *To: *BeExcel<belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] cara mengurangkan poin berdasarkan kriteria
>
>
>
> Berikut link untuk mengunduh file dari mas Bayu Arsyad.
> https://app.
>
> Seluruh kritik, saran, ide baru, perbaikan, dan sebagainya, silakan
> diposting ke milis dengan cara me-reply topik :
> http://groups.
>
> Wassalam,
> Kid.
>
>
>
> 2013/9/23 Bayu Arsyad <ske8ay@gmail.
>
>> **
>>
>>
>> Jangan di ketawain ya dalam penulisan kode2nya :(
>> Karena minim bahasa pemograman, saya hanya berdasarkan logika tanpa
>> mengindahkan kaidah dalam penulisan kodenya. Malahan mungkin malah muter2
>> aja kodenya hehheh.
>> Apabila ada yang bersedia memperbaiki, ataupun mengembangkan jangan
>> sungkan2 (Asal bagi2 juga ke saya heheheh)
>> Ditunggu respon dari Mr. Kid dan master2 lainnya, kira2 untuk case
>> poinnya ini sebaiknya dibuat seperti apa?
>>
>> Berikut saya lampirkan file fullnya
>> Trims
>> Wassalam
>>
>>
>> --- Mods ---
>> File lampiran telah dipisahkan dari email.
>> Terimakasih terlah berbagi dengan milis Belajar-Excel
>> Link untuk mengunduhnya akan diposting setelah selesai di-upload
>> ------------
>>
>>
>>
>
>
Wed Sep 25, 2013 3:38 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba diteliti ulang setiap listbox mengambil dari range yang sesuai atau
belum.
Kemudian, setiap penambahan item ke listbox selalu diletakkan pada blok IF
terdalam.
Wassalam,
Kid.
2013/9/25 Joyokusumo Naba <respati007@yahoo.com>
> **
>
>
> Dear Para Master,,
>
> Saya Sudah mencoba untuk kasus Membuat Filter dengan menggunakan ListBox..
> Saya Menggunakan MultiPage, pada Page 1 saya berhasil dengan Filter Listbox
> Tapi Pada Page 2 saya tidak berhasil membuat Filter Listbox nya mohon
> pencerahan para Master, File terlampir untuk di pelajari.
>
> Terima Kasih
>
>
>
belum.
Kemudian, setiap penambahan item ke listbox selalu diletakkan pada blok IF
terdalam.
Wassalam,
Kid.
2013/9/25 Joyokusumo Naba <respati007@yahoo.
> **
>
>
> Dear Para Master,,
>
> Saya Sudah mencoba untuk kasus Membuat Filter dengan menggunakan ListBox..
> Saya Menggunakan MultiPage, pada Page 1 saya berhasil dengan Filter Listbox
> Tapi Pada Page 2 saya tidak berhasil membuat Filter Listbox nya mohon
> pencerahan para Master, File terlampir untuk di pelajari.
>
> Terima Kasih
>
>
>
Wed Sep 25, 2013 5:02 pm (PDT) . Posted by:
"Elin Nurhayati"
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!
>>
>>
>
Dear para master terima kasih banyak atas jawabannya dan mhon maaf
atas kesalahan maksud pertanyaannya.
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.
> Wa'alaikumussal
>
> 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@
>
>> **
>>
>>
>> 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@
>> Date: Tue, 24 Sep 2013 21:46:02 +0700
>> Subject: [belajar-excel] [1 Attachment]
>> To: belajar-excel@
>>
>> 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@
>> Date: Tue, 24 Sep 2013 22:33:27 +0800 (SGT)
>> Subject: TRS:
>> To: elinnurhayati4@
>>
>> 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!
>>
>>
>
Wed Sep 25, 2013 5:09 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
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!
> >>
> >>
> >
>
>
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'
Kid.
2013/9/26 Elin Nurhayati <elinnurhayati4@
> **
>
>
> Assalamualaikum Wr Wb
> Dear para master terima kasih banyak atas jawabannya dan mhon maaf
> atas kesalahan maksud pertanyaannya.
> 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.
> > Wa'alaikumussal
> >
> > 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@
> >
> >> **
> >>
> >>
> >> 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@
> >> Date: Tue, 24 Sep 2013 21:46:02 +0700
> >> Subject: [belajar-excel] [1 Attachment]
> >> To: belajar-excel@
> >>
> >> 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@
> >> Date: Tue, 24 Sep 2013 22:33:27 +0800 (SGT)
> >> Subject: TRS:
> >> To: elinnurhayati4@
> >>
> >> 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!
> >>
> >>
> >
>
>
Wed Sep 25, 2013 5:42 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Kira-kira alurnya begini : (susun VBA nya mengikuti alur. asumsi untuk cari
banyak data dan menemukan banyak data per setiap teks pencarian)
1. buat blok loop untuk membaca baris data kriteria (bisa pakai do while,
for next, atau for each bila berupa object)
2. dalam blok loop nomor 1 :
2a ambil semua data kriteria pencarian
2b buka workbook
2c buat blok loop untuk baca setiap sheet yang ada di workbook yang
dibuka oleh 2b
2d dalam blok loop 2c lakukan :
2d1 tentukan range pencarian (simpan dalam sebuah variabel bila
perlu)
2d2 buat blok loop pencarian dengan Find dan FindNext seperti di
http://msdn.microsoft.com/en-us/library/office/aa195732%28v=office.11%29.aspx
2d3 dalam blok 2d2 lakukan :
2d3A simpan semua data yang dibutuhkan dari hasil pencarian
tersebut
2d3B tulis ke lokasi hasil (entah dimana lokasi penulisannya,
terserah Anda saja)
2e tutup workbook
3 selesai
Yang perlu dipertimbangkan pada proses diatas adalah :
X1. lokasi pencarian ada banyak tempat
X2. yang dicari ada banyak
X3. kegiatan mencarinya bisa berulang-ulang sesuka user yang berarti
intensitasnya bisa banyak
Nomor X1 sampai X3 akan berakibat pada inefisiensi proses.
Wajarnya (hanya wajarnya loh ya, entah kalau lebih senang yang ndak wajar),
data digabungkan disatu file (xl2007 keatas bisa sampai 1juta baris kan).
Kalau hasil gabungan bisa lebih dari 1 juta baris, (wajarnya... xixixi...
wajarnya lagi ya) data diletakkan di database seperti Access atau yang
lebih besar dari Access (sekedar numpang naruh data ajah). Masih ngomongin
data lenih dari 1 juta baris, yang ndak wajar adalah meletakkan di sheet
lain di workbook yang sama (bukan diworkbook yang berbeda). Susun data
mengikuti series waktu.
Proses menggabungkan ini memang membutuhkan waktu proses penggabungan. Tapi
kegiatan ini dilakukan hanya sekali setiap kali data baru datang. Setelah
itu, proses pencarian bisa dilakukan hanya pada sheet data gabungan. Jika
data gabungan hanya 1 sheet, maka fitur advanced filter (kalau mau otomatis
dari pencet tombol maka gunakan VBA untuk menjalankannya -> ini namanya
otomasi proses bukan membuat aplikasi). Jika ada banyak sheet (karena lebih
dari 1juta record dan milih yang ndak wajar), maka proses advanced filter
diletakkan pada sebuah loop per worksheet data, dalam loop tersebut,
pastikan ada proses copy hasil advanced filter ke sheet lain (hasil akhir)
sebelum proses ke sheet data lainnya.
Kalau data lebih dari 1 juta dan diletakkan di database seperti access,
maka lakukan dengan get external data yang berisi query select disertai
proses filter dengan where yang pakai IN atau dengan join ke tabel kriteria
(tabel kriterianya harus di kirim ke databasenya dulu kalau pakai join).
Kalau data baru bersifat realtime dan datanya diletakkan ditempat yang
berbeda-beda (misal per cabang dilokasinya masing-masing), maka manfaatkan
database engine dilokasi si excel yang mau memfilter berada untuk mengambil
semua data dari semua cabang. Lalu si excel pakai get external data ke
database engine tersebut.
so,
mana yang lebih pas buat Anda, silakan diputuskan dan dikembangkan.
Wassalam,
Kid.
2013/9/25 <dayatshogun46@yahoo.co.id>
> **
>
>
> *** Bagaimana kalau daripada sekedar forward posting, dilakukan penambahan
> informasi. Bisa jadi posting yang lalu tidak ada yang tertarik menanggapi
> karena ketidak jelasan keinginan. Coba jabarkan data awalnya yang mana,
> data akhirnya yang mana (hasil kerja manualnya), kemudian prosesnya mau
> bagaimana, prosesnya seberapa sering, apa saja batasannya, dan sebagainya.
> Kuatirnya, kalau sekedar forward terus menerus, tetap tidak ada yang
> menanggapi. ***
>
> Dear rekan2
>
> Mohon bantuannya untuk berbagi saran untuk pemecahan vb yang mungkin masih
> tersenda karena search data januari 2013 belum tau cara prosess macronya.
> Mohon saranya terimakasih
>
> Regards
> Dayat
>
> Powered by Telkomsel BlackBerry�
>
>
>
banyak data dan menemukan banyak data per setiap teks pencarian)
1. buat blok loop untuk membaca baris data kriteria (bisa pakai do while,
for next, atau for each bila berupa object)
2. dalam blok loop nomor 1 :
2a ambil semua data kriteria pencarian
2b buka workbook
2c buat blok loop untuk baca setiap sheet yang ada di workbook yang
dibuka oleh 2b
2d dalam blok loop 2c lakukan :
2d1 tentukan range pencarian (simpan dalam sebuah variabel bila
perlu)
2d2 buat blok loop pencarian dengan Find dan FindNext seperti di
http://msdn.
2d3 dalam blok 2d2 lakukan :
2d3A simpan semua data yang dibutuhkan dari hasil pencarian
tersebut
2d3B tulis ke lokasi hasil (entah dimana lokasi penulisannya,
terserah Anda saja)
2e tutup workbook
3 selesai
Yang perlu dipertimbangkan pada proses diatas adalah :
X1. lokasi pencarian ada banyak tempat
X2. yang dicari ada banyak
X3. kegiatan mencarinya bisa berulang-ulang sesuka user yang berarti
intensitasnya bisa banyak
Nomor X1 sampai X3 akan berakibat pada inefisiensi proses.
Wajarnya (hanya wajarnya loh ya, entah kalau lebih senang yang ndak wajar),
data digabungkan disatu file (xl2007 keatas bisa sampai 1juta baris kan).
Kalau hasil gabungan bisa lebih dari 1 juta baris, (wajarnya... xixixi...
wajarnya lagi ya) data diletakkan di database seperti Access atau yang
lebih besar dari Access (sekedar numpang naruh data ajah). Masih ngomongin
data lenih dari 1 juta baris, yang ndak wajar adalah meletakkan di sheet
lain di workbook yang sama (bukan diworkbook yang berbeda). Susun data
mengikuti series waktu.
Proses menggabungkan ini memang membutuhkan waktu proses penggabungan. Tapi
kegiatan ini dilakukan hanya sekali setiap kali data baru datang. Setelah
itu, proses pencarian bisa dilakukan hanya pada sheet data gabungan. Jika
data gabungan hanya 1 sheet, maka fitur advanced filter (kalau mau otomatis
dari pencet tombol maka gunakan VBA untuk menjalankannya -> ini namanya
otomasi proses bukan membuat aplikasi). Jika ada banyak sheet (karena lebih
dari 1juta record dan milih yang ndak wajar), maka proses advanced filter
diletakkan pada sebuah loop per worksheet data, dalam loop tersebut,
pastikan ada proses copy hasil advanced filter ke sheet lain (hasil akhir)
sebelum proses ke sheet data lainnya.
Kalau data lebih dari 1 juta dan diletakkan di database seperti access,
maka lakukan dengan get external data yang berisi query select disertai
proses filter dengan where yang pakai IN atau dengan join ke tabel kriteria
(tabel kriterianya harus di kirim ke databasenya dulu kalau pakai join).
Kalau data baru bersifat realtime dan datanya diletakkan ditempat yang
berbeda-beda (misal per cabang dilokasinya masing-masing)
database engine dilokasi si excel yang mau memfilter berada untuk mengambil
semua data dari semua cabang. Lalu si excel pakai get external data ke
database engine tersebut.
so,
mana yang lebih pas buat Anda, silakan diputuskan dan dikembangkan.
Wassalam,
Kid.
2013/9/25 <dayatshogun46@
> **
>
>
> *** Bagaimana kalau daripada sekedar forward posting, dilakukan penambahan
> informasi. Bisa jadi posting yang lalu tidak ada yang tertarik menanggapi
> karena ketidak jelasan keinginan. Coba jabarkan data awalnya yang mana,
> data akhirnya yang mana (hasil kerja manualnya), kemudian prosesnya mau
> bagaimana, prosesnya seberapa sering, apa saja batasannya, dan sebagainya.
> Kuatirnya, kalau sekedar forward terus menerus, tetap tidak ada yang
> menanggapi. ***
>
> Dear rekan2
>
> Mohon bantuannya untuk berbagi saran untuk pemecahan vb yang mungkin masih
> tersenda karena search data januari 2013 belum tau cara prosess macronya.
> Mohon saranya terimakasih
>
> Regards
> Dayat
>
> Powered by Telkomsel BlackBerry�
>
>
>
Wed Sep 25, 2013 6:03 pm (PDT) . Posted by:
"PRAZT" praztmath
Assalammu'
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)
file dibuka.
bagaimana kode VBA_nya jika pasword tersebut adalah kombinasi nama
hari,karakter(
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-
kalau dibuka hari selasa maka passwordnya Selasa#24-09-
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
Wed Sep 25, 2013 6:35 pm (PDT) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
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 ™
Function PasswordKu_(
Dim pwd As String
With Application.
'aturan memberi symbol $ # @ masih belum jelas aturannya
'secara default diberi symbol |
pwd = .Text(Now, "[$-421]
'mengganti symbol | dengan misal $
pwd = .Substitute(
End With
PasswordKu_=
End Function
From: belajar-excel@
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)
file dibuka.
bagaimana kode VBA_nya jika pasword tersebut adalah kombinasi nama
hari,karakter(
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-
kalau dibuka hari selasa maka passwordnya Selasa#24-09-
kalau dibuka hari Rabu maka passwordnya Rabu$25-09-2013
saya sudah berusaha untuk menambahkan kode-kode VBA tapi mentok pada
kesulitan. Wassalam...
PRAZTMATH ™
Wed Sep 25, 2013 6:44 pm (PDT) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
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 ™
'============
Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("
With Application.
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]
End With
PasswordKu = pwd
End Function
'============
From: belajar-excel@
On Behalf Of zainul_ulum[
Sent: Thursday, September 26, 2013 8:35 AM
To: belajar-excel@
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
coba code berikut:
Function PasswordKu_(
Dim pwd As String
With Application.
'aturan memberi symbol $ # @ masih belum jelas aturannya
'secara default diberi symbol |
pwd = .Text(Now, "[$-421]
'mengganti symbol | dengan misal $
pwd = .Substitute(
End With
PasswordKu_=
End Function
From: belajar-excel@
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)
file dibuka.
bagaimana kode VBA_nya jika pasword tersebut adalah kombinasi nama
hari,karakter(
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-
kalau dibuka hari selasa maka passwordnya Selasa#24-09-
kalau dibuka hari Rabu maka passwordnya Rabu$25-09-2013
saya sudah berusaha untuk menambahkan kode-kode VBA tapi mentok pada
kesulitan. Wassalam...
PRAZTMATH ™
Wed Sep 25, 2013 6:51 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Hai Prazt,
Coba letakkan di event workbook open, pastikan semua sheet gak diproteksi.
dim vHari as variant
dim sht as worksheet
vhari=array("Minggu!","Senin@","Selasa#","Rabu$","Kamis%","Jumat^","Sabtu&")
'ini base 0, alias mulai dari 0
for each sht in thisworkbook.worksheets
sht.unprotect vhari( weekday( date-1 ) -1 ) & format$(
date-1,"DD-MM-YYYY" )
sht.protect vhari( weekday( date ) -1 ) & format$( date,"DD-MM-YYYY" )
next sht
syarat :
1. tiap hari dibuka
2. tidak boleh buka file jam 23:59:59
hehehe...
dari situ, nanti bisa dikembangkan untuk menghilangkan 2 syarat itu.
sapa yang mo coba ?
Wassalamu'alaikum Wr. Wb.
Kid.
2013/9/26 PRAZT <praztmath@gmail.com>
> Assalammu'alaikum...****
>
> dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel dengan
> alur cerita begini;****
>
> saya ingin memprotect sheet-sheet pada file excel bisa berganti setiap
> file dibuka dengan kombinasi Hari, karakter(simpul), dan tanggal Diana****
>
> file dibuka. ****
>
> bagaimana kode VBA_nya jika pasword tersebut adalah kombinasi nama
> hari,karakter(simbol), dan tanggal pada waktu file di
> buka ****
>
> dimana simbol diambil dari nomor hari jika hari dimulai dengan hari
> Minggu ****
>
> contoh file dibuka pada hari senin tanggal 23 september 2013 maka
> passwordnya adalah ; ****
>
> Senin@23-09-2013 ****
>
> kalau dibuka hari selasa maka passwordnya Selasa#24-09-2013****
>
> kalau dibuka hari Rabu maka passwordnya Rabu$25-09-2013****
>
> saya sudah berusaha untuk menambahkan kode-kode VBA tapi mentok pada
> kesulitan. Wassalam...****
>
> ** **
>
> ********
>
> PRAZTMATH ™****
>
> ** **
>
Hai Prazt,
Coba letakkan di event workbook open, pastikan semua sheet gak diproteksi.
dim vHari as variant
dim sht as worksheet
vhari=array(
'ini base 0, alias mulai dari 0
for each sht in thisworkbook.
sht.unprotect vhari( weekday( date-1 ) -1 ) & format$(
date-1,"
sht.protect vhari( weekday( date ) -1 ) & format$( date,"DD-
next sht
syarat :
1. tiap hari dibuka
2. tidak boleh buka file jam 23:59:59
hehehe...
dari situ, nanti bisa dikembangkan untuk menghilangkan 2 syarat itu.
sapa yang mo coba ?
Wassalamu'
Kid.
2013/9/26 PRAZT <praztmath@gmail.
> 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)
>
> file dibuka. ****
>
> bagaimana kode VBA_nya jika pasword tersebut adalah kombinasi nama
> hari,karakter(
> 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-
>
> kalau dibuka hari selasa maka passwordnya Selasa#24-09-
>
> kalau dibuka hari Rabu maka passwordnya Rabu$25-09-2013*
>
> saya sudah berusaha untuk menambahkan kode-kode VBA tapi mentok pada
> kesulitan. Wassalam...*
>
> ** **
>
> ********
>
> PRAZTMATH ™****
>
> ** **
>
Wed Sep 25, 2013 7:30 pm (PDT) . Posted by:
"PRAZT" praztmath
Suwun Mr.Kid
Tadi difile lampiran udah saya kasih kode berikut
rivate Function PasswordKu() As String
Dim NoHari As Integer
NoHari = Application.WorksheetFunction.Weekday(Now)
PasswordKu = Choose(NoHari, "Minggu", "Senin", "Selasa", "Rabu",
"Kamis", "Jumat", "Sabtu")
End Function
Sub Auto_Open()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect PasswordKu
Next ws
End Sub
Sub Auto_Close()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect PasswordKu
Next ws
End Sub
Dan jika dibuka pada hari ini Kamis, 26 September 2013 pasword sheetnya
masih nama hari saja yaitu "Kamis"(tanpa tanda petik)....ok sekarang saya
coba kode yang MK berikan...
PRAZTMATH T
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: 26 September 2013 08:51
To: BeExcel
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Wa'alaikumussalam Wr. Wb.
Hai Prazt,
Coba letakkan di event workbook open, pastikan semua sheet gak diproteksi.
dim vHari as variant
dim sht as worksheet
vhari=array("Minggu!","Senin@","Selasa#","Rabu$","Kamis%","Jumat^","Sabtu&")
'ini base 0, alias mulai dari 0
for each sht in thisworkbook.worksheets
sht.unprotect vhari( weekday( date-1 ) -1 ) & format$(
date-1,"DD-MM-YYYY" )
sht.protect vhari( weekday( date ) -1 ) & format$( date,"DD-MM-YYYY" )
next sht
syarat :
1. tiap hari dibuka
2. tidak boleh buka file jam 23:59:59
hehehe...
dari situ, nanti bisa dikembangkan untuk menghilangkan 2 syarat itu.
sapa yang mo coba ?
Wassalamu'alaikum Wr. Wb.
Kid.
2013/9/26 PRAZT <praztmath@gmail.com <mailto:praztmath@gmail.com> >
Assalammu'alaikum...
dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel dengan
alur cerita begini;
saya ingin memprotect sheet-sheet pada file excel bisa berganti setiap file
dibuka dengan kombinasi Hari, karakter(simpul), dan tanggal Diana
file dibuka.
bagaimana kode VBA_nya jika pasword tersebut adalah kombinasi nama
hari,karakter(simbol), dan tanggal pada waktu file di buka
dimana simbol diambil dari nomor hari jika hari dimulai dengan hari Minggu
contoh file dibuka pada hari senin tanggal 23 september 2013 maka
passwordnya adalah ;
Senin@23-09-2013
kalau dibuka hari selasa maka passwordnya Selasa#24-09-2013
kalau dibuka hari Rabu maka passwordnya Rabu$25-09-2013
saya sudah berusaha untuk menambahkan kode-kode VBA tapi mentok pada
kesulitan. Wassalam...
PRAZTMATH T
Tadi difile lampiran udah saya kasih kode berikut
rivate Function PasswordKu() As String
Dim NoHari As Integer
NoHari = Application.
PasswordKu = Choose(NoHari, "Minggu"
"Kamis"
End Function
Sub Auto_Open()
Dim ws As Worksheet
For Each ws In ThisWorkbook.
ws.Protect PasswordKu
Next ws
End Sub
Sub Auto_Close()
Dim ws As Worksheet
For Each ws In ThisWorkbook.
ws.Unprotect PasswordKu
Next ws
End Sub
Dan jika dibuka pada hari ini Kamis, 26 September 2013 pasword sheetnya
masih nama hari saja yaitu "Kamis"
coba kode yang MK berikan...
PRAZTMATH T
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 26 September 2013 08:51
To: BeExcel
Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Wa'alaikumussal
Hai Prazt,
Coba letakkan di event workbook open, pastikan semua sheet gak diproteksi.
dim vHari as variant
dim sht as worksheet
vhari=array(
'ini base 0, alias mulai dari 0
for each sht in thisworkbook.
sht.unprotect vhari( weekday( date-1 ) -1 ) & format$(
date-1,"
sht.protect vhari( weekday( date ) -1 ) & format$( date,"DD-
next sht
syarat :
1. tiap hari dibuka
2. tidak boleh buka file jam 23:59:59
hehehe...
dari situ, nanti bisa dikembangkan untuk menghilangkan 2 syarat itu.
sapa yang mo coba ?
Wassalamu'
Kid.
2013/9/26 PRAZT <praztmath@gmail.
Assalammu'
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)
file dibuka.
bagaimana kode VBA_nya jika pasword tersebut adalah kombinasi nama
hari,karakter(
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-
kalau dibuka hari selasa maka passwordnya Selasa#24-09-
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
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
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar