Menyembunyikan Worksheet

Prasyarat:


Pada meteri kali ini saya akan membahas bagaimana menyembunyikan dan menampikan kembali Worksheet menggunakan script VBA.

Untuk menampilkan atau menyembunyikan lembar kerja di Tab Sheets Excel menggunakan VBA, caranya sangat mudah.

Kamu dapat mengatur nilai yang ada pada properti .Visible yang tersedia pada objek worksheet.

Properti ini bisa diatur melalui Propeties Windows atau bisa juga melalui script.

Properties Visible

Untuk mengatur visible melalui Properties windows, tinggal diubah melalu properti name visible seperti gambar diatas.

Sedangkan jika akan diatur melalui script, kamu bisa ikuti langkah-langkah dibawah ini.

Berikut adalah contoh kode VBA untuk menyembunyikan dan menampilkan lembar kerja di Excel:

Contoh Script VBA Untuk menyembunyikan lembar kerja atau Worksheet:

Sub hideSheet()
    Sheets("Sheet1").Visible = xlSheetHidden 
    'ganti Sheet1 dengan nama sheet yang ingin disembunyikan
End Sub

Script diatas pada tahap pertama adalah menentukan nama sheet yang akan di sembunyikan.

Kemudian atur nilai visible menjadi xlSheetHiden. Ini adalah konstanta yang ada pada Macro VBA Excel.

Pada File Excel, worksheets tidak bisa dihide semua minimal harus ada 1 sheets yang masih terlihat (xlSheetVisible)

vba.co.id

Contoh Script untuk menampilkan kembali lembar kerja yang disembunyikan:

Sub unhideSheet()
    Sheets("Sheet1").Visible = xlSheetVisible 
    'ganti Sheet1 dengan nama sheet yang ingin ditampilkan kembali
End Sub

Untuk menampilkan kembali worksheet, cara tetap sama,

Tentukan nama sheet yang ingin ditampilkan kemudian atur nilai visible menjadi xlSheetVisible untuk menampilkan kembali sheet.

Pada kode di atas yang dilakukan adalah mengubah nilai properti .Visible dari objek worksheet yang asalnya xlSheetHidden menjadi xlSheetVisible.

Ini merupakan konstanta bawaan VBA untuk nilai yang digunakan untuk menunjukkan apakah sheet terlihat atau tidak terlihat.

Berikut adalah nilai-nilai konstan yang dapat digunakan untuk properti .Visible pada objek worksheet yang mengatur untuk menampilkan dan menyembunyikan Sheets:

ConstantaNilaiKeterangan
xlSheetHidden0Worksheet disembunyikan tetapi dapat diakses melalui menu View atau tombol Sheet Tab
xlSheetVeryHidden2Worksheet disembunyikan dan hanya bisa di akses melalui kode VBA
xlSheetVisible-1Menampilkan kembali Worksheet

Disini kamu bisa mengatur properti .Visible pada objek worksheet menggunakan salah satu dari nilai-nilai di atas.

Bisa menggunakan Constanta atau menggunakan Nilai.

Pada contoh script diawal materi, sudah di contohkan bagaimana menggunakan konstanta seperti xlSheetVisible atau xlSheetHidden .

Selain menggunakan konstanta, bisa juga menggunakan nilai secara langsung untuk mengatur tampilan sheets.

Contoh mengatur nilai visible menggunakan script bisa dilihat pada contoh dibawah ini:

Sub hideSheet()
    Sheets("Sheet1").Visible = 0   'sama dengan Worksheet Hidden 
End Sub

atau

Sub ShowSheet()
    Sheets("Sheet1").Visible = -1   
    'sama seperti xlSheetVisible yaitu untuk menampilkan Worksheet
End Sub

Apa Perbedaan Sheet Hidden dan Sheet Very Hidden ?

Untuk menyembunyikan sebuah worksheet bisa menggunakan sheet Hidden dan Very Hidden.

Keduanya sama-sama digunakan untuk menghilangkan sheets dari Tab Sheet Excel.

Lalu apa perbedaanya?

Perbedaannya, saat melakukan Sheet hidden, pengguna masih bisa melakukan Unhide melalui klik kanan pada Tab Sheets.

Sedangkan Very Hidden, Nama Sheet akan menghilang dari Tab Sheets dan untuk memunculkan kembali (Unhide) tidak bisa melalui klik kanan kemudian pilih Unhide. tetapi harus melalui Visual Basic Editor di properties Worksheet.

Selanjutnya ke prakter dan contoh kasus.

Contoh Kasus 1

  • Buat sebuah script untuk menyembunyikan semua sheet kecuali Sheet Home

Untuk menjawab pertanyaan diatas, maka script bisa dibuat sepert dibawah ini.

Jawaban :

Sub hideSheet()
Dim sht As Worksheet

For Each sht In ThisWorkbook.Worksheets
    If not sht.Name = "Home" Then
        sht.Visible = xlSheetHidden
    End If
Next sht 
End Sub

Contoh Kasus 2

  • Buat sebuah script untuk menyembunyikan nama-nama sheets tertentu misalnya “Data”, “Report” dan Sheet “Sales1”

Jawaban:

Sub hideSheet()
Dim sht As Variant
Dim NamaSh As Variant

NamaSh = Array("Data", "Report", "Sales1")

For Each sht In NamaSh
    Worksheets(sht).Visible = xlSheetHidden
Next sht
End Sub

Itulah beberapa cara yang bisa dilakukan untuk menampilkan worksheet dan menyembuyikan worksheet menggunakan Macro VBA.

List Tutorial
Apa yang sedang kamu cari?

Temukan beberapa kata kunci yang diinginkan.

Search