MEMBUAT BATAS LOG IN

Maaf User name atau pasword yang anda masukkan salah, silahkan coba lagi. Anda pasti pernah mengalami hal demikian saat mencoba masuk pada halaman yang disertai dengan security user name dan pasword, sehingga untuk mengakses fitur yang disediakan pada halaman tersebut anda diwajibkan untuk memasukan user name serta pasword yang sudah terdaftar. Namun jika anda sudah berkali kali memasukan user name serta pasword akan tetapi masih belum terbuka alias anda salah ketik atau memang anda lupa maka biasanya sistem akan memberikan kolom tambahan untuk mempersulit anda, karena bisa saja anda memang tidak punya hak atas halaman tersebut atau anda bukan manusia alias robot yang mencoba untuk membobol halaman tersebut, dan yang akan saya bahas kali ini bukanlah membuat form log in sebagai keamanan atau security pertama, yang akan saya bahas adalah security kedua yaitu mempersulit pengguna yang berkali kali salah saat mencoba mengakses sebuah akun

Membuat Batas Log In

Saya akan memberikan tips memunculkan batas log in sebagai fitur tambahan pada form log ini, logikanya begini setelah sepuluh (10) kali user atau pengguna mencoba masuk dengan user name dan pasword yang salah maka munculah kolom security tambahan atau muncul suatu peringatan guna memperketat security yang telah ada, biar lebih jelas silahkan :

-Seperti biasa masuk ke halaman Developer Excel anda,

-buat VBA Project

-Insert UseForm

-Kemudian isi code berikut.

Private Sub lblok_Click()

Set Scr = Sheets("Sheet1")

Set Akunq = Scr.Range("A3:A50")

If txtuser.Value = "" Then

Exit Sub

ElseIf txtpassword.Value = "" Then

Exit Sub

End If

Scr.Range("D3").Value = Scr.Range("D3").Value + 1

For Cek = 1 To WorksheetFunction.CountA(Akunq)

If Format(txtuser.Value, "@") = Format(Scr.Cells(Cek + 2, 1).Value, "@") And _

Format(txtpassword.Value, "@") = Format(Scr.Cells(Cek + 2, 2).Value, "@") Then

MsgBox "Sohib I Am Jhon berhasil log in", , "bumiseran.blogspot.com"

Unload Me

If Level = "Admin" Then

Sheets("Sheet1").Visible = xlSheetVisible

Sheets("Sheet2").Visible = xlSheetVisible

Sheets("Sheet3").Visible = xlSheetVisible

ElseIf Level = "User" Then

Sheets("Sheet1").Visible = xlSheetVeryHidden

Sheets("Sheet2").Visible = xlSheetVisible

Sheets("Sheet3").Visible = xlSheetVisible

End If

Exit Sub

End If

Next Cek

If Scr.Range("D3").Value = 3 Then

Scr.Range("D3").Value = 0

MsgBox "Ente bukan I Am Jhon, ente telah salah sebanyak 3 kali, aplikasi akan ditutup", , "bumiseran.blogspot.com"

ThisWorkbook.Save

ThisWorkbook.Close

Exit Sub

End If

MsgBox "User name atau pasword yang anda masukkan salah", , "bumiseran.blogspot.com"

End Sub

> Selesai dan saatnya anda mencobanya, coba masukan user ame dan pasword secara asal biar salah kemudian ulangi sampai 10 kali maka apa yang terjadi ??

Demikianlah cara Membuat Batas Log In berbasis microsoft excel, jika anda menemukan kesulitan silahkan tulis kendala dan kesulitan yang anda temukan pada kolom komentar dibawah ini ( anda juga bisa menyisipkan gambar pada kolom komentar sebagaimana komentar di facebook), saya juga telah mengupload file sampel Membuat Batas Log In berbasis microsoft excel di Google Drive dan bisa anda download dilink download dibawah.

Akhir akhir ini banyak sekali komplain mengenai susahnya download di www.box.com, setalah saya amati ternyata kesulitan ini bisa diatasi dengan dua cara yaitu donwload di wwww.box.com dengan menggunakan HP, dan yang kedua yaitu anda harus mempunyai akun di box.com

Untuk itu saya menggunakan Google drive sebagai penyimpanan sampel tutorial.

Wassalam Semoga bermanfaat, kata Master Guru saya, jangan lupa 5000 dulu, heheheheh.

Contoh File Silahkan Download Disni