Sudah saya coba dengan menghilangkan app_windowactivate, BERHASIL tanpa menggunakan class events
Dengan setting wbB.visible=false, saya lakukan perintah advance filter dari wbB sbb: With shtTable .Range("FilterCriteria") = FilterBy .Range("Year2001").AdvancedFilter xlFilterCopy, _ .Range("FilterCriteria"), HasilQuery.Range("A1") End With shtTable, object worksheet di wbB (invisible workbook), sedangkan HasilQuery ada di wbB---> BERHASIL juga... terimakasih banyak ''nanti kalo ada masalah jangan kapok saya tanya lagi ya...?? wassalam -zainul- --- In belajar-excel@yahoogroups.com, Hilman <hilman_email@...> wrote: > > kalo sprt itu, tentunya event app_windowactivate sdh tidak diperlukan lagi, > karena sdh tidak ada lagi yg bisa membuat windows nya dari workbook tsb bisa > active, karena taskbar icon nya juga sdh tidak kelihatan. Kecuali jika > didalam programnya ada yg memerintahkan untuk workbook tsb supaya aktif, > misalnya dengan perintah select, kayaknya... kayaknya nih ya... sy tidak > begitu yakin, kalo misalnya WbA.Workhseets("Sheet1").Range("A1").select > akan mengubah status windowstate.visible nya dari false menjadi true. Jadi di > dalam programnya sebisa mungkin untuk tidak menggunakan perintah select. > cmiiw... > > Rgds > Hilman > > > > ________________________________ > From: Zainul Ulum <zainul_ulum@...> > To: belajar-excel@yahoogroups.com > Sent: Monday, April 11, 2011 8:13 AM > Subject: Re: [belajar-excel] Set Worbook selalu Minimize > > >  > terimakasih sarannya pak Hilman, > akan saya coba property windows(wbA.Name).Visible, karena tujuannya saya > seperti yang diuraikan pak Hilman. > > kalo dengan cara di atas, apakah bisa dihilangkan event workbook > app_windowactivate? > > wassalam > -zainul- > > > > From: Hilman <hilman_email@...> > To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com> > Sent: Monday, April 11, 2011 8:03:05 > Subject: Re: [belajar-excel] Set Worbook selalu Minimize > >  > Tambahan lagi nih... > Keliatannya, tujuan dibuat workbook tsb minimize terus, agar supaya user > tidak bisa melihat isi workbook tsb, atau dengan kata lain ketika user > meng-klik workbook tsb pada windows taskbar misalnya, > workbook itu akan langsung minimize lagi. Apakah seperti itu .... Pak > Zainal??? > > Jika sprt itu, knp tidak sekalian aja workbooknya di buat invisible sesaat > setelah workbooknya dibuka... > > Set wbA = Workbooks.Open(strFileA) >     windows(wbA.Name).Visible = False > Set wbB = Workbooks.Open(strFileB) >     windows(wbB.Name).Visible = False > > > > > ________________________________ > From: Hilman <hilman_email@...> > To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com> > Sent: Sunday, April 10, 2011 11:09 PM > Subject: Re: [belajar-excel] Set Worbook selalu Minimize > > >  > > > Sebenarnya tanpa membuat class module juga bisa... caranya > > > > Private WithEvents App As Application 'Di declare di Module "ThisWorkbook" > > kemudian pada event Workbook_Open ,... > > > Private Sub Workbook_Open() >          >    Set App = Application >    > End Sub > > > setelah itu, masih pada module "ThisWorkbook", pada DropDownList Objek, > dipilih "App" dan pada DropDownList Procedure pilih "WindowActivate", maka > akan terbentuk : > > Private Sub App_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window) > > End Sub > > > Selanjutnya, tinggal di tambhkan kode: > If Wb.Name = WbA.Name Then > >        Wb.Windows(Wb.Name).WindowState = xlMinimized > End If > > > > > ________________________________ > From: zainul ulum [yahoo] <zainul_ulum@...> > To: belajar-excel@yahoogroups.com > Sent: Sunday, April 10, 2011 4:32 PM > Subject: [belajar-excel] Set Worbook selalu Minimize > > >  > Be-excel, > > Setelah cari2 di mbah google tidak ketemu caranya membuat wokbook selalu > minimize, akhirnya saya akali dengan code sbb: > "Mohon kritikannya atau atau masukan dari temen2 yang perrnah membuat code > dengan fungsi serupa" > > '===code di module1===== > Dim clsEvents As Class1 > Sub BukaWorkbookA_dan_B() > Dim wbA As Workbook, wbB As Workbook > Dim strFileA As String, strFileB As String > > 'membuka dua workbook A dan B > 'asumsi workbookA dan workbooB sudah ada > > Set wbA = Workbooks.Open(strFileA) > Set wbB = Workbooks.Open(strFileB) > > 'minimize workbookB (wbB) > Windows(wbB.Name).WindowState = xlMinimized > > 'workbook B akan selalu di buat minimized > 'dengan menggunakan procedure yang ada di clsEvents <Class1> > clsEvents.SetWbAlwaysMinimized wbB > End Sub > '=====end module1====== > > '=====code di class module Class1==== > Dim WithEvents wbAlwaysMinimized As Workbook > > Private Sub wbAlwaysMinimized_WindowActivate(ByVal Wn As Window) > Windows(wbAlwaysMinimized.Name).WindowState = xlMinimized > End Sub > > Sub SetWbAlwaysMinimized(wb As Workbook) > Set wbAlwaysMinimized = wb > End Sub > '==end class module Class1======= > > Sekali lagi mohon masukan untuk perbaikan codenya atau commentarnya. > > Wassalam > -zainul- >