Sembunyikan Semua Sheet Kehttp://berkreasi.net/administrator/index.php?option=com_content&view=article&layout=edit&id=247#editorcuali Sheet Aktif

VBA 34.jpg

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

zip.png  Sembunyikan Semua Sheet Kecuali Sheet Aktif - OK.zip

 

Semoga bermanfaat,

Salam ALMaS.

 

 

HUBUNGI KAMI

Kantor berkreasi.net
Alamat :
 

Pens Sky Venture - Sukolilo Surabaya

Jl. Cilincing jakarta utara

Email              : Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya.
Form Kontak  : Klik Disini
WA : 085 606 139 312  im3 (CS / Ali)

Pembayaran Via Transfer :

bni.jpg
Bank BNI Cab. Jember
No.rek. 019 598 5992
Atas nama Sdri IMAS KHASANAH

bri.jpg
Bank BRI Cab. Wonokromo
No.rek. 0976 01 004629 50 8
Atas nama IMAS KHASANAH

TIM PENGEMBANG

Dr. Nugroho Eko Putro, M.Pd.
Amien sawedi, S.Pd.
Aries Eko Wibowo, S.Pd. MM.
Fauzan, M.Kom.
Sahrudin, M.Pd.
Budi Prasetya, ST., MM.
Muhammad Risal Maros, M.Pd.
Didik P Wicaksono, M.Pd.
Wayan Mulyana, M.Pd.
Patrick A. Kembuan, S.Kom
Ali, M.Pd.