Jitu.. Cara Menyembunyikan Dan Memunculkan Worksheet Melalui Code VBA -Praktis Dan Singkat

Hallo sahabat Excel-ID senang sekali saya masih bisa menulis artkel pada hari ini dan kali ini saya akan membuat sebuah contoh bagaimana cara menyembunyikan worksheet dengan menggunakan code VBA sekaligus bagaimana juga cara memunculkan worksheet hanya dengan menggunakan sebuah tombol (CommandButton) pada UserForm.

Cara ini cukup mudah dan sederhana namun saya kira jika Anda belum pernah mencobanya tentunya akan bingung sendiri untuk apa dan bagaimana cara membuatnya. Oke langkah yang harus dilakukan pertama kali adalah silakan Anda buat satu buah Workbook kemudian masuk ke VBA Editor kemudian 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" kemudian untuk CommandButton2 silakan ganti dengan "Munculkan Sheet". Untuk mempermudah gambaran kira-kira seperti berikut ini


Setelah Anda membuat desain interface UserForm seperti 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 jika mengelami kesulitan dan semoga bermanfaat selamat mencoba.

Tweet

Subscribe to receive free email updates: