Hai Yusril,
# Saat buka file maka yang muncul hanya sheet Option
>> manfaatkan event Activate milik this workbook
kira-kira scriptnya seperti ini:
Private Sub Workbook_Activate()
Dim sht As Worksheet
Sheets("nama_sheet_yang_harus_selalu_terbuka").Visible = xlSheetVisible
For Each sht In Worksheets
If sht.Name <> "nama_sheet_yang_harus_selalu_terbuka" Then
sht.Visible = xlSheetVeryHidden
End If
Next sht
End Sub
# Pada saat check box diklik maka sheet muncul / menghilang
>> manfaatkan event change milik setiap check box
kira-kira script untuk masing-masing check box seperti ini:
Private Sub CheckBox1_Change()
With Sheets("nama_sheet_yang_berhubungan_dengan_cek_box")
If .Visible = xlSheetVisible Then
.Visible = xlSheetVeryHidden
Else
.Visible = xlSheetVisible
End If
End With
End Sub
# Pada saat workbook ingin ditutup ada pertanyaan mau disimpan atau tidak
>> manfaatkan event Before Close milik this workbook
kira-kira scriptnya seperti ini:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Mau disimpan gak nih ?", vbYesNo, "Before Close") = vbYes
Then
ThisWorkbook.Save
Else
ThisWorkbook.Close False
End If
End Sub
Yang dikasih warna merah silakan diganti sesuai dengan kebutuhan
وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
-Miss Jan Raisin-
*>>> Untuk kepentingan belajar bersama, pertanyaan ditujukan ke
[email protected];*
*>>> Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;*
Pada 12 Juni 2013 11.58, Yusril Ramadani <[email protected]> menulis:
> **
>
>
> Dear Para pakar
>
> mohon bantuannya untuk case terlampir
>
> saya mau buat sebuah template yg dimana ketika baru buka template tersebut
> hanya sheet options yg terlihat dan sheet yg lain dipanggil dengan meng
> click check box atau button
>
> dan ketika close file hanya sheet options dan sheet yg di click tersebut
> yang visible
>
>
>
> mohon pencerahannya
>
>
> salam
> YR
>
>
>
