ZDIRY-TUFWT-EBONM-EYJ00-IDBLANTER.COM
ZDIRY-TUFWT-EBONM-EYJ00
BLANTERWISDOM105

FORM LOGIN PASSWORD VBA MACRO EXCEL

9/26/2018
Membuat form login dengan memasukan username beserta password. Dimana Username dan password tersebut akan dibandingkan dengan Tabel Data yang berisikan Username beserta passwordnya pada sheets tertentu. Hal tersebut dibutuhkan suatu fungsi FIND() atau VLOOKUP. Untuk sekedar gambaran perhatikan gambar berikut ini,


Dari illustrasi pada gambar di atas menerangkan bahwa semua Worksheets tidak ditampilkan terlebih dahulu sebelum mengisi Form Login dengan Username dan Password dengan benar. Dimana Username dan Password yang diketikkan pada kedua Textboxt tersebut ada pada Database yang telah dibuat pada Sheets Username. Jika ternyata ada selanjutnya akan diketahui bahwa username tersebut merupakan Admin atau hanya sekedar user, Apabila username tersebut TRUE adalah admin maka halaman yang ditampilkan adalah Sheets Tampilan Admin jika bukan maka halaman yang ditampilkan adalah Sheets Tampilan User.

Adapun langkah-langkah pembuatan Form Login Username Password dari data pada sheets tertentu adalah sebagai berikut,

Pertama, buat terlebih dahulu sheet Username dengan Tabel seperti di bawah ini,


Kedua, Save As file * .xlsm.
Ketiga, Buat Userform dengan cara Alt + F11 untuk menuju halaman Microsoft Visual Basic For Applications. Lalu buatlah Form seperti dibawah ini,


Keempat, Ubah Name dari properties pada kedua Textbox Username dan Password dan Tombol Masuk dan Keluar.


Kelima, buatlah fungsi perintah seperti dibawah ini,

Private Sub btnKeluar_Click() 
   Application.ActiveWorkbook.Close savechanges = True 
 End Sub 
 Private Sub btnMasuk_Click() 
   Dim Username As String 
   Dim password As String 
   Dim passWs As Worksheet 
   Dim rng As Range 
   Dim CorrectDetails As Boolean 
   Dim lrow As Integer 
   Username = txtUsername.Text 
   password = txtPassword.Text 
   If Len(Trim(Username)) = 0 Then 
     txtUsername.SetFocus 
     MsgBox "Please enter the username", vbOKOnly, "Required Data" 
     Exit Sub 
   End If 
   If Len(Trim(password)) = 0 Then 
     txtPassword.SetFocus 
     MsgBox "Please enter the password", vbOKOnly, "Incomplete Entry" 
     Exit Sub 
   End If 
   Set passWs = ThisWorkbook.Worksheets("Username") 
   'Set passWs = ThisWorkbook.Sheet1 
   With passWs 
     lrow = .Range("A" & .Rows.Count).End(xlUp).Row 
     For i = 1 To lrow 
       If UCase(Trim(.Range("B" & i + 1).Value)) = UCase(Trim(Username)) Then '<~~ Username Check 
         If .Range("C" & i + 1).Value = password Then '<~~ Password Check 
           CorrectDetails = True 
           Application.Visible = True 
           Unload UserForm1 
           If UCase(Trim(.Range("D" & i + 1).Value)) = "TRUE" Then 
             ThisWorkbook.Activate 
             Sheet2.Activate 
             Sheet2.Select 
           Else 
             ThisWorkbook.Activate 
             Sheet3.Activate 
             Sheet3.Select 
           End If 
           Exit For 
         End If 
       End If 
     Next i 
     '~~> Incorrect Username/Password 
     If CorrectDetails = False Then 
       MsgBox "Invalid Username/Password" 
     End If 
   End With 
 End Sub 
 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 
   If CloseMode <> 1 Then Cancel = True 
 End Sub

Keenam, Menonaktifkan Tampilan Sheets Tabs dengan cara File>Options>Advance. Lalu pada Diplay Options for this workbook, hilangkan cetang “Show sheet tabs”.


Ketujuh, lakukan uji coba.

Catatan: Untuk membedakan Tampilan Halaman Admin atau bukan ketikanlah tulisan yang akan dijadikan sebagai Ciri-ciri khusus tampilan Admin atau buat tabel khusus hanya bisa dilihat oleh Admin.



(Password: agungpanduan.blogspot.co.id)


Sekian dan Terima Kasih telah berkunjung ke https://www.agungpanduan.com

Semoga Bermanfaat
Share This :

0 Comments