Sedikit bisik-bisik... 1. Jika akan buka workbook tanpa perlu update link dalam workbook yang dibuka : Set wbTarget = Workbooks.Open(Filename:=LokasiFile *, **false *) 'LokasiFile taruh di cel yg kita inginkan.
2. Jika akan buka workbook dalam keadaan read only, supaya ndak peduli workbook tersebut sudah dibuka atau belum Set wbTarget = Workbooks.Open(Filename:=LokasiFile* , , **true* ) 'LokasiFile taruh di cel yg kita inginkan. 3. Jika ingin keduanya (1 dan 2) Set wbTarget = Workbooks.Open(Filename:=LokasiFile* , **false , **true* ) 'LokasiFile taruh di cel yg kita inginkan. 4. Jika ingin tutup workbook tanpa ada proses save : wbTarget.close *false * Wassalam, Kid. 2013/1/29 <[email protected]> > ** > > > > Dear Be-Exceller, > > Ma'af sudah bisa, dengan code sbb. : > > Dim wbTarget As Workbook > Set wbTarget = Workbooks.Open(Filename:=LokasiFile) 'LokasiFile taruh di > cel yg kita inginkan. > wbTarget.close > Set wbTarget = Nothing > > > Wassalam, > Tio > > > > *[email protected]* > Sent by: [email protected] > > 01/28/2013 03:39 PM > Please respond to belajar-excel > > To: [email protected] > cc: > Subject: [belajar-excel] Menutup 1 windows dengan code vba > > > > > > > Dear Be-Exceller, > > Saya mau tanya. Ada 2 windows workbook yang saya buka, saya ingin menutup > 1 windows ditombol yang diletakkan di windows yang lain. > > Saya coba pakai VBA code : > > Dim LokasiFile As String > LokasiFile = Range("E1").Value > > Windows(LokasiFile).Activate > ActiveWindow.Close > > Kok tetap gak berhasil, apa ada yang salah di code saya ? > > Terima kasih bantuannya. > > Wassalam. > Tio > > > > >
