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-
