Form Login Multi User

  1. 2 tahun lalu

    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

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

    klo itu mah tinggal tambahkan codenya di 'thisworkbook'

    Private Sub Workbook_Open()
    frmlogin.Show
    End Sub

    file terlampir

  2. Gimana klo seperti ini ?

    File terlampir,semoga membantu ya

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

  4. Fujiansyah92

    21 Mar 2017 Terverifikasi Jawaban Terpilih + 4.121 Poin

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

    klo itu mah tinggal tambahkan codenya di 'thisworkbook'

    Private Sub Workbook_Open()
    frmlogin.Show
    End Sub

    file terlampir

  5. Trims gan atas pencerahannya, sukses selalu

  6. Trims gan sangat membantu, sukses selalu

  7. amien,...terima kasih mas

  8. 9 bulan yang lalu

    @Fujiansyah92 amien,...terima kasih mas

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

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

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

    file as attached ya

  10. 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

  11. @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?

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

    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

  13. @Vei-Rid 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

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

  14. @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.

  15. @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?

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

    @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

  17. @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..

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

    Login(1).xlsm

    Wow, iya bener banget bang master :)
    Thanks banget

  19. 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

  20. Caton

    4 Jan 2018 Terverifikasi Indonesia + 11.522 Poin
    Di sunting 9 bulan yang lalu oleh Caton

    Coba mas @Nafis2006 perhatikan gambar berikut:

    Shoot034.png

    Pada panel Project Explorer, klik pada item frmLogin (Nomor 1) dibawah folder Forms, lalu tekan tombol F7 untuk menampilkan jendela Form/Module Code , atau klik saja ikon View Code (nomor 2). Double Click pada item frmLogin tersebut atau dengan menekan tombol SHIFT + F7 jika ingin menampilkan jendela Form Object. Demikian... ;)

  21. Newer ›
 

atau Mendaftar untuk ikut berdiskusi!