Hai Himmah,
Yang ini intepretasi lain dari kalimat :
"fileA terdiri dari beberapa sheet dengan nama "A","B","C","D", dan "E"
status sheet tersebut xlSheetVeryHidden"
yang artinya, pasti ada sheet lain yang tidak di-hidden (minimal 1 sheet
harus tampak), dan bisa jadi tidak semua sheet yang di very hidden yang
akan di-copy (alias hanya sheet tertentu dari yang di very hidden).
Script berikut asumsinya adalah hanya sheet A,B,C yang di hide
public sub SaveMyHiddenSheet()
dim wbkA as workbook, wbkT as workbook 'wbka untuk file asal, wbkt
untuk tujuan (workbook baru)
dim vShtName as variant, vSht as variant 'vShtname : array nama sheet
akan di-copy, vSht : diproses loop
dim lShtT as long 'jumlah
sheet dalam workbook tujuan
'dim lVisState as long 'simpan status visibility sheet supaya bisa
dikembalikan ke asal (kalau dipakai)
vshtname=array("A","B","C") 'isi array nama sheet (array bisa
disusun dengan loop )
set wbka=thisworkbook 'init workbook asal
set wbkt=workbooks.add 'set workbook tujuan. Cara : buat
workbook baru
lshtT=wbkt.sheets.count 'jumlah sheet di wbkt, supaya
mudah meletakkan sheet copy-an
with wbka 'kerja di pointer object
workbook asal
for each vsht in vshtname 'loop setiap nama sheet
with .sheets(vsht) 'kerja di sheet
asal yang diproses
'kalau pakai simpan status visibility sheet, aktifkan
baris ini :
'lvisstate= .visible
'tampakkan dulu sheetnya baru diproses
.visible=xlsheetvisible
'proses copy-nya :
'(jika akan copas values saja,
'buat sheet baru di tujuan,
'rujuk ke seluruh cell sheet asal dan
'copas values ke sheet tujuan)
'yang ini kalau copy sheet utuh
.copy after:=wbkt.sheets(lshtT)
lshtT=lshtT+1 'wbkT ketambahan 1 sheet, maka nilai
lshtT ditambah 1
'kembalikan status hidden sheet asal
'.visible=lvisstate 'kalau pakai set lvisstate,
aktifkan baris ini
.visible=xlsheetveryhidden
end with 'selesai
kerja di sheet asal
next vsht 'nama sheet
berikutnya
end with 'selesai kerja di
pointer workbook asal
wbkt.saveas wbka.path & "\fileb" 'save as wbkt, nama : fileb ;
folder : sama dengan wbka
wbkt.close false
'tutup wbkt tanpa save lagi
end sub
Moga-moga gak error, karena belum dicoba.
Wassalam,
Kid.
2012/11/13 him mah <himmah....@gmail.com>
> **
>
>
> 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
>
>
