AGUNG TUTORIAL

Belajar Bordir Wilcom dan Tajima Mesin SWF, VBA Macro Excel, Design Grafis CorelDraws, Video Editing, Download Software-software, Solusi Masalah Error Komputer, Jaringan dan Internet, Analisis Jaringan, Analisis Problem Hardware dan sebagainya

9/26/2018

FORM LOGIN PASSWORD VBA MACRO EXCEL

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

Tidak ada komentar:

Posting Komentar