Terima ksh banyak atas bantuannya.Semoga ilmunya menjadi amal jariah disisi Allah SWT. Amin.WslmArief
Sent from Yahoo Mail on Android On Thu, Apr 28, 2016 at 9:43, Nang Agus [email protected] [belajar-excel]<[email protected]> wrote: Coba tambahkan cekrip untuk menyembunyikan: Private Sub Workbook_Open() Dim w As Worksheet For Each w In ActiveWorkbook.Worksheets If w.Name <> "1" Then w.Visible = xlSheetVeryHidden Next w End Sub yang disembunyikan adalah semua sheet kecuali sheet dengan nama "1" salam 2016-04-27 16:39 GMT+07:00 Darwis Arief [email protected] [belajar-excel] <[email protected]>: Makasih masukannya mas KenangAgus. Kami sdh menggunakan skrip itu diatasx jd ada bbrp sheet sj yg sy ingin tampilkn yg laen msh sy hide. Wassalam,Arief Sent from Yahoo Mail on Android wa alaikumsalam warahmatullah. Bagaimana kalau menggunakan nama aktenya saja, bukan nama dinas ke workbook seperti pesan mas KId di sini coba gunakan cekrip: Dim w As Worksheet For Each w In ActiveWorkbook.Worksheets w.Visible = xlSheetVisible Next w salam KenangAgus 2016-04-27 13:27 GMT+07:00 Darwis Arief [email protected] [belajar-excel] <[email protected]>: Aslm,Para pakar Excel yg budiman,Aku punya Skrip untuk unhide sheets sbb:Sheets("AA-1").Visible = xlSheetVisibleSaya ingin mengganti menjadi:Sheets("*"&"-1").Visible = xlSheetVisible namun terjadi Debug Saya menginginkan demikian berhubung nama sheet sering berubah sesuai inputan dicell tertentu. Adakah Skrip yang salah?Mohon pencerahannya. Wassalam,Arief
