www.Berkreasi.Net

Sembunyikan Semua Sheet kecuali Sheet Aktif

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.

• Sebelumnya
• Berikutnya