MEMBUAT TOOLS (APLIKASI) LOGIN SEDERHANA (NON-ADODB) (PEMULA, BEGINNER)

huy guuuys..

ane kembali lagi akli ini..
dengan tutorial pembuatan tools sederhana lagi.. yaitu TOOLS LOGIN,
tapi kali ini tools loginnya NON-ADODB / pake metode looping saja..

berikut langkah - langkah nya.. dan tutorial video nya ada di bagian bawah tulisan ini ya guyyss..

- buka excel, dan siapkan sheet "data" dengan isi sebagai berikut..

bentuk sheet nya seperti ini.. ada "sheet1" dan "data"

- setelah membuat data seperti diatas, buka VBA Editor. dan insert FORM.. seperti ini..

- lalu tambahkan 2 label, 2 textbox dan 1 commandbutton. lalu custom nama object tersebut (tutorial penamaan object ada pada video)

- lalu tuliskan coding berikut di dalam sub "btnLogin_Click()"

 
Private Sub btnLogin_Click()
Dim rng As Range
Dim isCheck As Boolean

Set rng = Sheets("data").Range("A1")
isCheck = True

While isCheck
    DoEvents
    
    If rng.Offset(0, 1).Value = tbUsername.Text And rng.Offset(0, 2).Value = tbPassword.Text Then
        ' disini jika user dan password nya benar
        
        ' jika berhasil login.. maka unload form login
        Unload Me
        
        ' menampilkan sheet data
        Sheets("data").Visible = xlSheetVisible
        
        GoTo berhasil
        ' jadi jika toolsnya sudah menemukan user dan passwordnya
        ' maka tools akan keluar dari while dan menuju label berhasil
    End If
    
    Set rng = rng.Offset(1, 0)
    isCheck = Not IsEmpty(rng.Value)
Wend
' jika tools tidak menemukan user dan password nya
' sampai while berakhir.. maka menuju label gagal
' maaf.. seharusnya tidak usah dikasih goto


' lalu kita bikin label gagal dan berhasil
' label gagal isinya notify berupa popup
' dan jika berhasil keluar dari sub

gagal:
' jika gagal mumculkan popup notifikasi
MsgBox "Login gagal. username dan password salah.", vbCritical
' lalu kosongkan textbox password
tbPassword.Text = ""

berhasil:
' jika berhasil.. ubah isCheck menjadi false
isCheck = False

Set rng = Nothing
End Sub

- lalu tuliskan coding berikut di dalam sub "UserForm_Initialize()"

 
Private Sub UserForm_Initialize()
    Sheets("data").Visible = xlSheetVeryHidden
End Sub

- lalu tuliskan coding berikut di dalam sub "Workbook_Open()"

 
Private Sub Workbook_Open()
    Load frmLogin
    frmLogin.Show
End Sub

- lalu save project tersebut dengan format ".xlsm"

- close dan jalankan kembali file excel tersebut..

- selesai..

untuk tutorial yang lebih jelas, bisa kalian lihat di CHANNEL SAYA..
atau tonton langsung di bawah..

oke.. sekian dulu tutorial dari ane..

terimakasih, salam

#ExcelSakti #HappyCoding
#AsalTulisAje