Sebuah judul goresan pena yang aneh, kenapa saya menuliskan judul artikel Hide Worksheet Ketika File Excel Dibuka? untuk apa apakah meteri ini dianggap penting? Ya, bahwasanya urusan penting atau gak penting itu hanya dapat dijawab oleh Anda sendiri. yang terang saya disini hanya aneka macam bahan mengenai excel dan kali ini saya akan menulis bagaimana cara menyembunyikan worksheet saat file dibuka dan saat ditutup worksheet tertentu dimunculkan kembali namun tidak ada lagi konfirmasi alias eksklusif tutup saja.
Baiklah, tujuan untuk memnyembuntikan worksheet bahwasanya hanya sebagai pengamanan saja bahwa worksheet yang disembunyikan dirasa cukup penting yang tidak dapat diganggu oleh user atau pengguna. Biasanya hal ini dilakukan oleh para programmer VBA untuk menyelamatkan worksheet yang vital. Untuk dapat menyembunyikan worksheet secara manual atau biasa dilakukan tanpa VBA Anda cukup klik kanan worksheet yang akan disembunyikan kemudian klik Hide dan untuk mengembalikannya klik kanan pada salah satu worksheet kemudian klik Unhide.
Baca:
Cara Menyembunyikan Worksheet, Kolom, Baris pada Excel
Untuk menyembunyikan worksheet atau lembar kerja memakai VBA ada beberapa hal yang harus diperhatikan yaitu apakah kita akan memakai mekanisme Form Active, Workbook_open, CommandButton_Click, dan atau lainnya tergantung kebutuhan serta maksud dari programmer tersebut. Pada kesempatan kali ini saya akan mencoba menyembunyikan worksheet melalui mekanisme Workbook_Open dan Workbook_close.
Langsung saja ini ia script VBA / coding untuk menyembunyikan worksheet saat file dibuka pertama kali.
Private Sub Workbook_Open()
Dim i As Integer
For i = 1 To ActiveWorkbook.Sheets.Count - 1
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
End If
Next
Sheet1.Visible = xlSheetVeryHidden
End Sub Coding diatas disimpan pada ThisWorkbook.Sebenarnya dari bahan ini dapat kita ambil pada dasarnya yaitu untuk menyembunyikan sheet syntax nya yaitu namasheet.visible=xlSheetVeryHidden.
Ada beberapa pilihan sebagai visible sheet yaitu :
-1 = xlSheetVisible
0 = xlSheetHidden
1 = xlSheetVeryHidden
Makara ada 3 pilihan yang dapat dilakukan untuk menjalankan perintah apakah sheet mau ditampilkan atau disembunyikan, atau disembunyikan lebih kompleks lagi.
Silakan Anda coba Simpan file tersebut dan jangan lupa untuk Type File nya harus Macro enable.
Setelah Adan dapat menyembunyikan worksheet dengan mekanisme WorksbookOpen kemudian bagaimana cara menampilkannya kembali atau memunculkannya kembali?
Cara Lain
Coding/Script VBA untuk Menyembunyikan worksheet Cara Lain
Berikut coding untuk memunculkan Worksheet yang tersembunyi
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Integer
For i = 1 To ActiveWorkbook.Sheets.Count - 1
If Sheets(i).Visible = True Then
Sheets(i).Visible = xlSheetVeryHidden
End If
Next
Sheet1.Visible = xlSheetVisible
End Sub Code dari mekanisme diatas akan berjalan saat workbook atau file ditutup maka sheet akan ditampilkan atau dimunculkan kembali.Simak:
Cara Tepat Menyembunyikan dan Memunculkan Worksheet di Excel
Sumber http://www.excel-id.com/
