Cara Bikin Form Login User Aplikasi Dengan UserForm VBA Excel

Gambar gif dibawah 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