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-
