Betul Mr. Kid, Dalam Kopdar 2 terlihat banyak bakat tependam layaknya batu yang belum diasah atau dipoles, terbukti dengan banyaknya pertanyaan.
Untuk mas Agus yang sudah punya basic cukup kuat, tentu hal itu bukanlah hal yang mustahil. Untuk yang merasa belum punya basic sama sekali, jangan putus asa...rajin mencoba dengan semangat baja, insya Allah tahun depan sudah bisa jadi kontributor. Setidaknya, itu pengalaman saya waktu belajar VBA....bahkan sampe sekarang masih sering mentok....tinggal sampaikan ke milis....dapat deh jawabannya. Salam, HK On Thursday, 22 May 2014, 9:55, "'Mr. Kid' mr.nm...@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote: Wa'alaikumussalam Wr. Wb. waaah... mas Agus dapat pintu baru untuk berbagi manfaat nih... Berbagi manfaat itu menyenangkan kan ya... ;) Alhamdulillah kopdar#2 nya membawa manfaat.. Boleh dong tulisannya dikirim ke blog milis. Bila ada di blog pribadi mas Agus, boleh juga dong ada linknya dari blog milis ke blog mas Agus. Untuk kondisi recovery, memang ndak bisa diapa-apaken jika user selalu memasang security untuk di-enable lebih dulu. Harap maklum. Moga-moga masih ingat bahwa VBA adalah alat otomasi yang tergantung kepada aplikasi tempat tinggalnya, yang tidak pasti bahwa VBA boleh bekerja dengan serta merta. Ditunggu tulisan-tulisan lain dari seluruh BeExceller. Ayuk kita menulis dan berbagi, dan rasakan akibatnya yang berupa percepatan bertambahnya ilmu yang bermanfaat. Wassalamu'alaikum Wr. Wb. Kid. 2014-05-22 8:42 GMT+07:00 nangAgus nangag...@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>: > > > >Asalamualaikum warah matullah, > >Untuk semua member B-Excel, >Setelah belajar VBA di Kopdar 2# jadi semangat untuk belajar menulis script sendiri. >Kali ini saya belajar membuat file yang dapat memaksa penggunanya untuk mengaktifkan macro. >Karena kita tidak dapat memaksa microsoft excel untuk selalu mengahidupkan macro maka saya buat sedikit trik agar file yang saya berikan selalu macronya dienable, ayo langsung ke TKP! > >Saya siapkan dua sheet, sheet pertama yang isinya peringatan bahwa macro belum dihidupkan dan diberikan cara mengaktifkan macro. >sedangkan sheet kedua berisi sheet yang akan dimunculkan jika macro sudah dijalankan. jika perlu tambahkan bumbu-bumbu cabe, bawang, CustomUI dll. agar menjadi lebih sedap dan nikmat, tetapi jangan terlalu banyak MSG yaaa, he he he .... > >Maksudnya: >1. Apabila komputer pengguna belum mengaktifkan macro, maka akan muncul sheet 1 yang berisi tentang cara mengaktifkan macro, sedangkan sheet lainnya disembunyikan. ini berarti, karena yang nampak hanya sheet 1 maka user tidak dapat menggunakan file yang kita berikan. untuk menggunakannya user harus menghidupkan (enable) makro. > >2. agar file selalu membuka sheet1 apabila macro tidak dijalankan saya gunakan obyek Workbook dengan prosedur BeforeClose. (mohon maaf kadang saya tidak dapat membedakan event dan prosedur karena ketidak tahuan saya; padahal pak Anton sudah menjelaskan secara panjang lebar. jika keliru tolong saya diingatkan!) Perintahnya: "Workbook, tulung inyong kantonake sheet 1 sakdurunge di tutup, sheet liyane delikna disik, yen file durung disimpen, simpen disik yaa" > Ini berarti saat terakhir disimpan yang tampak hanya sheet 1. apabila file tersebut saya buka, yang nampak hanya sheet 1. > >3. Setelah selesai bahasa manusia, kita tuliskan menjadi bahasa VB >(kelihatannya seperti itu yak Mr. Kid). > Private Sub Workbook_BeforeClose(Cancel As Boolean) >'memerintah excel dengan prosedur sebelum ditutup > Sheet1.Visible = xlSheetVisible > ' sheet1 jangan disembunyikan (perlihatkan sheet 1) > Sheet2.Visible = xlSheetHidden > ' sheet2 disembunyikan > Sheet3.Visible = xlSheetHidden > ' sheet3 disembunyikan > Me.Save > ' menyimpan file > End Sub > >Kelar sudah untuk memperlihatkan bagi yang belum mengenable macro, sekarang saatnya ambil kopi, mau yang pakai susu apa cream? jangan lupa ambil makanan kecil tetapi makanan yang besar juga boleh.... untuk yang ahli hisab seperti Mr. Kid sediakan pula 10 bungkus rokok ......... hi hi hi ... > >Jika macro sudah di-enable : >1. Setelah macro dijalankan yang tampak hanya sheet 2 kita gunakan obyek Workbook dengan prosedur Open. >2. Workbook tulung sheet 1 delikna, sheet 2 ketokna, sheet liyane aja katon! >3. Kita ubah menjadi bahasa VB: > >Private Sub Workbook_Open() 'memerintahexcel dengan prosedur >saat dibuka >Sheet2.Visible = xlSheetVisible 'memperlihatkan sheet 2 >Sheet3.Visible = xlSheetHidden 'menyembunyikan sheet 3 >Sheet1.Visible = xlSheetHidden 'menyembunyikan sheet1 >UserForm1.Show 'memperlihatkan UserForm1 >End Sub > >selesai sudah pekerjaan memaksa user untuk mengenable macro. >nama: jeneng >password : password > >Namun apabila saat berada di sheet2 file excel tersebut rusak, terus recovery maka sesudah recovery pertama kali yang nampak adalah sheet 2 bukan sheet 1, walaupun macro belum dienable. ini yang belum dapat saya antisipasi. bagaimanakah caranya? >Tolong rekan-rekan B-Excel dapat membantu > >Terima kasih, matur nuwun, tengyu, sukron, > >asalamualaikumwarahmatullah > >NangAgus. > > > > >