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