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