Mas Ade mat pagi.
Saya coba bantu sdkit mngenai veryhiden ya.Kmarin Mas Nang Agus ada ajarkan 
sdkit.
Dicoba kode ini ya?
Dim w as worksheet
For Each W in worksheets
'andaikan hanya sheet1 yang kelihatan dan yang lainnya veryhidden
if W.Name = "Sheet1" then w.visible =xlSheetVisible next w
For each W in Worksheets
If W.Name <> "Sheet1" then W.visible=xlVeryHidden
next W
Dicoba dulu ya? Mungkin keliru atau bagaimana nanti para master 
yangelengkapinya. Maaf kurang memuaskan.


Salam
Jack
Dikirim dari Yahoo Mail pada Android


Kirim email ke