Halo sobat-sobat berkreasi kali ini admin akan berbagi Bagaimana membuat kode untuk menyembunyikan semua sheet kecuali sheet aktif.
Mungkin jika kita memiliki hanya sedikit untuk menyembunyikan cukup gampang tapi Coba bayangkan jika kita memiliki 50 sip untuk sebuah program dan kita ingin menyembunyikan semua hasil kecuali sedang aktif. Nah berikut ini admin akan berbagi Bagaimana membuat kode menyembunyikan semua sheet kecuali yang aktif saja.
Sub SembunyikanSemuaKecualiSheetAktif() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> ThisWorkbook.ActiveSheet.Name Then ws.Visible = xlSheetHidden End If Next ws End Sub
Download File Contoh
Sembunyikan Semua Sheet Kecuali Sheet Aktif - OK.zip
Semoga bermanfaat,
Salam ALMaS.
Kantor berkreasi.net
Alamat :
Pens Sky Venture - Sukolilo Surabaya
Karangrejo Tmur 17 Surabaya
Email : Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya.
Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya. Form Kontak : Klik Disini
WA : 085 331 270 386 im3 (CS / Ali)
Bank BNI
No.rek. 0865254338
Atas nama BERKREASI MULTITECH. CV
Bank BRI Cab. Wonokromo
No.rek. 0976 01 004629 50 8
Atas nama IMAS KHASANAH
Dr. Nugroho Eko Putro, M.Pd.
Iqbal F. Rakhmat, SE., MM., M.Kom, CPISM, MCE
Budi Prasetya, ST., MM.
Amien sawedi, S.Pd.
Muhammad Risal Maros, M.Pd.
Didik P Wicaksono, M.Pd.
Wayan Mulyana, M.Pd.
Ali Ishaq, M.Pd.