Materi Pembelajaran Program Sederhana Login Admin Pada VBA Macro MS Excel

MODUL PEMBELAJARAN VBA MACRO LENGKAP YANG SERING DIGUNAKAN

Pada pembelajaran kali, saya akan coba membagikan informasi mengenai program pertama mengenai VBA Macro yang saya posting pada blog ini. Program VBA Macro ini berjudul "Login", bagi kalian yang pernah atau sudah menggunakan VB.Net maupun VB6, pasti sudah sering membuat program login ini. Namun pada VB6 atau VB.Net database yang digunakan ialah acces, mysql ataupun sql server. Namun pada VBA Macro ini database yang digunakan ialah pada excel, itu yang membedakannya dan hampir semua proses lain mirip atau sama pada VB6 atau VB.Net. Langsung saja kita buat programnya.

Langkah Pertama :

Buka MS.Excel anda, sudah terdapat developer pada menu bar? Apabila belum, lakukan proses berikut Cara mengaktifkan developer pada excel .. Apabila sudah muncul developernya maka buat database yang dibutuhkan pada sheet 1 pada A2 dan B2 isikan username dan password yang diinginkan seperti pada gambar berikut :

Langkah Kedua :
Selanjutnya pilih menu bar developer -> Pilih Visual Basic. Muncul tampilan seperti berikut :

Langkah ketiga :
Klik kanan pada VBAproject -> Insert -> Userform dan buat lah seperti gambar berikut :

Caranya :
Tambahkan 3 Label dan beri ubah captionnya masing-masing "Silahkan Login" untuk judul, "Username" dan "Password" untuk keterangan mengisi data username dan password.
Tambahkan 2 Text Box dan ubah Name nya masing menjadi "TxtUser" dan "TxtPswd".
Tambahkan 2 CommandButton lalu ubah captio nya masing-masing "Login" dan "Batal", serta ubah name nya pada jendela properties masing-masing "CmdLogin" dan "CmdBatal"
Setelah selesai lakukan langkah selanjutnya.

Langkah terakhir :
Masukan script nya, seperti berikut :
Private Sub CmdLogin_Click()
Set sh = Sheets(1)
If TxtUser.Value = "" Then
    MsgBox "Silahkan Masukan Username Anda", 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"
Form2.Show
End Sub
Private Sub CmdBatal_Click()
Unload Me
End Sub

Namun jangan lupa insert 1 usserform lagi dan ganti name nya dengan nama "form2", lalu jalankan maka hasilnya seperti berikut :

Sekian informasi pembelajaran yang bisa saya sampaikan mengenai pembelajara membuat program login pada VBA Macro Excel 2013. Semoga bermanfaat dan Salam Sukses !!!