User Login paling simpel - vba excel

Private Sub CommandButton1_Click()

‘deklarasi xx bernilai  123

Dim xx As String

xx = "123"

‘jika TextBox1 kosong  Perintah tidak dilaksanakan

If TextBox1.Value = "" Then Exit Sub

‘jika TextBox1  tidak sama dengan nilai  xx

‘Maka ada pesan password salah

If TextBox1.Value <> xx Then

    MsgBox "password salah", _

    vbCritical + vbOKOnly, "Terjadi kesalahan"

    TextBox1.SetFocus

    Exit Sub

    Else

End If

‘jika TextBox1 sama dengan nilai  xx maka

‘Maka ada pesan Login berhasil

MsgBox "Selamat Anda berhasil Login", _

    vbInformation + vbOKOnly, "Login berhasil!"

Unload Me

End Sub