ibu Himmah silakan dicoba script berikut
Option Explicit ' -------------------------- ' ' Code by Miss Jan Raisin ' ' untuk millis Belajar Excel ' ' 14 November 2012 ' ' -------------------------- ' ' nama prosedur Sub MoveCopyVisible() ' deklarasikan variable untuk menyimpan objek berupa worksheet Dim ws As Worksheet ' dekalrasikan sebuah konstanta untuk menyimpan alamat_file ' tipe data adalah String karena alamat_file berupa text atau string ' ganti alamat_file sesuai dengan keinginan Const sPath As String = "E:\" ' dekalrasikan sebuah konstanta untuk menyimpan nama_file ' tipe data adalah String karena nama_file berupa text atau string ' ganti nama_file sesuai dengan keinginan Const sWbName As String = "FileB" ' terhadap workbook yang aktif (misal adalah FileA), kita akan membuat workbook baru dengan nama yang berbeda ' karena itu digunakan perintah ActiveWorkbook.SaveAs ' lokasi dan nama file yang baru diambil berdasarkan konstanta alamat_file & nama_file & ekstensi_file ' alamat_file adalah sPath ' nama_file adalah sWbName ' ekstensi_file adalah "." & "xlsm" ' kenapa ekstensinya harus xlsm ? ' karena seluruh script yang tertulis ini akan pindah ke dalam file yang baru (fileB) ' akibat dari perintah .SaveAs ' walaupun awalnya di tulis di dalam file yang lama (fileA) ActiveWorkbook.SaveAs Filename:=sPath & sWbName & "." & "xlsm", CreateBackup:=False ' setelah terbentuk sebuah file yang baru dengan nama yang baru ' kita akan melakukan pengujian tehadap seluruh worksheet yang terdapat dalam file tersebut ' jika status worksheet adalah veryhidden maka akan diubah menjadi visible ' untuk itu akan dilakuak loop terhadap seluruh worksheet ' gunakan perintah For Each - Next For Each ws In Worksheets ' dari sini kita akan melakukan pengujian terhadap status worksheet ' jika statusnya adalah very hidden, maka If ws.Visible = xlSheetVeryHidden Then ' tampilkan worksheet tersebut dengan perintah nama_objeknya.Visible = xlSheetVisible ws.Visible = xlSheetVisible ' ini adalah penutup dari pengujian terhadap seluruh worksheet End If ' lanjutkan untuk worksheet berikutnya Next ws ' ini adalah penutup dari prosedur End Sub script-nya sebetulnya pendek karena berjalan di dalam file itu sendiri, yang panjang hanya dongeng menjelang libur panjangnya xixixixi :D Best Regard, Jan Raisin Pada 13 November 2012 16:59, him mah <himmah....@gmail.com> menulis: > ** > > > Mohon bantuannya > > saya punya file excel dengan nama fileA terdiri dari beberapa sheet > dengan nama "A","B","C","D", dan "E" status sheet tersebut > xlSheetVeryHidden > > saya ingin melakukan move copy ke file excel baru untuk sheet tersebut > dan file baru tersebut dinamai fileB, > > untuk di fileA sheet sheet tersebut statusnya biar xlSheetVeryHidden > sedangkan di di fileB sheet tersebut statusnya menjadi xlSheetVisible > > kira-kira VBA nya seperti apa > > terima kasih > >