''==Module thisworkbook
Private Sub Workbook_Open(
HideAllSheets
End Sub
'==Module standar (dlm contoh Module1)
Sub HideAllSheets(
Dim sht
For Each sht In ThisWorkbook.
If Not sht.Name = "KODOK" Then sht.Visible = 2
Next
End Sub
'==Module nilik UserForm1
' di dalam UserForm1 dibuat 1 ListBox (ListBox1)
Private Sub ListBox1_Change(
HideAllSheets
Worksheets(ListBox1
Worksheets(ListBox1
End Sub
Private Sub ListBox1_DblClick(
Unload Me
End Sub
Private Sub UserForm_Activate(
Dim sht
For Each sht In ThisWorkbook.
If Not sht.Name = "KODOK" Then
ListBox1.AddItem sht.Name
End If
Next
End Sub
'===Module milis Sheet "KODOK"
' sheet ini dijadikan "penjaga gawang", yaitu
'>> tidak ikut di buat hidden (dlm workbook minimal harus ada 1 sheet yg visible)
'>>tempat digambarnya tombol (CommandButton1) untuk memanggil userform1
Private Sub CommandButton1_
UserForm1.Show
End Sub
Efek yg diharapkan dengan adanya makroh tsb adalah
1- jika worbook dibuka: kondisi semua sheets (kecuali si "KODOK") dibuat VERY HIDDEN
2- Jika tombol yg ada di sheet KODOK di ceklik > akan ada DialogBox "Select and Activate Sheet"
di dalamnya ada ListBox yg berisi daftar nama sheets
3- Jika Nama Sheet (dlm ListBox) di select, maka sheet yg terkait di VISIBLEkan
(Sheet lain = tetap di VERY HIDDEN kan)
4- Jika memilih sheet dlm listbox sambik di DOUBLE KLIK,
selain efek no.3 juga akan menutup DialogBox (UserForm1)
Dear Expert,
saya mempunyai satu workbook yang memiliki jumlah sheet yang sangat banyak.Untuk dapat mengakses semua sheet tsb, saya menggunakan GUI yang menggunakan command button untuk mempermudah pengaksesan. Pertanyaan saya, adakah command,script yang dapat menyembunyikan sheet tapi tetap bisa diakses oleh command button yang saya buat.sehingga pemanggilan sheet hanya dapat dilakukan dari GUI. Sudah coba di hide biasa tapi tidak bisa dibuka sheet yang di hide tsb, apakah bisa menggunakan script hide-unhide yang para expert pernah buat di postingan sebelumnya. Terima kasih jika ditampilakn dan dijawab post saya yang nubie ini .
| jangan lupa sebelum bertanya, cek dulu www.XL-mania.com dan |
| http://tech.groups.yahoo.com/group/XL-mania/messages |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
Nenhum comentário:
Postar um comentário