Membuat Form Login + Daftar Baru Untuk User Login

  1. 4 bulan yang lalu

    Assalamualaikum
    Saya mau tanya , bagaimana cara membuat form login . Dimana dalam form tersebut , juga terdapat tombol untuk membuat akun user yang baru .

    Terima kasih sebelaumnya .

    Sama-sama mas @Evan D. Nugraha .... Semoga kebaikan dan keberkahan yang serupa juga buat mas. Allahumma Aamiin.

  2. Caton

    Jul 25 Terverifikasi Indonesia + 12.602 Poin

    Mas Evan...

    Coba dipelajari contoh script sederhana pada file terlampir. Dalam hal ini, digunakan tombol untuk membuat (menambahkan) pengguna baru. Selain dengan trik seperti pada file terlampir, trik lainnya adalah dengan memberikan opsi kepada pengguna untuk membuat login baru apabila Nama Pengguna tidak terdaftar. Namun untuk trik kedua ini, tidak saya sertakan, agar mas Evan bisa berkreasi dan mencoba sendiri terlebih dahulu (cukup lakukan modifikasi dari script pada file terlampir)...

    Sekaligus, ini juga menjawab pertanyaan mas pada diskusi Form Login Multi User. Demikian, semoga sesuai dan semoga bermanfaat.

  3. Di sunting 4 bulan yang lalu oleh Evan D. Nugraha

    @Caton Mas Evan...

    Coba dipelajari contoh script sederhana pada file terlampir. Dalam hal ini, digunakan tombol untuk membuat (menambahkan) pengguna baru. Selain dengan trik seperti pada file terlampir, trik lainnya adalah dengan memberikan opsi kepada pengguna untuk membuat login baru apabila Nama Pengguna tidak terdaftar. Namun untuk trik kedua ini, tidak saya sertakan, agar mas Evan bisa berkreasi dan mencoba sendiri terlebih dahulu (cukup lakukan modifikasi dari script pada file terlampir)...

    Sekaligus, ini juga menjawab pertanyaan mas pada diskusi Form Login Multi User. Demikian, semoga sesuai dan semoga bermanfaat.

    Bang , bagaimana cara biar userform "DAFTAR" , data yang diinput tersimpan pada worksheet "userlogin" sehingga dapat tersebut dapat dijadikan sebagai username untuk login pada vba.
    Kalau boleh , minta WA dong bang . Hehehe

  4. Di sunting 4 bulan yang lalu oleh Evan D. Nugraha

    @Caton Mas Evan...

    Coba dipelajari contoh script sederhana pada file terlampir. Dalam hal ini, digunakan tombol untuk membuat (menambahkan) pengguna baru. Selain dengan trik seperti pada file terlampir, trik lainnya adalah dengan memberikan opsi kepada pengguna untuk membuat login baru apabila Nama Pengguna tidak terdaftar. Namun untuk trik kedua ini, tidak saya sertakan, agar mas Evan bisa berkreasi dan mencoba sendiri terlebih dahulu (cukup lakukan modifikasi dari script pada file terlampir)...

    Sekaligus, ini juga menjawab pertanyaan mas pada diskusi Form Login Multi User. Demikian, semoga sesuai dan semoga bermanfaat.

    Thanks sudah bisa bang

  5. Caton

    Jul 25 Terverifikasi Indonesia + 12.602 Poin
    Di sunting 4 bulan yang lalu oleh Caton

    @Evan D. Nugraha ...

    ... minta WA dong bang ...

    Send email to css_info[at]zoho.com

    ... Thanks sudah bisa bang ...

    Terbaik.... :D Baru juga saya mau upload contoh dari yang ditanyakan... ;)

  6. @Caton @Evan D. Nugraha ...

    Send email to css_info[at]zoho.com

    Terbaik.... :D Baru juga saya mau upload contoh dari yang ditanyakan... ;)

    Upload dong bang , pasti ada ilmu bisa saya petik dari situ .

  7. Caton

    Jul 25 Terverifikasi Indonesia + 12.602 Poin

    Mas Evan...

    Terlampir contoh hasil modifikasi dari script yang saya berikan di awal. Mungkin sama dengan hasil modifikasi (solusi) yang mas susun. Btw, sekedar saran saja, ada baiknya jika pengguna membatalkan login (melalui tombol CANCEL), Workbook-nya sekalian ditutup saja. Demikian juga saat pengguna KELUAR dari form PENCARIAN DATA. Dengan demikian, aplikasi Excel-nya tertutup sempurna. Jika tidak demikian, aplikasi Excel tetap akan aktif tanpa terlihat, artinya perlu Task Manager untuk menutupnya...

  8. Di sunting 4 bulan yang lalu oleh Evan D. Nugraha

    @Caton Mas Evan...

    Terlampir contoh hasil modifikasi dari script yang saya berikan di awal. Mungkin sama dengan hasil modifikasi (solusi) yang mas susun. Btw, sekedar saran saja, ada baiknya jika pengguna membatalkan login (melalui tombol CANCEL), Workbook-nya sekalian ditutup saja. Demikian juga saat pengguna KELUAR dari form PENCARIAN DATA. Dengan demikian, aplikasi Excel-nya tertutup sempurna. Jika tidak demikian, aplikasi Excel tetap akan aktif tanpa terlihat, artinya perlu Task Manager untuk menutupnya...

    Terima kasih banyak mas dan Terima kasih banyak juga atas sarannya . Sangat sangat sangat membantu . Semoga sehat selalu mas . Aamiin

  9. @Caton Mas Evan...

    Terlampir contoh hasil modifikasi dari script yang saya berikan di awal. Mungkin sama dengan hasil modifikasi (solusi) yang mas susun. Btw, sekedar saran saja, ada baiknya jika pengguna membatalkan login (melalui tombol CANCEL), Workbook-nya sekalian ditutup saja. Demikian juga saat pengguna KELUAR dari form PENCARIAN DATA. Dengan demikian, aplikasi Excel-nya tertutup sempurna. Jika tidak demikian, aplikasi Excel tetap akan aktif tanpa terlihat, artinya perlu Task Manager untuk menutupnya...

    Mas, gimana cara biar data user & pass yang sudah terdaftar tetap terdaftar ?

  10. Caton

    Jul 25 Terverifikasi Indonesia + 12.602 Poin
    Di sunting 4 bulan yang lalu oleh Caton

    @Evan D. Nugraha ...

    Modifikasi prosedur TombolDaftar_Click menjadi:

    Private Sub TombolDaftar_Click()
        If Len(Me.TextDaftarUsername) > 3 And Len(Me.TextDaftarUsername) > 3 Then
            Dim sName As String, sPass As String, sReal As String
            Dim lRow As Long
            Dim xResult
            
            sName = Trim$(LCase(Me.TextDaftarUsername))
            sPass = Me.TextDaftarPassword
            lRow = Sheet1.[A1000].End(xlUp).Row + 1
            Sheet1.Cells(lRow, 1) = sName
            Sheet1.Cells(lRow, 2) = sPass
            MsgBox "Anda sudah terdaftar. Silahkan login kembali!", vbOKOnly Or vbInformation, "Sukses"
            Unload Me
        End If
    End Sub

    Tapi kenapa pengguna yang sudah terdaftar bisa mendaftar kembali. Khan bisa terjadi duplikat data penggunanya?

  11. @Caton @Evan D. Nugraha ...

    Modifikasi

    Private Sub TombolDaftar_Click() '+-- Edit by Caton If Len(Me.TextDaftarUsername) > 3 And Len(Me.TextDaftarUsername) > 3 Then Dim sName As String, sPass As String, sReal As String Dim lRow As Long Dim xResult sName = Trim$(LCase(Me.TextDaftarUsername)) xResult = Application.Match(sName, Sheet1.[A2:A1000], 0) If IsError(xResult) Then sPass = Me.TextDaftarPassword lRow = Sheet1.[A1000].End(xlUp).Row + 1 Sheet1.Cells(lRow, 1) = sName Sheet1.Cells(lRow, 2) = sPass MsgBox "Anda sudah terdaftar. Silahkan login kembali!", vbOKOnly Or vbInformation, "Sukses" Unload Me Else MsgBox "UserName sudah terdaftar! Gunakan UserName lain!", vbOKOnly Or vbExclamation, "Gagal" End If End If End Sub

    Mas, ada gak kode yang lain ? Saya hanya mengulang-ulang kode agar dapat beroperasi .

    Private Sub CmdLogin_Click()
    Set sh = Sheets("userlogin")
    If TxtUser.Text = "" Then
        MsgBox "Silahkan Masukkan User Name", vbExclamation + vbOKOnly, "Blank User Name"
        TxtUser.SetFocus
        Exit Sub
    ElseIf TxtPswd.Text = "" Then
        MsgBox "Silahkan Masukkan Password", vbExclamation + vbOKOnly, "Blank Password"
        TxtPswd.SetFocus
        Exit Sub
    ElseIf TxtUser.Text <> sh.Range("A2").Value And TxtUser.Text <> sh.Range("A3").Value And TxtUser.Text <> sh.Range("A4").Value And TxtUser.Text <> sh.Range("A5").Value And TxtUser.Text <> sh.Range("A6").Value And TxtUser.Text <> sh.Range("A7").Value And TxtUser.Text <> sh.Range("A8").Value And TxtUser.Text <> sh.Range("A9").Value And TxtUser.Text <> sh.Range("A10").Value Then
        MsgBox "User Name Salah/Tidak Terdaftar", vbCritical + vbOKOnly, "Error User Name"
        TxtUser.SetFocus
        Exit Sub
    ElseIf TxtPswd.Text <> sh.Range("B2").Value And TxtPswd.Text <> sh.Range("B3").Value And TxtPswd.Text <> sh.Range("B4").Value And TxtPswd.Text <> sh.Range("B5").Value And TxtPswd.Text <> sh.Range("B6").Value And TxtPswd.Text <> sh.Range("B7").Value And TxtPswd.Text <> sh.Range("B8").Value And TxtPswd.Text <> sh.Range("B9").Value And TxtPswd.Text <> sh.Range("B10").Value Then
        MsgBox "Password Salah, Silahkan ulangi lagi", vbCritical + vbOKOnly, "Error Password"
        TxtPswd.SetFocus
        Exit Sub
    End If
    MsgBox "Selamat Anda berhasil Login", vbInformation + vbOKOnly, "Login Sukses"
    Unload Me
    FormPencarian.CmdLogin.Value = Me.CmdLogin.Value
    Unload Me
    FormPencarian.Show
    End Sub

  12. Caton

    Jul 25 Terverifikasi Indonesia + 12.602 Poin
    Di sunting 4 bulan yang lalu oleh Caton

    Mas @Evan D. Nugraha ...

    Mengapa tidak mencoba memodifikasi script yang sudah saya berikan pada file yang saya lampirkan di atas... :) Btw, dengan script yang mas gunakan, kalau penggunanya bertambah, otomatis scriptnya juga harus ditambah secara manual dong (ELSEIF pun bertambah banyak) ...

    Coba modifikasi prosedur cmdLogin_Click pada form DATALOGIN menjadi sebagai berikut:

    Private Sub cmdLogin_Click()    
        If Len(TxtUser) And Len(TxtPswd) Then
            Dim sName As String, sPass As String
            Dim sh As Worksheet
            Dim xResult
        
            Set sh = Sheets("userlogin")
            
            sName = Trim$(LCase(TxtUser))
            xResult = Application.Match(sName, sh.[A2:A1000], 0)
            If Not IsError(xResult) Then
                sPass = Application.Index(sh.[B2:B1000], xResult)
                If sPass = TxtPswd Then
                    MsgBox "Anda berhasil login sebagai " & sName, _
                        vbOKOnly Or vbInformation, "Sukses"
                    FormPencarian.Show
                    Exit Sub
                Else
                    MsgBox "Login Anda ditolak! Periksa kembali kunci pengguna Anda!", _
                        vbOKOnly Or vbCritical, "Gagal"
                End If
            Else
                MsgBox "Login Anda ditolak! Periksa kembali nama pengguna Anda!", _
                    vbOKOnly Or vbCritical, "Gagal"
            End If
        Else
            MsgBox "Login Anda ditolak! Isi nama pengguna dan atau kata kunci Anda dahulu!", _
                vbOKOnly Or vbCritical, "Gagal"
        End If
    End Sub

    Demikian, semoga sesuai...

  13. @Caton Mas @Evan D. Nugraha ...

    Mengapa tidak mencoba memodifikasi script yang sudah berikan pada file yang saya lampirkan di atas... :) Btw, dengan sceipt yang mas gunakan, kalau penggunanya bertambah, otomatis scriptnya juga harus ditambah secara manual dong (ELSEIF pun bertambah banyak) ...

    Coba modifikasi prosedur cmdLogin_Click pada form DATALOGIN menjadi sebagai berikut:

    Private Sub cmdLogin_Click()    
        If Len(TxtUser) And Len(TxtPswd) Then
            Dim sName As String, sPass As String
            Dim sh As Worksheet
            Dim xResult
        
            Set sh = Sheets("userlogin")
            
            sName = Trim$(LCase(TxtUser))
            xResult = Application.Match(sName, sh.[A2:A1000], 0)
            If Not IsError(xResult) Then
                sPass = Application.Index(sh.[B2:B1000], xResult)
                If sPass = TxtPswd Then
                    MsgBox "Anda berhasil login sebagai " & sName, _
                        vbOKOnly Or vbInformation, "Sukses"
                    FormPencarian.Show
                    Exit Sub
                Else
                    MsgBox "Login Anda ditolak! Periksa kembali kunci pengguna Anda!", _
                        vbOKOnly Or vbCritical, "Gagal"
                End If
            Else
                MsgBox "Login Anda ditolak! Periksa kembali nama pengguna Anda!", _
                    vbOKOnly Or vbCritical, "Gagal"
            End If
        Else
            MsgBox "Login Anda ditolak! Isi nama pengguna dan atau kata kunci Anda dahulu!", _
                vbOKOnly Or vbCritical, "Gagal"
        End If
    End Sub

    Demikian, semoga sesuai...

    Alhamdulillah sangat membantu mas . Sekali lagi terima kasih sudah membantu mas . Semoga panjang umur mas . Aamiin

  14. Caton

    Jul 25 Terverifikasi Jawaban Terpilih Indonesia + 12.602 Poin
    Di sunting 4 bulan yang lalu oleh Caton

    Sama-sama mas @Evan D. Nugraha .... Semoga kebaikan dan keberkahan yang serupa juga buat mas. Allahumma Aamiin.

  15. @Caton Mas @Evan D. Nugraha ...

    Mengapa tidak mencoba memodifikasi script yang sudah saya berikan pada file yang saya lampirkan di atas... :) Btw, dengan script yang mas gunakan, kalau penggunanya bertambah, otomatis scriptnya juga harus ditambah secara manual dong (ELSEIF pun bertambah banyak) ...

    Coba modifikasi prosedur cmdLogin_Click pada form DATALOGIN menjadi sebagai berikut:

    Private Sub cmdLogin_Click()    
        If Len(TxtUser) And Len(TxtPswd) Then
            Dim sName As String, sPass As String
            Dim sh As Worksheet
            Dim xResult
        
            Set sh = Sheets("userlogin")
            
            sName = Trim$(LCase(TxtUser))
            xResult = Application.Match(sName, sh.[A2:A1000], 0)
            If Not IsError(xResult) Then
                sPass = Application.Index(sh.[B2:B1000], xResult)
                If sPass = TxtPswd Then
                    MsgBox "Anda berhasil login sebagai " & sName, _
                        vbOKOnly Or vbInformation, "Sukses"
                    FormPencarian.Show
                    Exit Sub
                Else
                    MsgBox "Login Anda ditolak! Periksa kembali kunci pengguna Anda!", _
                        vbOKOnly Or vbCritical, "Gagal"
                End If
            Else
                MsgBox "Login Anda ditolak! Periksa kembali nama pengguna Anda!", _
                    vbOKOnly Or vbCritical, "Gagal"
            End If
        Else
            MsgBox "Login Anda ditolak! Isi nama pengguna dan atau kata kunci Anda dahulu!", _
                vbOKOnly Or vbCritical, "Gagal"
        End If
    End Sub

    Demikian, semoga sesuai...

    Script diatas , sudah saya ganti dengan CmdLogin . Namun hasilnya seperti pada gambar.
    Mas, saya sudah coba beberapa kali tidak berhasil . Ubah sana sini , tidak berhasil juga .
    Kalau boleh tau kesalahannya dimana ?

  16. Caton

    Jul 25 Terverifikasi Indonesia + 12.602 Poin
    Di sunting 4 bulan yang lalu oleh Caton

    Mas Evan bisa jelaskan tidak berhasil dimana dan bagaimana? Dari gambar berikut:

    -image-

    saya tidak meilhat adanya kesalahan... (^_^)/

    Saran saya, sampaikan dengan detil apa yang ditargetkan, dan jika memungkinkan lampirkan file yang sedang dikerjakan. Karena jika hanya melihat gambar di atas, saya tidak dapat menangkap maksud tidak berhasil itu dimana. Atau, supaya gak bingung, coba file terlampir...

 

atau Mendaftar untuk ikut berdiskusi!