Selasa, 04 Agustus 2015

MEMBUAT FORM LOGIN PADA MC. EXCEL

ASSALAMUALIKUM WR.WB.
Selamat Siang...
Oke gans Pada Pertemuan Ini Saya ingin Membagikan Ilmu Secara Gratis(Free).
Insyaalah Saya akan Membuat Form LOGIN di Microsoft excel.

Alat yang kita butuhkan adalah :

  1.  menu developer. jikalau sudah ada di microsoft excel silahkan klik menu developer, jikalau tidak ada, langkahnya adalah klik menu file pada excel. kemudian cari menu option.dan cari menu customize ribbon dan centanglah developer. 
  2. masuk ke visual basic di menu developer 
  3. oke gan etelah itu klik kanan pada VBAproject dan pilih insert dan pilih userform
  4. pada user form kita membutahkan 3 label, 2 textbox dan 2 command button. dan susun sebagus mungkin. 
  5. setelah semua kesusun klik kana pada backgroun /userform yang berwarna pink.dan pilih view code

6. setelah keluar lembar yang berisi : private sub userform1_(click) maka hapuslah semuanya dan setelah dimasukan
7. silahkan masukan code dibawah ini.
Private Sub CommandButton1_Click()
Dim username, password As String
username = Txt1.Text
password = Txt2.Text
   
If username = "terserah kamu" And password = "terserah kamu" Then
    MsgBox "selamat datang", vbInformation
    Unload Me 'unload this form
   
Else
    MsgBox "mohon maaf Username dan Password Anda Salah, SILAHKAN COBA LAGI", vbOKOnly
   
   
End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
    'now close the workbook
    ActiveWorkbook.Close
End Sub
 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Apakah Yakin Anda Mau Keluar Dari Program Ini, Tekan Tombol KELUAR!"
  End If
End Sub
dan ini masukan pada thisworkbook : untuk memanggil userform
Private Sub Workbook_Open()
    'show the form when this workbook is open
    LOGIN.Show
End Sub 
dan pada module kita masukin kode ini : Klik Kanan Pada VBAproject dan pilih insert dan pilih module.
Sub Button1_Click()
UserForm1.Show
End Sub

8. Alhamdulilah selesai semuanya. dan tinggal kita coba. 




Tidak ada komentar:

Posting Komentar