Di object sheet-nya si option
Buat event change dari checkbox1 dan checkbox2 (2 prosedur event change)
isi dengan perintah untuk set visible sheet
Private Sub CheckBox1_Change()
Sheet2.Visible = CheckBox1.Value
Sheet3.Activate
End Sub
Private Sub CheckBox2_Change()
Sheet1.Visible = CheckBox2.Value
Sheet3.Activate
End Sub
lalu di object this workbook
buat event open dan before close (2 prosedur)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheet3.CheckBox1.Value = False
Sheet3.CheckBox2.Value = False
Application.DisplayAlerts = False
ThisWorkbook.Save
End Sub
Private Sub Workbook_Open()
Sheet3.CheckBox1.Value = False
Sheet3.CheckBox2.Value = False
End Sub
Kemudian save file excel dan pilih ekstensi .xlsm atau .xlsb
Wassalam,
Kid.
2012/6/22 Yusril Ramadani <[email protected]>
> **
>
>
> Selamat pagi para pakar
>
> Mohon bantuannya untuk case terlampir
>
> Saya mau menggunakan chekbok untuk memunculkan dan menyembunyikan sheet
> Pada posisi pertama ke dua sheet tersembunyi dan bergantung kepada clck
> chekbox nya
> dan pada saat close pun hanya sheet yg di click yg tetap muncul
>
> Salam
> YR
>
>
>
