hai Mr. Cahyadi Martono
biasanya saya pakai listing berikut :
Private Sub Workbook_Open()
Dim sht As Worksheet
Dim bGetFirstVisibleSheet As Boolean
Dim sNameFirstVisibleSheet As String
On Error Resume Next
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.AutomationSecurity = msoAutomationSecurityLow
Application.Calculation = xlCalculationAutomatic
Application.Iteration = False
bGetFirstVisibleSheet = False
For Each sht In ActiveWorkbook.Worksheets
sht.Activate
If sht.Visible Then
ActiveWindow.Zoom = 80
If Not bGetFirstVisibleSheet Then
bGetFirstVisibleSheet = True
sNameFirstVisibleSheet = sht.Name
End If
End If
Next
'set ke sheet yang pertama kali ditemui berstatus visible=true menjadi
activesheet
Sheets(sNameFirstVisibleSheet).Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
routine di atas adalah events dari ThisWorkbook Class Object.
salam..
kid
2009/1/30 Cahyadi Martono <[email protected]>
> Dear all,
> mohon petunjuknya agar pertama kali kita buka MS. Excel settingnya bisa
> otomatis :
> 1. Setting security macro = medium/low (supaya bisa langsung jalan vb nya)
> 2. Seting calculation otomatis juga
> 3. View zoom nya 80 %.
>
> mohon masukannya.
>
> Terima kasih,
> Cahyadi M
>
>
