Menyembunyikan / Memunculkan Sheet

Menyembunyikan sheet diperlukan jika kamu menginginkan beberapa data tidak terlihat dan dirubah oleh user / kolega anda. Contoh - contoh kode VBA berikut dapat digunakan untuk menyembunyikan sheet maupun sebaliknya yaitu untuk memunculkan sheet yang tersembunyi.

1. Menyembunyikan sheet dengan nama depan tertentu

Ketika kamu membuat sebuah template laporan dan menyusun data dalam serangkaian sheet yang didesain dengan nama depan tertentu, misalnya: List 1, List 2, List 3 dan seterusnya. Kemudian kamu ingin menyembunyikan sheet list tersebut dengan cepat, Maka  kamu dapat membuat makro dengan kode berikut:

Sub HideWsNamaDepanTertentu() Dim namaDepanWs As String Dim Wb As Workbook Dim Ws As Worksheet Set Wb = ActiveWorkbook namaDepanWs = "List" ' "List" bisa diganti sesuai kebutuhan For Each Ws In Wb.Sheets If Left(Ws.Name, Len(namaDepanWs)) = namaDepanWs Then Ws.Visible = xlSheetHidden End If Next End Sub

2. Menyembunyikan sheet supaya tidak sembarang user bisa memunculkan kembali sheet tersebut.

Alternatif lainnya, kamu bisa menyembunyikan sheet dengan mode sangat tersembunyi. Dengan mode ini maka tidak sebarang user bisa melakukan unhide sheet tersebut (tentunya kecuali user yang sudah tau triknya...). Untuk tujuan ini anda dapat menggunakan konstan xlSheetVeryHidden sebagai nilai property sheet Visible.

Sub SuperHideWsNamaDepanTertentu() Dim namaDepanWs As String Dim Wb As Workbook Dim Ws As Worksheet Set Wb = ActiveWorkbook namaDepanWs = "List" ' "List" bisa diganti sesuai kebutuhan For Each Ws In Wb.Sheets If Left(Ws.Name, Len(namaDepanWs)) = namaDepanWs Then Ws.Visible = xlSheetVeryHidden End If Next End Sub

3. Memunculkan Sheet Tersembunyi Yang Memiliki Nama Dengan Kata Depan Tertentu

Prosedur nomor 3 ini merupakan kebalikan dari prosedur nomor 1.  Kita bisa memunculkan kembali satu atau lebih sheet tersembunyi yang memiliki nama depan tertentu. Cotoh kasus : dengan nama depan "List". 

Sub UnhideWsNamaDepanTertentu() Dim namaDepanWs As String Dim Wb As Workbook Dim Ws As Worksheet Set Wb = ActiveWorkbook namaDepanWs = "List" ' "List" bisa diganti sesuai kebutuhan For Each Ws In Wb.Sheets If Left(Ws.Name, Len(namaDepanWs)) = namaDepanWs Then If Ws.Visible = xlSheetHidden Then Ws.Visible = xlSheetVisible End If End If Next End Sub

4. Memunculkan Semua Sheet Tersembunyi dengan Mode Standar.

Prosedur berikut dapat digunakan untuk memunculkan semua sheet tersembunyi dengan mode standar tanpa memperhatikan nama yang melekat pada sheet tersembunyi, namun tetap mempertahankan semua sheet yang super tersembunyi (very hidden) untuk tetap berdiam diri di persembunyiannya.

Sub UnhideSemuaWs() Dim Wb As Workbook Dim Ws As Worksheet Set Wb = ActiveWorkbook For Each Ws In Wb.Sheets If Ws.Visible = xlSheetHidden Then Ws.Visible = xlSheetVisible End If Next End Sub

5. Memunculkan Sheet Tersembunyi Tanpa Kecuali

Jika kamu ingin mengeluarkan semua sheet dari persembunyiannya tanpa kecuali, maka prosedur nomor 5 menjadi pilihan yang paling tepat. Dengan prosedur ini semua sheet akan dipaksa keluar dari persembunyiannya dan terpampang nyata, termasuk very hidden sheet. 

Sub UnhideSemuaWsTanpaKecuali() Dim Wb As Workbook Dim Ws As Worksheet Set Wb = ActiveWorkbook For Each Ws In Wb.Sheets Ws.Visible = xlSheetVisible Next End Sub

Demikian beberapa contoh code makro / VBA yang bisa teman-teman gunakan untuk menyembunyikan sheet dan juga sebaliknya.

Jika ada saran / masukan silakan tinggalkan pesan.

Salam..

Contoh code terkait:

Code VBA Untuk Menghapus Sheet

Code VBA Untuk Menambah Sheet