Cara Membuat From Login Di Excel
Ini Screenshotnya
Berikut Langkah-langkah Pembuatan Form Login
di Microsoft Excel
1.
Buka atau
jalankan aplikasi Microsoft Excel.
2.
Simpan dalam
format Excel Macro Enable atau Excel Binary.
3.
Pada Sheet 1
Sel A2 dan B2 ketikkan "admin" (tanpa tanda petik).
4.
Tekan
Alt+F11 untuk menampilkan aplikasi Microsoft Visual Basic atau bisa juga
melalui Tab Developer --> Visual Basic
5.
Klik Kanan
pada VBAProject dan pilih Insert --> UserForm pada Properties Namenya ubah
menjadi FrmLogin dan pada captionnya menjadi User Login.
6.
Tambahkan
pada UserForm komponen berikut
- 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.
7.
Kemudian
susunlah Label, TextBox dan Command Button seperti gambar diatas.
Selanjutkan 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
Selamat Mencoba
Sumber: http://www.rumusexcel.com/2014/09/cara-membuat-form-login-di-excel.html