Menyembunyikan dan Menampilkan Sheet Dengan Kode Macro

‘Kode untuk menyembunyikan semua sheet namun menyisahkan 1 sheet saja dengan nama Sheet1

Sub HideAllButOneSheet()

Dim wsSheet As Worksheet

For Each wsSheet In Worksheets

wsSheet.Visible = wsSheet.Name = “Sheet1″

Next wsSheet

End Sub

Berikut ini kode untuk menampilkan semua Sheet

+++++++++++++++++++++++++++++++++++++

‘Kode untuk menampilkan semua sheet

Sub ShowAllSheets()

Dim wsSheet As Worksheet

For Each wsSheet In Worksheets

wsSheet.Visible = True

Next wsSheet

End Sub

Semoga Bermanfaat

Explore posts in the same categories: Artikel Ilmiah

Kaitkata: Tutorial VBA

You can comment below, or link to this permanent URL from your own site.