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_u...@yahoo.com> 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_em...@yahoo.com> 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_em...@yahoo.com> 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_u...@yahoo.com> 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-