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-
