Cara membuat Form Ganti Password dari Excel Macro menggunakan Visual Basic Application

Assalamualaikum teman-teman semuanya.

Berjumpa lagi di Niruku Entertainment's Blog. Nah sekarang kita sudah berada di Materi ke empat nih. Kali ini saya akan memberikan sebuah fitur baru lagi pada File Excel Macro yang kita buat yaitu Form Ganti Password.

Namun, bagi teman-teman yang baru berkunjung ke Niruku Entertainment's Blog, alangkah baiknya untuk mengikuti materi-materi yang sudah saya berikan sebelumnya, saya rincikan dibawah ini :

1. Cara membuat Form Login dari Excel Macro menggunakan Visual Basic Application

2. Cara membuat Form Tambah Admin dari Excel Macro menggunakan Visual Basic Application

3. Cara membuat ProgressBar dari Excel Macro menggunakan Visual Basic Application

Jika teman-teman yang baru berkunjung sudah membaca postingan yang sudah saya sebutkan diatas, saya yakin teman-teman akan gampang dan mengerti untuk mengikuti materi saya selanjutnya.

Oke langsung saja masuk ke pokok pembahasannya .

• Klik pada FormLogin, dan tambahkan sebuah Button baru dan diganti namanya menjadi BTSetting.
• Klik 2x pada BTSetting, dan isikan coding berikut:

Private Sub BTSetting_Click()

    GantiPassword.Show

End Sub

• Setelah itu, tambahkan lagi sebuah UserForm baru dan ganti namanya menjadi GantiPassword. Begitu juga dengan Properties Captionnya ganti menjadi GantiPassword. Dan design seperti ini:
  
• Setelah design selesai, klik 2x pada Background Form GantiPassword dan ubah eventnya dari Click menjadi Initialize, dan isikan coding berikut :

Private Sub UserForm_Initialize()

    txtusername.Text = ""

    txtpasslama.Text = ""

    txtpassbaru.Text = ""

    txtpassbaru.Enabled = False

    BTUpdate.Enabled = False

    txtusername.SetFocus

End Sub

• Kemudian klik 2x pada BTPeriksa dan isikan coding berikut :

Private Sub BTPeriksa_Click()

    If txtusername.Value = "" Or txtpasslama.Value = "" Then

        MsgBox "Username / Password tidak boleh kosong !", vbExclamation, "Warning"

        txtusername.SetFocus

    Else

        Dim iRow As Long

        Dim Ws As Worksheet

        Set Ws = Worksheets("Administrator")

        iRow = Ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

            If WorksheetFunction.CountIf(Ws.Range("A3", Ws.Cells(iRow - 1, 3)), Me.txtusername.Value) > 0 Then

                Nomor = Trim(Me.txtusername.Value)

                With Sheets("Administrator")

                    Baris = .Columns("A").Find(Nomor).Row

                    PasswordUser = Range("B" & Baris).Value

                End With

                If txtpasslama.Value <> PasswordUser Then

                    MsgBox "Maaf password lama yang anda masukkan tidak cocok !", vbCritical, "Error"

                         txtpasslama.Text = ""

                         txtpasslama.SetFocus

                Else 

                    MsgBox "User yang diinputkan cocok. Silahkan lakukan Ganti Password", vbInformation, "Sukses"

                    txtusername.Enabled = False

                    txtpasslama.Enabled = False

                    txtpassbaru.Enabled = True

                    BTUpdate.Enabled = True

                    txtpassbaru.SetFocus

                    BTPeriksa.Enabled = False

                End If

    Else

        MsgBox "User tidak terdaftar. Silahkan hubungi Administrator yang memiliki Privelege lebih tinggi", vbExclamation, "Warning"

        txtusername.Text = ""

        txtpasslama.Text = ""

        txtusername.SetFocus

    Exit Sub

    End If

End If

End Sub

• Setelah coding pada BTPeriksa selesai dibuat, klik 2x pada BTUpdate dan isikan coding berikut :

Private Sub BTUpdate_Click()

    If txtpassbaru.Value = "" Then

        MsgBox "Password Baru tidak boleh kosong !", vbExclamation, "Warning"

        txtpassbaru.SetFocus

    ElseIf IsNumeric(txtpassbaru.Value) Then

        MsgBox "Karakter awal Password tidak boleh berupa angka !", vbExclamation, "Warning"

        txtpassbaru.Text = ""

        txtpassbaru.SetFocus

    Else

        Nomor = Trim(Me.txtusername.Value)

        With Sheets("Administrator")

            Baris = .Columns("A").Find(Nomor).Row

            .Range("B" & Baris).Value = Me.txtpassbaru.Value

        End With

        MsgBox "Password berhasil di Update. Silahkan Login ulang", vbInformation, "Sukses"

        txtusername.Text = ""

        txtpasslama.Text = ""

        txtpassbaru.Text = ""

        Unload Me

    End If

End Sub

• Klik 2x pada BTKembali dan isikan coding berikut :

Private Sub BTKembali_Click()

    Dim A As String

    A = MsgBox("Kembali ke Form Login ?", vbQuestion + vbYesNo, "Konfirmasi")

    If A = vbYes Then

        Unload Me 

    End If

End Sub

• Jika sudah, maka silahkan Save dan Close. Setelah itu, buka kembali file Excel Macro dan coba lakukan perubahan Password.

Apabila teman-teman kurang mengerti dengan penjelasan dari postingan ini, silahkan simak video berikut :

Oke itu saja terlebih dahulu materi Microsoft Excel VBA Macro yang dapat saya berikan pada postingan ini. Terus pantengin New Post dari Niruku Entertainment's Blog dan jangan lupa Subscribe Channel Niruku Entertainment pada link di bawah ini :

www.youtube.com/NirukuEntertainment

(jangan lupa nyalakan Lonceng agar dapat mengikuti video-video terbaru saya_

Terima kasih semuanya, sampai jumpa di Materi Pembelajaran selanjutnya. Wassalamualaikum 😃