Mungkin lebih baik begini, menyendiri di sudut kota ini..... (pulang ngamen masih ingat lagu yg tadi saya nyanyikan....)
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Sheets("1").Visible = xlSheetVisible
Else
Sheets("1").Visible = xlHidden
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2 = True Then
Sheets("2").Visible = xlSheetVisible
Else
Sheets("2").Visible = xlHidden
End If
End Sub
'-----------------------
2012/6/22 Yusril Ramadani <[email protected]>
> 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
HidingSheet byChkBox (markonah) .xlsm
Description: Binary data
