Cara Membuat Form Login Hak Akses di Excel Dengan Koneksi Database Access

Assalamu'alaikum Wr.wb.
Informasi-beritaandre-Salam sahabat pecinta excel pada kesempatan kali ini saya akan membagikan kepada anda tutorial tentang Cara Membuat Form Login Hak Akses di Excel Dengan Koneksi Menggunakan Database Access.

Koneksi form login ini tidak hanya bisa menggunakan excel tapi bisa juga memanfaatkan yaitu Database Microsoft Accsess. biasanya Koneksi Database Access ini banyak digunakan oleh programmer yang membuat aplikasi contohnya dengan pemrograman Delphi, Java, VbNet dll.

Membuat form login di excel biasanya kebanyakan saya lihat koneksinya hanya memanfaatkan database yang terletak di excel itu sendiri. maka dari itu saya akan membuat koneksi form login excel dengan sedikit berbeda dengan yang pernah anda buat.
Baiklah silahkan anda ikuti tutorialnya dibawah ini.

Cara Membuat Form Login Hak Akses di Excel Dengan Koneksi Menggunakan Database Access.

Microsoft Access

Pertama, silahkan anda buka microsoft access terlebih dahulu dan buatlah nama databasenya contohnya disini saya buat namanya (Database) seperti yang anda lihat pada gambar berikut.

Klik pada tabel dan pilih Design View dan ganti nama tabelnya Tabel_Login

Buatlah nama Field Name nya seperti gambar di bawah ini.

Setelah itu klik pada Data Type Password dan lihat dibagian bawah Input Mask, klik titik tiga (...) dan ganti dengan password.
Save, dalam pembuatan database sudah selesai.

Microsoft Excel

Selanjutnya silahkan anda buka Microsoft Excel - Developer - Visual Basic dan Buatlah Form login seperti dibawah ini (Disainnya, silahkan sesuaikan dengan keinginan anda).
Component: 2 Textbox, 2 CommandButton.

Langkah berikutnya silahkan anda double klik tombol login silahkan masukkan script di bawah ini.

Private Sub btn_Login_Click()
If Me.TextBox1.Value = "" Then
    MsgBox "Silahkan Masukkan Username", vbCritical
    Exit Sub
End If

If Me.TextBox2.Value = "" Then
    MsgBox "Silahkan Masukkan Password", vbCritical
    Exit Sub
End If
Call User_Login(Me.TextBox1.Value, Me.TextBox2.Value)
End Sub

Selanjunya klik Textbox1 dan Textbox2 copas script berikut.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 If KeyCode = 13 Then Call btn_Login_Click
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 If KeyCode = 13 Then Call btn_Login_Click
End Sub

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then Call btn_Login_Click
End Sub

Selanjutnya silahkan anda tambahkan 1 buah Module dan copas script berikut.

'Coding Module
Option Explicit

Sub User_Login(User_Id As String, Password As String)
      
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    
    Dim qry As String
        
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Database\Database.accdb"
  
    qry = "SELECT * FROM TBL_LOGIN WHERE User_id = '" & User_Id & "'"
    rst.Open qry, cnn, adOpenKeyset, adLockOptimistic
    
    If rst.RecordCount = 0 Then
        MsgBox "Silahkan Cek User Id Anda", vbCritical
    ElseIf rst.Fields("Password").Value = Password Then
       MsgBox "Selamat Anda Berhasil Login", vbInformation
       FORMLOGIN.Hide
       UserForm2.Show
       
    Else
        MsgBox "Silahkan Cek Password Anda", vbCritical
    End If
        
    rst.Close
    cnn.Close
End Sub