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 [email protected], 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: [email protected]
> 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: "[email protected]" <[email protected]>
> 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: "[email protected]" <[email protected]>
> 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: [email protected]
> 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-
>
