15 New Messages
Digest #2563
5.1
Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "Mr. Kid" nmkid.family@ymail.com
7a
Bls: [belajar-excel] Menghitung Rombongan Belajar Siswa [1 Attachmen by "A. Zainal H." a_zainal_hilmi
Messages
Fri Sep 27, 2013 5:44 am (PDT) . Posted by:
"Mr. KEPT" kurniawan_tufail@ymail.com
Dear opik,,
Thanks a lot pak, saya sudah donlod datanya, saya ingin bertanya, kenapa
sheet datanya tidak kelihatan. saya perhatikan di bagian penulisan scriptnya
tidak ada yang menyatakan untuk menghidden sheet data. saya cek juga sheet
hidden, tidak ada sheet yang terhidden, mohon penjelasannya,,
seklai lagi terimakasih atas filenya pak, dan juga untuk miss Jan,,
Regrads,
Kurniawan
--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-text-filter-tp5721254p5721257.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Thanks a lot pak, saya sudah donlod datanya, saya ingin bertanya, kenapa
sheet datanya tidak kelihatan. saya perhatikan di bagian penulisan scriptnya
tidak ada yang menyatakan untuk menghidden sheet data. saya cek juga sheet
hidden, tidak ada sheet yang terhidden, mohon penjelasannya,
seklai lagi terimakasih atas filenya pak, dan juga untuk miss Jan,,
Regrads,
Kurniawan
--
View this message in context: http://milis-
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Fri Sep 27, 2013 8:59 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Coba jalan2 ke VBE Sheet dengan menekan tombol Alt F11.
Klik Sheet2(data) lalu klik View, Properties Window.
Pada bagian bawah Properties pilih Visible maka sheet data akan terlihat pada workbook.
Salam,
HK
________________________________
From: Mr. KEPT <kurniawan_tufail@ymail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 27 September 2013, 19:44
Subject: Re: [belajar-excel] text filter
Dear opik,,
Thanks a lot pak, saya sudah donlod datanya, saya ingin bertanya, kenapa
sheet datanya tidak kelihatan. saya perhatikan di bagian penulisan scriptnya
tidak ada yang menyatakan untuk menghidden sheet data. saya cek juga sheet
hidden, tidak ada sheet yang terhidden, mohon penjelasannya,,
seklai lagi terimakasih atas filenya pak, dan juga untuk miss Jan,,
Regrads,
Kurniawan
--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-text-filter-tp5721254p5721257.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Klik Sheet2(data) lalu klik View, Properties Window.
Pada bagian bawah Properties pilih Visible maka sheet data akan terlihat pada workbook.
Salam,
HK
____________
From: Mr. KEPT <kurniawan_tufail@
To: belajar-excel@
Sent: Friday, 27 September 2013, 19:44
Subject: Re: [belajar-excel] text filter
Dear opik,,
Thanks a lot pak, saya sudah donlod datanya, saya ingin bertanya, kenapa
sheet datanya tidak kelihatan. saya perhatikan di bagian penulisan scriptnya
tidak ada yang menyatakan untuk menghidden sheet data. saya cek juga sheet
hidden, tidak ada sheet yang terhidden, mohon penjelasannya,
seklai lagi terimakasih atas filenya pak, dan juga untuk miss Jan,,
Regrads,
Kurniawan
--
View this message in context: http://milis-
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Fri Sep 27, 2013 9:13 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Memang ga ada perintah menghide sheet Data. Sheet Data sengaja disembunyikan, mungkin maksud/tujuan si pembuat file agar tidak kelihatan datanya oleh user pengguna file, apalagi kalo ditambah Lock Project View.
Itu sheetnya di VerryHidden, jadi ga keliatan kalo kita di worksheet.
Cara lihatnya buka VBAProject (Alt+F11), di Project Explorer pasti ada sheet Data. Klik sheet Data, kemudian di Property sheet data paling bawah (Visible) pilih -1 (xlSheetVisible).
Saya juga makasih sama Miss Jan. Asal rajin2 ikutin pertanyaan dan jawaban dari rekan-rekan milis, rajin download file dari teman2, bisa bermanfaat kalo kita punya kendala dalam excel bisa diliat2 lagi sebelum nanya ke milis hehehe....
Wassalam,
________________________________
From: Mr. KEPT <kurniawan_tufail@ymail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, September 27, 2013 7:44 PM
Subject: Re: [belajar-excel] text filter
Dear opik,,
Thanks a lot pak, saya sudah donlod datanya, saya ingin bertanya, kenapa
sheet datanya tidak kelihatan. saya perhatikan di bagian penulisan scriptnya
tidak ada yang menyatakan untuk menghidden sheet data. saya cek juga sheet
hidden, tidak ada sheet yang terhidden, mohon penjelasannya,,
seklai lagi terimakasih atas filenya pak, dan juga untuk miss Jan,,
Regrads,
Kurniawan
--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-text-filter-tp5721254p5721257.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Itu sheetnya di VerryHidden, jadi ga keliatan kalo kita di worksheet.
Cara lihatnya buka VBAProject (Alt+F11), di Project Explorer pasti ada sheet Data. Klik sheet Data, kemudian di Property sheet data paling bawah (Visible) pilih -1 (xlSheetVisible)
Saya juga makasih sama Miss Jan. Asal rajin2 ikutin pertanyaan dan jawaban dari rekan-rekan milis, rajin download file dari teman2, bisa bermanfaat kalo kita punya kendala dalam excel bisa diliat2 lagi sebelum nanya ke milis hehehe....
Wassalam,
____________
From: Mr. KEPT <kurniawan_tufail@
To: belajar-excel@
Sent: Friday, September 27, 2013 7:44 PM
Subject: Re: [belajar-excel] text filter
Dear opik,,
Thanks a lot pak, saya sudah donlod datanya, saya ingin bertanya, kenapa
sheet datanya tidak kelihatan. saya perhatikan di bagian penulisan scriptnya
tidak ada yang menyatakan untuk menghidden sheet data. saya cek juga sheet
hidden, tidak ada sheet yang terhidden, mohon penjelasannya,
seklai lagi terimakasih atas filenya pak, dan juga untuk miss Jan,,
Regrads,
Kurniawan
--
View this message in context: http://milis-
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Fri Sep 27, 2013 9:46 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Pada awalnya memang sheet data
Kalau boleh ngutip pesan Miss Jan, di sana ada 2 statement "buka tutup" sheet data...
' tampilkan sheet data karena nanti akan dilakukan proses
' pencarian pada sheet ini
Sheets("data").Visible = xlSheetVisible
' sembunyikan lagi sheet data agar tidak bisa diubah oleh user
' supaya tidak bisa dimunculkan dengam klik kanan
' maka pilih opsi very hidden
Sheets("data").Visible = xlSheetVeryHidden
Salam,
HK
----- Forwarded Message -----
From: lapendosol opik <lapendosol@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Friday, 27 September 2013, 23:13
Subject: Re: [belajar-excel] text filter
Memang ga ada perintah menghide sheet Data. Sheet Data sengaja disembunyikan, mungkin maksud/tujuan si pembuat file agar tidak kelihatan datanya oleh user pengguna file, apalagi kalo ditambah Lock Project View.
Itu sheetnya di VerryHidden, jadi ga keliatan kalo kita di worksheet.
Cara lihatnya buka VBAProject (Alt+F11), di Project Explorer pasti ada sheet Data. Klik sheet Data, kemudian di Property sheet data paling bawah (Visible) pilih -1 (xlSheetVisible).
Saya juga makasih sama Miss Jan. Asal rajin2 ikutin pertanyaan dan jawaban dari rekan-rekan milis, rajin download file dari teman2, bisa bermanfaat kalo kita punya kendala dalam excel bisa diliat2 lagi sebelum nanya ke milis hehehe....
Wassalam,
________________________________
From: Mr. KEPT <kurniawan_tufail@ymail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, September 27, 2013 7:44 PM
Subject: Re: [belajar-excel] text filter
Dear opik,,
Thanks a lot pak, saya sudah donlod datanya, saya ingin bertanya, kenapa
sheet datanya tidak kelihatan. saya perhatikan di bagian penulisan scriptnya
tidak ada yang menyatakan untuk menghidden sheet data. saya cek juga sheet
hidden, tidak ada sheet yang terhidden, mohon penjelasannya,,
seklai lagi terimakasih atas filenya pak, dan juga untuk miss Jan,,
Regrads,
Kurniawan
--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-text-filter-tp5721254p5721257.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Kalau boleh ngutip pesan Miss Jan, di sana ada 2 statement "buka tutup" sheet data...
' tampilkan sheet data karena nanti akan dilakukan proses
' pencarian pada sheet ini
Sheets("
' sembunyikan lagi sheet data agar tidak bisa diubah oleh user
' supaya tidak bisa dimunculkan dengam klik kanan
' maka pilih opsi very hidden
Sheets("
Salam,
HK
----- Forwarded Message -----
From: lapendosol opik <lapendosol@yahoo.
To: "belajar-excel@
Sent: Friday, 27 September 2013, 23:13
Subject: Re: [belajar-excel] text filter
Memang ga ada perintah menghide sheet Data. Sheet Data sengaja disembunyikan, mungkin maksud/tujuan si pembuat file agar tidak kelihatan datanya oleh user pengguna file, apalagi kalo ditambah Lock Project View.
Itu sheetnya di VerryHidden, jadi ga keliatan kalo kita di worksheet.
Cara lihatnya buka VBAProject (Alt+F11), di Project Explorer pasti ada sheet Data. Klik sheet Data, kemudian di Property sheet data paling bawah (Visible) pilih -1 (xlSheetVisible)
Saya juga makasih sama Miss Jan. Asal rajin2 ikutin pertanyaan dan jawaban dari rekan-rekan milis, rajin download file dari teman2, bisa bermanfaat kalo kita punya kendala dalam excel bisa diliat2 lagi sebelum nanya ke milis hehehe....
Wassalam,
____________
From: Mr. KEPT <kurniawan_tufail@
To: belajar-excel@
Sent: Friday, September 27, 2013 7:44 PM
Subject: Re: [belajar-excel] text filter
Dear opik,,
Thanks a lot pak, saya sudah donlod datanya, saya ingin bertanya, kenapa
sheet datanya tidak kelihatan. saya perhatikan di bagian penulisan scriptnya
tidak ada yang menyatakan untuk menghidden sheet data. saya cek juga sheet
hidden, tidak ada sheet yang terhidden, mohon penjelasannya,
seklai lagi terimakasih atas filenya pak, dan juga untuk miss Jan,,
Regrads,
Kurniawan
--
View this message in context: http://milis-
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Fri Sep 27, 2013 9:52 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Maaf, ada kesalahan redaksional pada baris pertama, seharusnya:
Pada awalnya memang sheet data disembunyikan dengan "veryhidden" (tidak bisa diunhide dengan klik kanan mouse), kemudian...
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Friday, 27 September 2013, 23:46
Subject: Fw: [belajar-excel] text filter
Pada awalnya memang sheet data
Kalau boleh ngutip pesan Miss Jan, di sana ada 2 statement "buka tutup" sheet data...
' tampilkan sheet data karena nanti akan dilakukan proses
' pencarian pada sheet ini
Sheets("data").Visible = xlSheetVisible
' sembunyikan lagi sheet data agar tidak bisa diubah oleh user
' supaya tidak bisa dimunculkan dengam klik kanan
' maka pilih opsi very hidden
Sheets("data").Visible = xlSheetVeryHidden
Salam,
HK
----- Forwarded Message -----
From: lapendosol opik <lapendosol@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Friday, 27 September 2013, 23:13
Subject: Re: [belajar-excel] text filter
Memang ga ada perintah menghide sheet Data. Sheet Data sengaja disembunyikan, mungkin maksud/tujuan si pembuat file agar tidak kelihatan datanya oleh user pengguna file, apalagi kalo ditambah Lock Project View.
Itu sheetnya di VerryHidden, jadi ga keliatan kalo kita di worksheet.
Cara lihatnya buka VBAProject (Alt+F11), di Project Explorer pasti ada sheet Data. Klik sheet Data, kemudian di Property sheet data paling bawah (Visible) pilih -1 (xlSheetVisible).
Saya juga makasih sama Miss Jan. Asal rajin2 ikutin pertanyaan dan jawaban dari rekan-rekan milis, rajin download file dari teman2, bisa bermanfaat kalo kita punya kendala dalam excel bisa diliat2 lagi sebelum nanya ke milis
hehehe....
Wassalam,
________________________________
From: Mr. KEPT <kurniawan_tufail@ymail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, September 27, 2013 7:44 PM
Subject: Re: [belajar-excel] text filter
Dear opik,,
Thanks a lot pak, saya sudah donlod datanya, saya ingin bertanya, kenapa
sheet datanya tidak kelihatan. saya perhatikan di bagian penulisan scriptnya
tidak ada yang menyatakan untuk menghidden sheet data. saya cek juga sheet
hidden, tidak ada sheet yang terhidden, mohon penjelasannya,,
seklai lagi terimakasih atas filenya pak, dan juga untuk miss Jan,,
Regrads,
Kurniawan
--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-text-filter-tp5721254p5721257.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Pada awalnya memang sheet data disembunyikan dengan "veryhidden&qu
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Friday, 27 September 2013, 23:46
Subject: Fw: [belajar-excel] text filter
Pada awalnya memang sheet data
Kalau boleh ngutip pesan Miss Jan, di sana ada 2 statement "buka tutup" sheet data...
' tampilkan sheet data karena nanti akan dilakukan proses
' pencarian pada sheet ini
Sheets("
' sembunyikan lagi sheet data agar tidak bisa diubah oleh user
' supaya tidak bisa dimunculkan dengam klik kanan
' maka pilih opsi very hidden
Sheets("
Salam,
HK
----- Forwarded Message -----
From: lapendosol opik <lapendosol@yahoo.
To: "belajar-excel@
Sent: Friday, 27 September 2013, 23:13
Subject: Re: [belajar-excel] text filter
Memang ga ada perintah menghide sheet Data. Sheet Data sengaja disembunyikan, mungkin maksud/tujuan si pembuat file agar tidak kelihatan datanya oleh user pengguna file, apalagi kalo ditambah Lock Project View.
Itu sheetnya di VerryHidden, jadi ga keliatan kalo kita di worksheet.
Cara lihatnya buka VBAProject (Alt+F11), di Project Explorer pasti ada sheet Data. Klik sheet Data, kemudian di Property sheet data paling bawah (Visible) pilih -1 (xlSheetVisible)
Saya juga makasih sama Miss Jan. Asal rajin2 ikutin pertanyaan dan jawaban dari rekan-rekan milis, rajin download file dari teman2, bisa bermanfaat kalo kita punya kendala dalam excel bisa diliat2 lagi sebelum nanya ke milis
hehehe....
Wassalam,
____________
From: Mr. KEPT <kurniawan_tufail@
To: belajar-excel@
Sent: Friday, September 27, 2013 7:44 PM
Subject: Re: [belajar-excel] text filter
Dear opik,,
Thanks a lot pak, saya sudah donlod datanya, saya ingin bertanya, kenapa
sheet datanya tidak kelihatan. saya perhatikan di bagian penulisan scriptnya
tidak ada yang menyatakan untuk menghidden sheet data. saya cek juga sheet
hidden, tidak ada sheet yang terhidden, mohon penjelasannya,
seklai lagi terimakasih atas filenya pak, dan juga untuk miss Jan,,
Regrads,
Kurniawan
--
View this message in context: http://milis-
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Fri Sep 27, 2013 10:11 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Jadi ikutan ngintip scriptnya juga hehehe
Oiya saya juga salah, ternyata ada script menyembunyikan dan menampilkan sheet data, maaf yak
Tapi kalo script yg itu dihapus sebenarnya ga masalah, udah saya coba.
Sheets("data").Visible = xlSheetVisible
Sheets("data").Visible = xlSheetVeryHiddenYg itu bisa dihapus, coba aja hehehe
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Friday, September 27, 2013 11:52 PM
Subject: Fw: [belajar-excel] text filter
Maaf, ada kesalahan redaksional pada baris pertama, seharusnya:
Pada awalnya memang sheet data disembunyikan dengan "veryhidden" (tidak bisa diunhide dengan klik kanan mouse), kemudian...
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Friday, 27 September 2013, 23:46
Subject: Fw: [belajar-excel] text filter
Pada awalnya memang sheet data
Kalau boleh ngutip pesan Miss Jan, di sana ada 2 statement "buka tutup" sheet data...
' tampilkan sheet data karena nanti akan dilakukan proses
' pencarian pada sheet ini
Sheets("data").Visible = xlSheetVisible
' sembunyikan lagi sheet data agar tidak bisa diubah oleh user
' supaya tidak bisa dimunculkan dengam klik kanan
' maka pilih opsi very hidden
Sheets("data").Visible = xlSheetVeryHidden
Salam,
HK
----- Forwarded Message -----
From: lapendosol opik <lapendosol@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Friday, 27 September 2013, 23:13
Subject: Re: [belajar-excel] text filter
Memang ga ada perintah menghide sheet Data. Sheet Data sengaja disembunyikan, mungkin maksud/tujuan si pembuat file agar tidak kelihatan datanya oleh user pengguna file, apalagi kalo ditambah Lock Project View.
Itu sheetnya di VerryHidden, jadi ga keliatan kalo kita di worksheet.
Cara lihatnya buka VBAProject (Alt+F11), di Project Explorer pasti ada sheet Data. Klik sheet Data, kemudian di Property sheet data paling bawah (Visible) pilih -1 (xlSheetVisible).
Saya juga makasih sama Miss Jan. Asal rajin2 ikutin pertanyaan dan jawaban dari rekan-rekan milis, rajin download file dari teman2, bisa bermanfaat kalo kita punya kendala dalam excel bisa diliat2 lagi sebelum nanya ke milis
hehehe....
Wassalam,
________________________________
From: Mr. KEPT <kurniawan_tufail@ymail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, September 27, 2013 7:44 PM
Subject: Re: [belajar-excel] text filter
Dear opik,,
Thanks a lot pak, saya sudah donlod datanya, saya ingin bertanya, kenapa
sheet datanya tidak kelihatan. saya perhatikan di bagian penulisan scriptnya
tidak ada yang menyatakan untuk menghidden sheet data. saya cek juga sheet
hidden, tidak ada sheet yang terhidden, mohon penjelasannya,,
seklai lagi terimakasih atas filenya pak, dan juga untuk miss Jan,,
Regrads,
Kurniawan
--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-text-filter-tp5721254p5721257.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Oiya saya juga salah, ternyata ada script menyembunyikan dan menampilkan sheet data, maaf yak
Tapi kalo script yg itu dihapus sebenarnya ga masalah, udah saya coba.
Sheets("
Sheets("
____________
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Friday, September 27, 2013 11:52 PM
Subject: Fw: [belajar-excel] text filter
Maaf, ada kesalahan redaksional pada baris pertama, seharusnya:
Pada awalnya memang sheet data disembunyikan dengan "veryhidden&qu
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Friday, 27 September 2013, 23:46
Subject: Fw: [belajar-excel] text filter
Pada awalnya memang sheet data
Kalau boleh ngutip pesan Miss Jan, di sana ada 2 statement "buka tutup" sheet data...
' tampilkan sheet data karena nanti akan dilakukan proses
' pencarian pada sheet ini
Sheets("
' sembunyikan lagi sheet data agar tidak bisa diubah oleh user
' supaya tidak bisa dimunculkan dengam klik kanan
' maka pilih opsi very hidden
Sheets("
Salam,
HK
----- Forwarded Message -----
From: lapendosol opik <lapendosol@yahoo.
To: "belajar-excel@
Sent: Friday, 27 September 2013, 23:13
Subject: Re: [belajar-excel] text filter
Memang ga ada perintah menghide sheet Data. Sheet Data sengaja disembunyikan, mungkin maksud/tujuan si pembuat file agar tidak kelihatan datanya oleh user pengguna file, apalagi kalo ditambah Lock Project View.
Itu sheetnya di VerryHidden, jadi ga keliatan kalo kita di worksheet.
Cara lihatnya buka VBAProject (Alt+F11), di Project Explorer pasti ada sheet Data. Klik sheet Data, kemudian di Property sheet data paling bawah (Visible) pilih -1 (xlSheetVisible)
Saya juga makasih sama Miss Jan. Asal rajin2 ikutin pertanyaan dan jawaban dari rekan-rekan milis, rajin download file dari teman2, bisa bermanfaat kalo kita punya kendala dalam excel bisa diliat2 lagi sebelum nanya ke milis
hehehe....
Wassalam,
____________
From: Mr. KEPT <kurniawan_tufail@
To: belajar-excel@
Sent: Friday, September 27, 2013 7:44 PM
Subject: Re: [belajar-excel] text filter
Dear opik,,
Thanks a lot pak, saya sudah donlod datanya, saya ingin bertanya, kenapa
sheet datanya tidak kelihatan. saya perhatikan di bagian penulisan scriptnya
tidak ada yang menyatakan untuk menghidden sheet data. saya cek juga sheet
hidden, tidak ada sheet yang terhidden, mohon penjelasannya,
seklai lagi terimakasih atas filenya pak, dan juga untuk miss Jan,,
Regrads,
Kurniawan
--
View this message in context: http://milis-
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Fri Sep 27, 2013 8:31 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Betul mas Opik, terima kasih atas masukannya.
Salam,
HK
________________________________
From: lapendosol opik <lapendosol@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Saturday, 28 September 2013, 0:11
Subject: Re: [belajar-excel] text filter
Jadi ikutan ngintip scriptnya juga hehehe
Oiya saya juga salah, ternyata ada script menyembunyikan dan menampilkan sheet data, maaf yak
Tapi kalo script yg itu dihapus sebenarnya ga masalah, udah saya coba.
Sheets("data").Visible = xlSheetVisible
Sheets("data").Visible = xlSheetVeryHiddenYg itu bisa dihapus, coba aja hehehe
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Friday, September 27, 2013 11:52 PM
Subject: Fw: [belajar-excel] text filter
Maaf, ada kesalahan redaksional pada baris pertama, seharusnya:
Pada awalnya memang sheet data disembunyikan dengan "veryhidden" (tidak bisa diunhide dengan klik kanan mouse), kemudian...
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Friday, 27 September 2013, 23:46
Subject: Fw: [belajar-excel] text filter
Pada awalnya memang sheet data
Kalau boleh ngutip pesan Miss Jan, di sana ada 2 statement "buka tutup" sheet data...
' tampilkan sheet data karena nanti akan dilakukan proses
' pencarian pada sheet ini
Sheets("data").Visible = xlSheetVisible
' sembunyikan lagi sheet data agar tidak bisa diubah oleh user
' supaya tidak bisa dimunculkan dengam klik kanan
' maka pilih opsi very hidden
Sheets("data").Visible = xlSheetVeryHidden
Salam,
HK
----- Forwarded Message -----
From: lapendosol opik <lapendosol@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Friday, 27 September 2013, 23:13
Subject: Re: [belajar-excel] text filter
Memang ga ada perintah menghide sheet Data. Sheet Data sengaja disembunyikan, mungkin maksud/tujuan si pembuat file agar tidak kelihatan datanya oleh user pengguna file, apalagi kalo ditambah Lock Project View.
Itu sheetnya di VerryHidden, jadi ga keliatan kalo kita di worksheet.
Cara lihatnya buka VBAProject (Alt+F11), di Project Explorer pasti ada sheet Data. Klik sheet Data, kemudian di Property sheet data paling bawah (Visible) pilih -1 (xlSheetVisible).
Saya juga makasih sama Miss Jan. Asal rajin2 ikutin pertanyaan dan jawaban dari rekan-rekan milis, rajin download file dari teman2, bisa bermanfaat kalo kita punya kendala dalam excel bisa diliat2 lagi sebelum nanya ke milis
hehehe....
Wassalam,
________________________________
From: Mr. KEPT <kurniawan_tufail@ymail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, September 27, 2013 7:44 PM
Subject: Re: [belajar-excel] text filter
Dear opik,,
Thanks a lot pak, saya sudah donlod datanya, saya ingin bertanya, kenapa
sheet datanya tidak kelihatan. saya perhatikan di bagian penulisan scriptnya
tidak ada yang menyatakan untuk menghidden sheet data. saya cek juga sheet
hidden, tidak ada sheet yang terhidden, mohon penjelasannya,,
seklai lagi terimakasih atas filenya pak, dan juga untuk miss Jan,,
Regrads,
Kurniawan
--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-text-filter-tp5721254p5721257.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Salam,
HK
____________
From: lapendosol opik <lapendosol@yahoo.
To: "belajar-excel@
Sent: Saturday, 28 September 2013, 0:11
Subject: Re: [belajar-excel] text filter
Jadi ikutan ngintip scriptnya juga hehehe
Oiya saya juga salah, ternyata ada script menyembunyikan dan menampilkan sheet data, maaf yak
Tapi kalo script yg itu dihapus sebenarnya ga masalah, udah saya coba.
Sheets("
Sheets("
____________
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Friday, September 27, 2013 11:52 PM
Subject: Fw: [belajar-excel] text filter
Maaf, ada kesalahan redaksional pada baris pertama, seharusnya:
Pada awalnya memang sheet data disembunyikan dengan "veryhidden&qu
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Friday, 27 September 2013, 23:46
Subject: Fw: [belajar-excel] text filter
Pada awalnya memang sheet data
Kalau boleh ngutip pesan Miss Jan, di sana ada 2 statement "buka tutup" sheet data...
' tampilkan sheet data karena nanti akan dilakukan proses
' pencarian pada sheet ini
Sheets("
' sembunyikan lagi sheet data agar tidak bisa diubah oleh user
' supaya tidak bisa dimunculkan dengam klik kanan
' maka pilih opsi very hidden
Sheets("
Salam,
HK
----- Forwarded Message -----
From: lapendosol opik <lapendosol@yahoo.
To: "belajar-excel@
Sent: Friday, 27 September 2013, 23:13
Subject: Re: [belajar-excel] text filter
Memang ga ada perintah menghide sheet Data. Sheet Data sengaja disembunyikan, mungkin maksud/tujuan si pembuat file agar tidak kelihatan datanya oleh user pengguna file, apalagi kalo ditambah Lock Project View.
Itu sheetnya di VerryHidden, jadi ga keliatan kalo kita di worksheet.
Cara lihatnya buka VBAProject (Alt+F11), di Project Explorer pasti ada sheet Data. Klik sheet Data, kemudian di Property sheet data paling bawah (Visible) pilih -1 (xlSheetVisible)
Saya juga makasih sama Miss Jan. Asal rajin2 ikutin pertanyaan dan jawaban dari rekan-rekan milis, rajin download file dari teman2, bisa bermanfaat kalo kita punya kendala dalam excel bisa diliat2 lagi sebelum nanya ke milis
hehehe....
Wassalam,
____________
From: Mr. KEPT <kurniawan_tufail@
To: belajar-excel@
Sent: Friday, September 27, 2013 7:44 PM
Subject: Re: [belajar-excel] text filter
Dear opik,,
Thanks a lot pak, saya sudah donlod datanya, saya ingin bertanya, kenapa
sheet datanya tidak kelihatan. saya perhatikan di bagian penulisan scriptnya
tidak ada yang menyatakan untuk menghidden sheet data. saya cek juga sheet
hidden, tidak ada sheet yang terhidden, mohon penjelasannya,
seklai lagi terimakasih atas filenya pak, dan juga untuk miss Jan,,
Regrads,
Kurniawan
--
View this message in context: http://milis-
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Fri Sep 27, 2013 9:18 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Dari uji coba vbCrLf = vbNewLine
Salam,
HK
________________________________
From: lapendosol opik <lapendosol@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Friday, 27 September 2013, 18:13
Subject: Re: Trs: [belajar-excel] Msgbox vba
Ikutan ide meskipun sudah ketemu sendiri, apa yg dimaksud pesannya terdiri/tertulis beberapa baris?
Coba pake
MsgBox "Baris Pertama" & vbCrLf & "Baris Kedua" & vbCrLf & "Baris Ketiga" & vbCrLf & "Baris Seterusnya"
Wassalam,
________________________________
From: Andy Ajhis Ramadhan <andyajhisramadhan@ymail.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Friday, September 27, 2013 4:20 PM
Subject: Trs: [belajar-excel] Msgbox vba
Bukan miss jan maksud andy textnya di baris berikutnya.
andy dapet sih miss dengan pakai vbNewLine. Terima kasih miss buat jawabanya ^_^
Salam,
Andy
----- Pesan yang Diteruskan -----
Dari: Jan Raisin <miss.jan.raisin@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 27 September 2013 16:13
Judul: Re: [belajar-excel] Msgbox vba
mungkin bisa diberikan gambarannya menggunakan pict atau semacamnya, syukur-syukur kalo bisa berupa workbook
setau Jan, msgbox hanya bisa muncul lebih dari 1 buah pada saat yang sama..
mungkin yang bisa diatur adalah letak default tombolnya, apakah akan berada di cancel, ok, yes, atau no
Salam,
-Miss Jan Raisin-
2013/9/27 Andy Ajhis Ramadhan <andyajhisramadhan@ymail.com>
>
>
>Dear,
>Be-Exceller
>Bagaimana perumusan utk msgbox bila pesan yang mengandung "Enter" untuk mlanjutkan msgbox dibawahnya lagi.
>Salam,
>Andy
>Sent from Yahoo! Mail on Android
Salam,
HK
____________
From: lapendosol opik <lapendosol@yahoo.
To: "belajar-excel@
Sent: Friday, 27 September 2013, 18:13
Subject: Re: Trs: [belajar-excel] Msgbox vba
Ikutan ide meskipun sudah ketemu sendiri, apa yg dimaksud pesannya terdiri/tertulis beberapa baris?
Coba pake
MsgBox "Baris Pertama" & vbCrLf & "Baris Kedua" & vbCrLf & "Baris Ketiga" & vbCrLf & "Baris Seterusnya"
Wassalam,
____________
From: Andy Ajhis Ramadhan <andyajhisramadhan@
To: "belajar-excel@
Sent: Friday, September 27, 2013 4:20 PM
Subject: Trs: [belajar-excel] Msgbox vba
Bukan miss jan maksud andy textnya di baris berikutnya.
andy dapet sih miss dengan pakai vbNewLine. Terima kasih miss buat jawabanya ^_^
Salam,
Andy
----- Pesan yang Diteruskan -----
Dari: Jan Raisin <miss.jan.raisin@
Kepada: belajar-excel@
Dikirim: Jumat, 27 September 2013 16:13
Judul: Re: [belajar-excel] Msgbox vba
mungkin bisa diberikan gambarannya menggunakan pict atau semacamnya, syukur-syukur kalo bisa berupa workbook
setau Jan, msgbox hanya bisa muncul lebih dari 1 buah pada saat yang sama..
mungkin yang bisa diatur adalah letak default tombolnya, apakah akan berada di cancel, ok, yes, atau no
Salam,
-Miss Jan Raisin-
2013/9/27 Andy Ajhis Ramadhan <andyajhisramadhan@
>
>
>Dear,
>Be-Exceller
>Bagaimana perumusan utk msgbox bila pesan yang mengandung "Enter" untuk mlanjutkan msgbox dibawahnya lagi.
>Salam,
>Andy
>Sent from Yahoo! Mail on Android
Fri Sep 27, 2013 4:29 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba kirim sample workbook berisi dummy data kemilis. Biasanya akan ada
banyak BeExceller yang berlomba untuk membantu.
Wassalam,
Kid.
2013/9/27 Mr. KEPT <kurniawan_tufail@ymail.com>
> **
>
>
> Dear Mr. Kid,,
>
> Terimakaish banyak om Kid atas penjelasannya,, tadi dah praktek yang
> masalah
> penambahan kolom dengan tujuan mendapatkan value berdasarkan rumus,, tpi
> hasilnya errordiv,, ntar mau coba malpraktek lagi n memperdalam pehamahaman
> dari penjelasan Mr.Kid.
> sekali lagi maksih Mr. Kid atas penjelasannya,
>
> Regrads,
> Kurniawan
>
> --
> View this message in context:
> http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Pivot-table-tp5721230p5721253.html
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
banyak BeExceller yang berlomba untuk membantu.
Wassalam,
Kid.
2013/9/27 Mr. KEPT <kurniawan_tufail@
> **
>
>
> Dear Mr. Kid,,
>
> Terimakaish banyak om Kid atas penjelasannya,
> masalah
> penambahan kolom dengan tujuan mendapatkan value berdasarkan rumus,, tpi
> hasilnya errordiv,, ntar mau coba malpraktek lagi n memperdalam pehamahaman
> dari penjelasan Mr.Kid.
> sekali lagi maksih Mr. Kid atas penjelasannya,
>
> Regrads,
> Kurniawan
>
> --
> View this message in context:
> http://milis-
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
Fri Sep 27, 2013 4:37 pm (PDT) . Posted by:
"ISMI YATI" dik_is
mohon bantuan teman-teman,
saya pakai rumus ini, kelasnya saya kasih sampai kelas VI (karena
jenjang SD) tapi kok hasilnya salah ya pak.
Kesalahan jumlah rombel dan jumlah siswa.
Mohon koreksi... dimanakah kesalahan saya....
Mohon bantuannya, agar pekerjaan saya lebih mudah... Karena ini
untuk menghitung data beberapa SD jadi saya kesulitan apabila
menghitung manual....
Mohon bantuannya teman-teman....
Ismi
--- Mods ---
File attachment yang 3 koma sekiun MB dilepas dari postingan
karena melebihi batas maksimal ukuran file lampiran menurut
peraturan milis yang sebesar 250KB.
Pembatasan ukuran file dalam peraturan milis dimaksudkan untuk
menghindari terkirimnya seluruh data kerja yang bisa jadi
bersifat rahasia. Juga untuk membantu BeExceller yang masih
kurang beruntung untuk mendapatkan layanan koneksi internet yang
cepat.
Semoga poster bersedia melampirkan kembali file yang sudah
disesuaikan ukuran filenya dengan yang ditetapkan dalam peraturan
milis.
-------
saya pakai rumus ini, kelasnya saya kasih sampai kelas VI (karena
jenjang SD) tapi kok hasilnya salah ya pak.
Kesalahan jumlah rombel dan jumlah siswa.
Mohon koreksi... dimanakah kesalahan saya....
Mohon bantuannya, agar pekerjaan saya lebih mudah... Karena ini
untuk menghitung data beberapa SD jadi saya kesulitan apabila
menghitung manual....
Mohon bantuannya teman-teman.
Ismi
--- Mods ---
File attachment yang 3 koma sekiun MB dilepas dari postingan
karena melebihi batas maksimal ukuran file lampiran menurut
peraturan milis yang sebesar 250KB.
Pembatasan ukuran file dalam peraturan milis dimaksudkan untuk
menghindari terkirimnya seluruh data kerja yang bisa jadi
bersifat rahasia. Juga untuk membantu BeExceller yang masih
kurang beruntung untuk mendapatkan layanan koneksi internet yang
cepat.
Semoga poster bersedia melampirkan kembali file yang sudah
disesuaikan ukuran filenya dengan yang ditetapkan dalam peraturan
milis.
-------
Fri Sep 27, 2013 4:37 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hehehe....
masih juga dilanjutkan ya...
Pak HK,
bagaimana jika dicopasken script yang dipakai sampai gak jalan tersebut.
bagaimana kalai dicoba juga diworkbook baru, siapa tahu nanti bisa tampak
penyebabnya.
Wassalam,
Kid.
2013/9/27 hendrik karnadi <hendrikkarnadi@yahoo.com>
> Saya barusan coba ketik Password:
> Jum'at%27-09-2013 dan Jumat%27-09-2013 koq ga jalan ya ?
>
> Salam,
> HK
>
> ------------------------------
> *From:* PRAZT <praztmath@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, 27 September 2013, 9:39
>
> *Subject:* RE: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka
>
>
> Pk De ikut nih jadi tambah ilmu lagi nih ntar hehehe....kalau sampai
> lembur bom pernah saya cb pk De, tapi kalau kompi udah dimatika sih bisa
> berganti kemarin (sebelum ada tambahan � pada baris pwd = .Text(Now,
> "[$-421]ddd""" & arrSymbol(i - 1) & """dd-mm-yyyy")
>
> PRAZTMATH �
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *De Premor
> *Sent:* 27 September 2013 08:07
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka
>
> Pada kode yang disertakan error disebabkan oleh kalau dieksekusi akan
> menjadi *ddd%dd-mm-yyyy* yang bikin eksyel bingung,
> biar eksyel ndak bingung coba dikasih tanda kutip sehingga menjadi *
> ddd"%"dd-mm-yyyy*
> Kalau dibahasakan ke rumus menjadi
>
> pwd = .Text(Now, "[$-421]ddd""" & arrSymbol(i - 1) & """dd-mm-yyyy")
>
> Oiya, mau tanya, kalau kira2 saya mbuka filenya sekitar jam 10'an malam,
> trus lembur sampai pagi baru saya close filenya, kira-kira apa yang terjadi
> ya ?
> On 27-09-2013 7:16, PRAZT wrote:
>
> Assalamu�alaikum....
> Selamat pagi Mr.Kid dan beExceller yang lain...
> Kalau itu saya kurang paham MK, tapi pada intinya kalau pakai sht.Unprotect
> PasswordKu itu kalau pas di tutup ada errornya tapi untuk hari ini tidak,
> hanya saja untuk hari ini malah erornya berpindah pada baris blok kuning
> berikut dan coba buka file lampiran ;
>
> '=================================
> 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
>
>
> Dengan bunyi eror seperti ini
>
>
> PRAZTMATH �
>
> *From:* belajar-excel@yahoogroups.com [
> mailto:belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com>] *On
> Behalf Of *Mr. Kid
> *Sent:* 26 September 2013 17:15
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka
>
>
> Maaf,
> saya ndak mudeng dasar penggantian dari sht.Unprotect PasswordKu menjadi sht.Protect
> PasswordKu itu apa ya ?
> Apalagi sampai diputuskan bisa berjalan dengan normal.
> Apa maksud normal ? tidak muncul error ?
> kalau normal berarti tidak muncul error, berikan saja baris On error
> resume next disetiap prosedur. Jamin, gak akan ada error yang pernah muncul
> dalam setiap proses. Tapi, apa terus berarti si prosedur udah baik dan
> benar kalau ndak muncul error ?
> Bukankah errornya yang muncul saat pakai sht.Unprotect PasswordKu adalah
> tidak bisa buka proteksi sheet ?
> Itukan artinya sheet sudah terproteksi dengan password (misalnya : kid
> ganteng) terus baris itu akan unprotect dengan hasil function PasswordKu
> berisi teks 'kid cakep'
> Nah kan gak bisa kalau sheet yang diproteksi pakai 'kid ganteng' akan di
> unprotect (kuning) oleh 'kid cakep'
> Kalau sht.Unprotect PasswordKu diubah menjadi sht.Protect PasswordKu
> , lalu blok yang bunyi :
> If bolProtect Then
> sht.Protect PasswordKu
> Else
> sht.Unprotect PasswordKu 'di sini terjadi galat, mungkinkah maksudya
> adalah sht.Protect PasswordKu
> End If
>
> akan menjadi :
> If bolProtect Then
> sht.Protect PasswordKu
> Else
> sht.Protect PasswordKu
> End If
>
> lalu, apa gunanya blok IF tersebut ?
> Wassalam,
> Kid.
>
> 2013/9/26 PRAZT <praztmath@gmail.com>
>
>
> Udah saya ganti dari sht.Unprotect PasswordKu menjadi sht.Protect
> PasswordKu sehingga bisa berjalan normal, makasih Mas Zain n Mr.Kid,
> terus gmn pendapat mas Zain tentang pendapat Mr.Kid tadi apakah lebih baik
> di kasih pemaksaan ke user untuk mengenablekan security macro atau pakai
> sheet penyimpan password seperti yang Mr.Kid bilang tadi?
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *zainul_ulum[at]yahoo[dot]com
> *Sent:* 26 September 2013 16:55
>
> *To:* belajar-excel@yahoogroups.com
> *Subject:* RE: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka [1 Attachment]
>
> mas Prast,
> silahkan dicoba file terlampir.
>
> thanks
> -zainul-
>
> *From:* belajar-excel@yahoogroups.com [
> mailto:belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com>] *On
> Behalf Of *PRAZT
> *Sent:* Thursday, September 26, 2013 4:45 PM
>
> *To:* belajar-excel@yahoogroups.com
> *Subject:* RE: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka
>
>
> Ohh yang saya tampilkan hanya pada bagian yang eror Mr.Kid
> Kumplitannya begini dari mas Zain
> '=================================
> 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 di sini terjadi galat, mungkinkah maksudya
> adalah sht.Protect 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 <belajar-excel@yahoogroups.com>] *On
> Behalf Of *Mr. Kid
> *Sent:* 26 September 2013 16:29
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka
>
>
> 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@
masih juga dilanjutkan ya...
Pak HK,
bagaimana jika dicopasken script yang dipakai sampai gak jalan tersebut.
bagaimana kalai dicoba juga diworkbook baru, siapa tahu nanti bisa tampak
penyebabnya.
Wassalam,
Kid.
2013/9/27 hendrik karnadi <hendrikkarnadi@
> Saya barusan coba ketik Password:
> Jum'at%27-
>
> Salam,
> HK
>
> ------------
> *From:* PRAZT <praztmath@gmail.
> *To:* belajar-excel@
> *Sent:* Friday, 27 September 2013, 9:39
>
> *Subject:* RE: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka
>
>
> Pk De ikut nih jadi tambah ilmu lagi nih ntar hehehe....kalau sampai
> lembur bom pernah saya cb pk De, tapi kalau kompi udah dimatika sih bisa
> berganti kemarin (sebelum ada tambahan � pada baris pwd = .Text(Now,
> "[$-421]
>
> PRAZTMATH �
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* 27 September 2013 08:07
> *To:* belajar-excel@
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka
>
> Pada kode yang disertakan error disebabkan oleh kalau dieksekusi akan
> menjadi *ddd%dd-mm-yyyy* yang bikin eksyel bingung,
> biar eksyel ndak bingung coba dikasih tanda kutip sehingga menjadi *
> ddd"%"
> Kalau dibahasakan ke rumus menjadi
>
> pwd = .Text(Now, "[$-421]
>
> Oiya, mau tanya, kalau kira2 saya mbuka filenya sekitar jam 10'an malam,
> trus lembur sampai pagi baru saya close filenya, kira-kira apa yang terjadi
> ya ?
> On 27-09-2013 7:16, PRAZT wrote:
>
> Assalamu�alaikum.
> Selamat pagi Mr.Kid dan beExceller yang lain...
> Kalau itu saya kurang paham MK, tapi pada intinya kalau pakai sht.Unprotect
> PasswordKu itu kalau pas di tutup ada errornya tapi untuk hari ini tidak,
> hanya saja untuk hari ini malah erornya berpindah pada baris blok kuning
> berikut dan coba buka file lampiran ;
>
> '=======
> 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
>
>
> Dengan bunyi eror seperti ini
>
>
> PRAZTMATH �
>
> *From:* belajar-excel@
> mailto:belajar-excel@
> Behalf Of *Mr. Kid
> *Sent:* 26 September 2013 17:15
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka
>
>
> Maaf,
> saya ndak mudeng dasar penggantian dari sht.Unprotect PasswordKu menjadi sht.Protect
> PasswordKu itu apa ya ?
> Apalagi sampai diputuskan bisa berjalan dengan normal.
> Apa maksud normal ? tidak muncul error ?
> kalau normal berarti tidak muncul error, berikan saja baris On error
> resume next disetiap prosedur. Jamin, gak akan ada error yang pernah muncul
> dalam setiap proses. Tapi, apa terus berarti si prosedur udah baik dan
> benar kalau ndak muncul error ?
> Bukankah errornya yang muncul saat pakai sht.Unprotect PasswordKu adalah
> tidak bisa buka proteksi sheet ?
> Itukan artinya sheet sudah terproteksi dengan password (misalnya : kid
> ganteng) terus baris itu akan unprotect dengan hasil function PasswordKu
> berisi teks 'kid cakep'
> Nah kan gak bisa kalau sheet yang diproteksi pakai 'kid ganteng' akan di
> unprotect (kuning) oleh 'kid cakep'
> Kalau sht.Unprotect PasswordKu diubah menjadi sht.Protect PasswordKu
> , lalu blok yang bunyi :
> If bolProtect Then
> sht.Protect PasswordKu
> Else
> sht.Unprotect PasswordKu 'di sini terjadi galat, mungkinkah maksudya
> adalah sht.Protect PasswordKu
> End If
>
> akan menjadi :
> If bolProtect Then
> sht.Protect PasswordKu
> Else
> sht.Protect PasswordKu
> End If
>
> lalu, apa gunanya blok IF tersebut ?
> Wassalam,
> Kid.
>
> 2013/9/26 PRAZT <praztmath@gmail.
>
>
> Udah saya ganti dari sht.Unprotect PasswordKu menjadi sht.Protect
> PasswordKu sehingga bisa berjalan normal, makasih Mas Zain n Mr.Kid,
> terus gmn pendapat mas Zain tentang pendapat Mr.Kid tadi apakah lebih baik
> di kasih pemaksaan ke user untuk mengenablekan security macro atau pakai
> sheet penyimpan password seperti yang Mr.Kid bilang tadi?
>
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* 26 September 2013 16:55
>
> *To:* belajar-excel@
> *Subject:* RE: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka [1 Attachment]
>
> mas Prast,
> silahkan dicoba file terlampir.
>
> thanks
> -zainul-
>
> *From:* belajar-excel@
> mailto:belajar-excel@
> Behalf Of *PRAZT
> *Sent:* Thursday, September 26, 2013 4:45 PM
>
> *To:* belajar-excel@
> *Subject:* RE: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka
>
>
> Ohh yang saya tampilkan hanya pada bagian yang eror Mr.Kid
> Kumplitannya begini dari mas Zain
> '=======
> 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
> Sub ProtectSheets(
> Dim sht As Worksheet
> For Each sht In ActiveWorkbook.
> If bolProtect Then
> sht.Protect PasswordKu
> Else
> sht.Unprotect PasswordKu di sini terjadi galat, mungkinkah maksudya
> adalah sht.Protect PasswordKu
> End If
> Next
> End Sub
>
> '=====code ini di tulis di object workbook====
> Private Sub Workbook_BeforeClos
> ProtectSheets False
> End Sub
> Private Sub Workbook_Open(
> ProtectSheets True
> End Sub
> '=======
>
> *From:* belajar-excel@
> mailto:belajar-excel@
> Behalf Of *Mr. Kid
> *Sent:* 26 September 2013 16:29
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] paswword sheet berganti sesuai nama hari
> dan tanggal dibuka
>
>
> Bukankah function yang dibuat mas Zain bernama PasswordKu_
> Coba gunakan PasswordKu_ daripada PasswordKu
> Wassalam,
> Kid.
>
>
> 2013/9/26 PRAZT <praztmath@gmail.
>
>
> @_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(
> Dim sht As Worksheet
> For Each sht In ActiveWorkbook.
> 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@
> belajar-excel@
> *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[
>
>
> 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.
> i = .Weekday(Now, 2)
> pwd = .Text(Now, "[$-421]
>
> End With
> PasswordKu = pwd
> End Function
> Sub ProtectSheets(
> Dim sht As Worksheet
> For Each sht In ActiveWorkbook.
> 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_BeforeClos
> ProtectSheets False
> End Sub
>
> Private Sub Workbook_Open(
> ProtectSheets True
> End Sub
> '=======
>
>
> From: belajar-excel@
> On Behalf Of PRAZT
> Sent: Thursday, September 26, 2013 2:30 PM
>
> To: belajar-excel@
> 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@
> On Behalf Of zainul_ulum[
> Sent: 26 September 2013 14:21
> To: belajar-excel@
> 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@
> On Behalf Of PRAZT
> Sent: Thursday, September 26, 2013 2:12 PM
> To: belajar-excel@
> 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-
> bisanya Kamis$26-09-
> pwd = .Text(Now, "[$-421]
> Kalau sheet 1 dan sheet2 OK paswordnya Kamis$26-09-
> password sebelum saya merubah kode di VBA pwd = .Text(Now, "[$-421]
> arrSymbol(i - 1) & "dd-mm-
> arrSymbol(i - 1) & "dd-mm-
> atau master yang lain...
> PRAZTMATH �
>
> From: belajar-excel@
> On Behalf Of zainul_ulum[
> Sent: 26 September 2013 13:34
> To: belajar-excel@
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
>
> jawabannya sama dengan Pak HK.
> terimakasih koreksinya�
>
> From: belajar-excel@
> On Behalf Of hendrik karnadi
> Sent: Thursday, September 26, 2013 12:33 PM
> To: belajar-excel@
> Subject: Re: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
>
> Ikutan njawab.
> Barangkali karena kelbihan sau "y"
> pwd = .Text(Now, "[$-421]
>
> Salam,
> HK
> ____________
>
> From: PRAZT <praztmath@gmail.
> To: belajar-excel@
> 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-
> jadi pada intinya password tidak bisa berubah sebelum paswordnya di
> Unprotect dulu...mohon penjelasa mas Zainul.
>
> From: belajar-excel@
> On Behalf Of zainul_ulum[
> Sent: 26 September 2013 10:47
> To: belajar-excel@
> 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[
> Sent: Thursday, September 26, 2013 10:35 AM
> To: 'belajar-
> 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]
> di depan dd
>
> menjadi
>
> pwd = .Text(Now, "[$-421]
> dihilangkan
>
> wassalam
> -zainul-
>
> From: belajar-excel@
> On Behalf Of PRAZT
> Sent: Thursday, September 26, 2013 9:47 AM
> To: belajar-excel@
> Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
> tanggal dibuka
>
> Malah tidak jalan mas zainul
>
> From: belajar-excel@
> On Behalf Of zainul_ulum[
> Sent: 26 September 2013 08:44
> To: belajar-excel@
> 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.
> i = .Weekday(Now, 2)
> pwd = .Text(Now, "[$-421]
> PasswordKu = pwd End Function �============
>
> From: belajar-excel@