Membuat Form Login di Ms. Excel

Pertama, buka  aplikasi Microsoft Excel lalu pada Sheet 1 Sel A2 dan B2 ketikkan  admin kemudian simpan dalam format Excel Macro Enable atau Excel Binary setelah disimpan kemudian ditutup dulu excelnya lalu silahkan buka lagi.


Kedua, tekan

untuk menampilkan aplikasi Microsoft Visual Basic atau bisa juga melalui Tab Developer  >  Visual Basic  Klik Kanan pada VBAProject dan pilih Insert  > UserForm pada Properties Namenya ubah menjadi FrmLogin dan pada captionnya menjadi User Login

Ketiga, Tambahkan pada UserForm dengan komponen sebagai berikut :

Tiga buah Label ubah captionnya menjadi Silahkan Login, User Name dan Password
Dua buah TextBox  ubah Properties Namenya menjadi TxtUser dan TxtPswd dan pada Password Char untuk TxtPswd isikan *

Keempat, tambahkan Dua buah Command Button  ubah Properties Namenya menjadi CmdLogin dan CmdCancel dan ubah Captionnya menjadi Login dan Cancel.

Kelima, aturlah 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"
End
Sheets(2).Activate
End Sub

Private Sub CmdCancel_Click()
Unload Me
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 
ThisWorkbook.Application.Quit 
End Sub

Keenam, klik 2X pada thisworkbook dan masukkan kode berikut ini :

Private Sub Workbook_Open()     
FrmLogin.Show

End Sub

Jika seluruh langkah-langkah diatas telah selesai tutup VBAnya dan simpan excelnya lalu coba untuk dibuka lagi jika berhasil maka akan muncul form loginnya.

Untuk selanjutnya silahkan sahabat infoalya.com memodifikasi sendiri agar tampilannya lebih menarik.

Semoga bermanfaat.

artikel asli ada disini