Cara Membuat Form Login di Microsoft Excel
Pada beberapa waktu yang lalu sudah dibahas cara membuat UserForm pada Excel yang salah satu kegunaan dari UserForm adalah untuk membuat Form Login dan juga pada artikel sebelumnya sudah dibahas Cara Menggunakan IF Else di Excel yg bisa diterapkan pada pembuatan Form Login.
Untuk itu kali ini saya akan memberikan tutorial cara membuat Form Login di Microsoft Excel.
Berikut Langkah-langkah Pembuatan Form Login di Microsoft Excel
1Buka atau jalankan aplikasi Microsoft Excel.
2Simpan dalam format Excel Macro Enable (*.xlsm) atau Excel Binary (*.xlsb).
3Pada Sheet 1 Sel A2 dan B2 ketikkan "admin" (tanpa tanda petik).
4Tekan Alt+F11 untuk menampilkan aplikasi Microsoft Visual Basic atau bisa juga melalui Tab Developer --> Visual Basic
5Klik Kanan pada VBAProject dan pilih Insert --> UserForm pada Properties Namenya ubah menjadi FrmLogin dan pada captionnya menjadi User Login.
6Tambahkan pada UserForm komponen berikut ini:
3 buah Label (ubah captionnya menjadi Silahkan Login, User Name dan Password).
2 buah TextBox (ubah Properties Namenya menjadi TxtUser dan TxtPswd dan pada Password Char untuk TxtPswd isikan * ).
2 buah Command Button (ubah Properties Namenya menjadi CmdLogin dan CmdCancel dan ubah Captionnya menjadi Login dan Cancel.
7Kemudian susunlah Label, TextBox dan Command Button, contoh disusun seperti gambar di bawah ini:
8Selanjutkan klik kanan pada UserForm dan pilih View Code kemudian masukkan semua script berikut ini :
Private Sub CmdLogin_Click()
Set sh = Sheets(1)
If TxtUser.Value = "" Then
MsgBox "Silahkan Masukkan User Name", _
vbExclamation + vbOKOnly, "Blank User Name"
TxtUser.SetFocus
Exit Sub
ElseIf TxtPswd.Value = "" Then
MsgBox "Silahkan Masukkan Password", _
vbExclamation + vbOKOnly, "Blank Password"
TxtPswd.SetFocus
Exit Sub ElseIf
TxtUser.Value <> sh.Range("A2").Value
Then MsgBox "User Name Salah/Tidak Terdaftar", _
vbCritical + vbOKOnly, "Error User Name"
TxtUser.SetFocus
Exit Sub
ElseIf TxtPswd.Value <> sh.Range("B2").Value
Then MsgBox "Password Salah, Silahkan ulangi lagi", _
vbCritical + vbOKOnly, "Error Password"
TxtPswd.SetFocus
Exit Sub
End If MsgBox "Selamat Anda berhasil Login", _
vbInformation + vbOKOnly, "Login Sukses" Unload Me Sheets(2).Activate
End Sub
Private Sub CmdCancel_Click()
Unload Me
End Sub
9Selanjutnya tekan F5 untuk menguji UserForm. Coba pada User Name dan Password masukkan text "admin" (tanpa tanda petik") dan kemudian klik Login.
Jika semua script dan pengaturan komponennya sudah benar maka akan muncul pesan "Selamat Anda Berhasil Login".
Private Sub CmdLogin_Click()
.......
End Sub
Ketika Tombol CmdLogin di klik, maka perintah .... akan dijalankan
Set sh = Sheets(1)
If TxtUser.Value = "" Then
MsgBox "Silahkan Masukkan User Name", _
vbExclamation + vbOKOnly, "Blank User Name"
TxtUser.SetFocus
Exit Sub
ElseIf TxtPswd.Value = "" Then
MsgBox "Silahkan Masukkan Password", _
vbExclamation + vbOKOnly, "Blank Password"
TxtPswd.SetFocus
Exit Sub