ada yang salah
seharusnya
dim lembar as worksheet
for each lembar in thisworkbook.worksheets
if lembar.name <> "aku" then 
lembar.visible = xlSheetHidden
end if
next lembar

  ----- Original Message ----- 
  From: siti Vi 
  To: belajar-excel@yahoogroups.com 
  Sent: Friday, March 12, 2010 10:31 AM
  Subject: Re: [belajar-excel] Menghide semu sheet kecuali satu


  men-set visibility semua sheets (dlm 1 workbook) agar berstatus hidden, 
  kecuali sheet bernama "aku"
  dim lembar as worksheet
  for each lembar in thisworkbook.worksheets
  if lembar.name = "aku" then exit for
  lembar.visible = xlSheetHidden
  next lembar
  teknik "menembak" sekaligus semua object dlm sebuah koleksi object seperti 
  di atas sudah sangat sering dicontohkan.. mosok lupa lagi...

Kirim email ke