Sunday, July 3, 2016

Cara Bikin Form Login User Aplikasi Dengan UserForm VBA Excel


Gambar gif diatas Form Login untuk masuk ke Aplikasi. Hanya untuk keamanan data agar yang masuk dan menggunakan Aplikasi harus mengetahui Username dan Passwordnya. Sehingga yang tidak mengetahui Username dan Password tidak dapat menggunakan Aplikasi apa lagi untuk mengotak-atik data didalamnya.

Download File : Form Login 

File sudah saya Convert ke Exe agar yang belajar merancang sendiri, jangan malas merancang jika ingin bisa..!!

Langkah-langkah membuat Form Login Aplikasi Dengan UserForm VBA Excel :

  • Buka File Excel. Klik Developer dan pilih Visual Basic atau Tekan Alt + F11. 
  • Insert dua UserForm seperti yang terlihat pada gambar gif diatas. Pada UserForm1 tambahkan Label1 dan Label2, TextBox1 dan TextBox2, serta CommandButton1 dan CommandButton2. Selanjutnya kita akan menggantikan Caption dan Name pada Properties berikut :
Ganti Caption Label
Label1 Captionnya : "USERNAME"
Label2 Captionnya : "PASSWORD"

Ganti Name TextBox
TextBox1 Name : "TextUsername"
TextBox2 Name : "TextPassword"

Ganti Name CommandButton
CommandButton1 Name : "CmdLogin" dengan Captionnya : "MASUK"
CommandButton2 Name : "CmdBatal" dengan Captionnya : "BATAL"
  • Selanjutnya Pada CmdLogin Klik kanan View Kode dan masukkan Kode Berikut ini :
Private Sub CmdLogin_Click()
Dim UserName, Password As String
UserName = "senbakusen"
Password = "senbakusen"
If TextUsername.Value = "" Then
    MsgBox "Silahkan Masukkan Username..!!", _
    vbExclamation + vbOKOnly, "Gagal Login"
    TextUsername.SetFocus
    Exit Sub
ElseIf TextPassword.Value = "" Then
    MsgBox "Silahkan Masukkan Password", _
    vbExclamation + vbOKOnly, "Gagal Login"
    TextPassword.SetFocus
    Exit Sub
ElseIf TextUsername.Value <> UserName Then
    MsgBox "Nama User '" & TextUsername & "' tidak terdaftar", _
    vbCritical + vbOKOnly, "Terjadi kesalahan"
    TextUsername.SetFocus
    Exit Sub
ElseIf TextPassword.Value <> Password Then
    MsgBox "Kata sandi Salah, Silahkan ulangi lagi", _
    vbCritical + vbOKOnly, "Terjadi kesalahan"
    TextPassword.SetFocus
    Exit Sub
End If
MsgBox "Selamat Anda berhasil Login", _
    vbInformation + vbOKOnly, "Login User"
Me.Hide
UserForm2.Show
End Sub
  • Pada CmdBatal masukkan kode berikut ini yang berfungsi bila User tidak jadi melakukan aksi login aplikasi.
Private Sub CmdBatal_Click()
On Error Resume Next
ActiveWorkbook.FollowHyperlink "http://www.senbakusen.com"
ActiveWorkbook.Close savechanges:=True
End Sub
  • Demikan kode untuk membuat Form Login Aplikasi Vba Excel semoga dapat dikembangkan menurut kemampuan masing-masing.




4 komentar

Pak bagaimana cara mengconvert file excel ke exe...

pake software converter.. seperti LockXls

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon