Tampilkan Semua Sheet Tersembunyi

VBA 35.jpg

Halo sahabat-sahabat berkreasi kali ini admin akan berbagi kode vba Bagaimana menampilkan semua sheet tersembunyi. Fitur ini akan sangat berguna apabila kita menggunakan kode sebelumnya kita bahas yaitu menyembunyikan semua sheet kecuali aktif.

Jika kita hanya memiliki beberapa sifat mungkin kode ini tidak seberapa terasa tapi jika kita memiliki banyak sheet misalkan sampai 50 sheet untuk menampilkan 1 per 1 maka akan membuang waktu, kode ini akan sangat berguna bagi kita yang ingin bekerja dengan cepat menggunakan Excel.

Berikut adalah kode yang kita gunakan untuk menampilkan semua sheet yang tersembunyi.

Sub TampilkanSemuaSheetTersembunyi()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
    ws.Visible = xlSheetVisible
    Next ws
End Sub

 

Download File Contoh

zip.png Tampilkan Semua Sheet Tersembunyi - OK.zip

 

Semoga bermanfaat,

Salam ALMaS.

 

 

HUBUNGI KAMI

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)

Pembayaran Via Transfer :

bni.jpg
Bank BNI
No.rek. 0865254338
Atas nama BERKREASI MULTITECH. CV

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.
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.