Sama-sama.
Oh iya, 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
Wassalam,
Kid.
2012/10/15 HaDi SyaH <[email protected]>
> **
>
>
>
> terimaksih banyak mas,.. alhamdulilah sesuai harapan.
>
> ------------------------------
>
> On Mon, Oct 15, 2012 8:27 AM PDT Mr. Kid wrote:
>
> >Waalaikumussalam Wr. Wb.
> >
> >Coba file terlampir.
> >
> >Wassalamualaikum Wr. Wb.
> >Kid.
> >
> >2012/10/15 <[email protected]>
> >
> >> Assalamualaikum...
> >> Yang terhormat para mastr exel, ada beberapa hal yang ingin sy tanyakan,
> >> dan mohon bantuannya
> >> Yang ingin sy tanyakan bagaimana kode macro untuk auto open user form,
> >> yang pada saat mengklik file woorkbook/excel langsung muncul user form
> >> tanpa menampilkan workbooknya,
> >> Atas bantuannya sebelumnya sy ucapkan terima kasih
> >> Powered by Telkomsel BlackBerry®
> >>
> >> ------------------------------------
> >>
> >> ----------------------------------------------------------
> >> bergabung ke milis (subscribe), kirim mail kosong ke:
> >> [email protected]
> >>
> >> posting ke milis, kirimkan ke:
> >> [email protected]
> >>
> >> berkunjung ke web milis
> >> http://tech.groups.yahoo.com/group/belajar-excel/messages
> >>
> >> melihat file archive / mendownload lampiran
> >> http://www.mail-archive.com/[email protected]/
> >> atau (sejak 25-Apr-2011) bisa juga di :
> >> http://milis-belajar-excel.1048464.n5.nabble.com/
> >>
> >> menghubungi moderators & owners: [email protected]
> >>
> >> keluar dari membership milis (UnSubscribe):
> >> kirim mail kosong ke [email protected]
> >> ----------------------------------------------------------Yahoo!
> >> Groups Links
> >>
> >>
> >>
> >>
>
>
>
