Cara Menyembunyikan Dan Memunculkan Worksheet Melalui Code Vba

Hallo sahabat Excel-ID bahagia sekali saya masih dapat menulis artkel pada hari ini dan kali ini saya akan menciptakan sebuah teladan bagaimana cara menyembunyikan worksheet dengan memakai code VBA sekaligus bagaimana juga cara memunculkan worksheet hanya dengan memakai sebuah tombol (CommandButton) pada UserForm.

Cara ini cukup gampang dan sederhana namun saya kira kalau Anda belum pernah mencobanya tentunya akan resah sendiri untuk apa dan bagaimana cara membuatnya. Oke langkah yang harus dilakukan pertama kali yakni silakan Anda buat satu buah Workbook lalu masuk ke VBA Editor lalu tambahkan satu buah UserForm. Untuk menambahkan UserForm juga pernah saya bahas sebelumnya dan dalam dipelajari di blog ini.

Langkah berikutnya silakan tambahkan 2 buah objek CommandButton dan ganti Captionya untuk CommandButton1 dengan "Sembunyikan Sheet" lalu untuk CommandButton2 silakan ganti dengan "Munculkan Sheet". Untuk mempermudah citra kira-kira menyerupai berikut ini

Setelah Anda menciptakan desain interface UserForm menyerupai diatas langkah berikutnya silakan Double klik untuk CommandButton "Sembunyikan Sheet" dan tuliskan coding berikut ini

Private Sub CommandButton1_Click()
Call SembunyikanSheet
End Sub

Sub SembunyikanSheet()
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

Langkah berikutnya untuk perintah atau coding VBA memunculkan Worksheet silakan tuliskan code berikut ini

Sub MunculkanSheet()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ThisWorkbook.ActiveSheet.Name Then
ws.Visible = xlSheetVisible
End If
Next ws
End Sub

Private Sub CommandButton2_Click()
Call MunculkanSheet
End Sub

Selesai, silakan coba RUN untuk mengetahui apakah berhasil atau tidak dan silakan komentar dibawah kalau mengelami kesulitan dan supaya bermanfaat selamat mencoba.

Related Posts