Kalo cara yang lebih panjang, tetapi flexible: ‘1. Buat procedure baru
Sub SembunyikanSemuaSheetKecuali(nmSheet As String)
With Worksheets(nmSheet)
.Visible = xlSheetVisible
.Activate
End With
For Each sh In ThisWorkbook.Worksheets
If sh.Name = ActiveSheet.Name Then
sh.Visible = xlSheetVisible
Else
sh.Visible = xlSheetHidden
End If
Next sh
End Sub
‘2. Rubah event workbook_beforeclose menjadi
Private Sub workbook_beforeclose(Cancel As Boolean)
Application.DisplayAlerts = False
SembunyikanSemuaSheetKecuali “Sheet6”
ThisWorkbook.Save
ThisWorkbook.Close
End Sub
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On
Behalf Of Haps
Sent: Friday, December 09, 2011 8:44 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] bagaimana cara hide beberapa sheet sekaligus
Mungkin begini Oom Sai...
Sheets(Array("Sheet6", "Sheet1", "Sheet2", Sheet3", "Sheet5",
"Sheet4")).Visible = False
iHaps
2011/12/9 Saifudin Mnp <saif...@ymail.com>
Bagaimana cara menghide banyak sheet sekaligus sebelum menutup workbook?
selama ini saya pergunakan cara seperti di bawah ini tetapi ribet karena harus
menyebutkan sheetnya satu per satu
Private Sub workbook_beforeclose(Cancel As Boolean)
Application.DisplayAlerts = False
Sheet6.Visible = xlSheetVisible
Sheet1.Visible = xlSheetVeryHidden
Sheet2.Visible = xlSheetVeryHidden
Sheet3.Visible = xlSheetVeryHidden
Sheet5.Visible = xlSheetVeryHidden
ThisWorkbook.Save
ThisWorkbook.Close
End Sub
terima kasih dan salam kenal
<<image001.jpg>>
<<image002.jpg>>
