MEMBUAT AUTO OPEN USERFORM VBA EXCEL

Pertanyaannya adalah, Bagaimana kode macro untuk auto open user form, yang pada saat mengklik file woorkbook/excel langsung muncul user form tanpa menampilkan workbooknya,

 Langsung aja yah,maskan code dibawah ini
script yang digunakan adalah prosedur-prosedur event dan sebuah
deklarasi variabel ber-scope private. (lihat di VBE)

1. ThisWorkbook (event workbook open)
Private Sub Workbook_Open()
    Application.Visible = False
    UserForm1.Show
End Sub

2. UserForm1 :
>> Deklarasi variabel state tombol yang menutup userform
Private lState As Long

>> Event Initialize (saat userform di-load)
Private Sub UserForm_Initialize()
    With Application
        .ScreenUpdating = False
        .DisplayFullScreen = True
        Me.Height = .Height
        Me.Width = .Width
        .ScreenUpdating = True
    End With
End Sub

>> Event Terminate (saat userform di-unload)
Private Sub UserForm_Terminate()
    With Application
        .ScreenUpdating = False
        .WindowState = xlNormal
        .WindowState = xlMaximized
        .ScreenUpdating = True
        ThisWorkbook.Save
        .Visible = True
        If lState = -1 Then
            ThisWorkbook.Close False
        End If
    End With
End Sub

>> Event Click tombol 'Ke Workbook' [cmdToWbk] (untuk menutup userform dan
menampilkan workbook)
Private Sub cmdToWbk_Click()
    lState = 0
    Unload Me
End Sub

>> Event Click tombol 'Tutup' [cmdQuit] (untuk menutup userform kemudian
save dan menutup workbook)
Private Sub cmdQuit_Click()
    lState = -1
    Unload Me
End Sub

Download Contoh File di link ini :
http://milis-belajar-excel.1048464.n5.nabble.com/attachment/5712570/0/vba_userform_on_open.xlsm