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 .

@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

@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

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

@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

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

@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

@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

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

izin bertanya pak, saat saya membuat form login ini. saat saya log in, file saya tidak terbuka. solusinya pak> terimaksaih