Mau coba bantu neh.. soalnya saya jg abis buat untuk tahap login.. dan akhirnya
bisa si.
Untuk setiap variabelnya bisa dengan nama yg berbeda aja.. biar lebih gampang
aja untuk menghafal saat untuk pemanggilan varibel tersebut...
Mudah"an si bener penjelasannya...
Untuk om momod dan yg lain ada di group ini, tolong diluruskan ya klo ada
kata"saya dalam menerangkan salah.. hehehe.. :)
Private Sub cmdok_Click()
LoginUser = Me.txtuser.Text
LoginPass = Me.txtpass.Text
Set wsDB = wbkDB.Worksheets("Login")
''-> wbkDB sudah dideklarasikan saat open application userform nya.
DBCek = WorksheetFunction.CountIf(wsDB.Range("B:B"), LoginUser)
If LoginUser = "" Or LoginPass = "" Then
MsgBox "Harap Masukkan Username dan Password", vbCritical, "Error"
bersih
ElseIf DBCek = 0 Then
MsgBox "Username Tidak Terdaftar", vbCritical, "Error"
bersih
Else
DBUser = WorksheetFunction.VLookup(LoginUser, wsDB.Range("B:D"), 1, False)
DBPass = WorksheetFunction.VLookup(LoginUser, wsDB.Range("B:D"), 2, False)
DBHak = WorksheetFunction.VLookup(LoginUser, wsDB.Range("B:D"), 3, False)
If LoginUser = DBUser And LoginPass = DBPass And DBHak = "Admin" Then
MsgBox "Welcome EL System", vbInformation, "Information"
MsgBox "Your Log On Administrator", vbInformation, "Information"
OpenMenu
ElseIf LoginUser = DBUser And LoginPass = DBPass And DBHak = "User" Then
MsgBox "Welcome EL System", vbInformation, "Information"
OpenMenu
Else
MsgBox "Username dan Password Salah", vbCritical, "Error"
bersih
End If
End If
End Sub
Menurut saya si msh kepanjangan cara mendeklarasikan setiap variabelnya...
--- In [email protected], ana anta <anaanta321@...> wrote:
>
> dear para master.
>
>
> saya punya satu file excel yang ingin di kasih login dengan otoritas tiap
> yang login berbeda (seperti administrator), ada yang punya otoritas penuh,
> ada yang sebagian, dan ada juga yang hanya bisa melihat saja tanpa bisa
> mengubah.
>
> mohon bantuannya para master
>
