Salam para Master
Tanya dong, gimana cara membuat sebuah form login yang memiliki lebih dari 1 user name.
Demikian, atas bantuannya sebelumnya saya terima kasih
Wassalam

Private Sub Workbook_Open()
frmlogin.Show
End Sub

Terima kasih gan atas tanggapan dan filenya, sesuai dengan yang saya maksud. Trus supaya Form Login nya langsung tereksekusi saat filenya dibuka gimana gan?

Trims gan atas pencerahannya, sukses selalu

Trims gan sangat membantu, sukses selalu

@Fujiansyah92 amien,...terima kasih mas

Mas form tsb kalau user sm pasword diisi salah muncul debug.ada yg kurang codenya kah?

Ikut nimbrung ah,

1. Kalo misalnya ketika Form Login sudah dimasukkan user+password dan langsung membuka Userfom lain misal Userform Data Entri (FrmDataEntri) bagaimana memanggilnya/urutannya dimana?
2. Jika multi user tersebut tidak memanggil data User dan psswd di sheet bisa ngga, maksudnya User+Psswd via VBA saja?

Thanks

@Fujiansyah92 Oh iya. Tambahkan saja code : On Error Resume Next .

file as attached ya

Sdh saya coba,masih error debug.ngletakkan code tsb dimana y?

@Fujiansyah92 hmmp...

paling atas mas . jadi gini :

Private Sub login_Click()
On Error Resume Next
Dim Usr As String, Pwd As String
Dim ws As Worksheet
Set ws = Worksheets("DB")
With Application.WorksheetFunction
Usr = .VLookup(Txtuser.Value, ws.Range("A:A"), 1, 0)
Pwd = .VLookup(Txtuser.Value, ws.Range("A:B"), 2, 0)
If .Proper(Txtuser.Value) = .Proper(Usr) And Txtpassword.Value = Pwd Then
MsgBox "Login sukses !!", vbInformation, "Selamat Datang"
Unload Me
Sheets("DB").Select
ElseIf .Proper(Txtuser.Value) = .Proper(Usr) And Not Txtpassword.Value = Pwd Then
MsgBox "Password salah,silahkan periksa kembali !!", vbInformation, "Password salah"
Txtpassword = ""
Txtpassword.SetFocus
Else
MsgBox "User Name atau Password yang Anda Masukkan salah" _
& vbNewLine & "Silahkan Coba lagi !!", vbCritical, "Warning!!"
Txtuser = ""
Txtpassword = ""

Txtuser.SetFocus
End If
End With

End Sub

file terlampir

Terimakasih mas ya.

@Aribowo Private Sub Workbook_Open()
frmlogin.Show
End Sub

Mas sy coba kalau User sama pass tidak diisi masih bisa masuk.sada yg perlu ditambahkah?

@Fujiansyah92 @Aribowo . iya soalnya memang ada yg blank di range tsb.
Tambahkan ini aja :

If Me.Txtuser = "" Then MsgBox "User can't blank", vbCritical: Me.Txtuser.SetFocus: Exit Sub
If Me.Txtpassword = "" Then MsgBox "Password can't blank", vbCritical: Me.Txtpassword.SetFocus: Exit Sub

Jadi hasilnya seperti ini :

Private Sub login_Click()
On Error Resume Next
Dim Usr As String, Pwd As String
Dim ws As Worksheet
Set ws = Worksheets("DB")
With Application.WorksheetFunction
Usr = .VLookup(Txtuser.Value, ws.Range("A:A"), 1, 0)
Pwd = .VLookup(Txtuser.Value, ws.Range("A:B"), 2, 0)

If Me.Txtuser = "" Then MsgBox "User can't blank", vbCritical: Me.Txtuser.SetFocus: Exit Sub
If Me.Txtpassword = "" Then MsgBox "Password can't blank", vbCritical: Me.Txtpassword.SetFocus: Exit Sub


If .Proper(Txtuser.Value) = .Proper(Usr) And Txtpassword.Value = Pwd Then
MsgBox "Login sukses !!", vbInformation, "Selamat Datang"
Unload Me
Sheets("DB").Select
ElseIf .Proper(Txtuser.Value) = .Proper(Usr) And Not Txtpassword.Value = Pwd Then
MsgBox "Password salah,silahkan periksa kembali !!", vbInformation, "Password salah"
Txtpassword = ""
Txtpassword.SetFocus
Else
MsgBox "User Name atau Password yang Anda Masukkan salah" _
& vbNewLine & "Silahkan Coba lagi !!", vbCritical, "Warning!!"
Txtuser = ""
Txtpassword = ""

Txtuser.SetFocus
End If
End With

End Sub

File Terlampir
semoga membantu

ok saya coba siip..thanks a lot y..

@Vei-Rid , seperti ini jadinya ( as attached )

Login(1).xlsm

Wow, iya bener banget bang master :)
Thanks banget

Mohon maaf abang2 master....
mohon izin copas.... saya masih belajar VB
kok script nya...... yg tadi diatas ngk muncul di VB screen edit yah..... cara lihat nya gimana yah
yang muncul cuma..

Private Sub Workbook_Open()
frmlogin.Show
End Sub

mohon penjelasan.....
makasih banyak