.
Klik kanan pada UserForm, pilih View Code, hapus semua baris kode
yang ada dan gantikan dengan kode berikut :
Private Sub cmdLogin_Click()
Dim strUser, strPass As String
strUser = "admin"
strPass = "admin"
If [Link] = "" Then
MsgBox "Silahkan Masukkan Nama User", _
vbExclamation + vbOKOnly, "Nama User tidak boleh kosong"
[Link]
Exit Sub
ElseIf [Link] = "" Then
MsgBox "Silahkan Masukkan Kata Sandi", _
vbExclamation + vbOKOnly, "Kata Sandi tidak boleh kosong"
[Link]
Exit Sub
ElseIf [Link] <> strUser Then
MsgBox "Nama User '" & txtUser & "' tidak terdaftar", _
vbCritical + vbOKOnly, "Terjadi kesalahan"
[Link]
Exit Sub
ElseIf [Link] <> strPass Then
MsgBox "Kata sandi Salah, Silahkan ulangi lagi", _
vbCritical + vbOKOnly, "Terjadi kesalahan"
[Link]
Exit Sub
End If
MsgBox "Selamat Anda berhasil Login", _
vbInformation + vbOKOnly, "Login berhasil!"
[Link]
Sheets(1).Range("A1").Activate
End Sub
Private Sub UserForm_Terminate()
[Link]
End Sub
Agar UserForm muncul ketika workbook dibuka, tambahkan script berikut
ke dalam kode Workbook anda (This Workbook).
Private Sub Workbook_Open()
Sheets(1).Range("A1048576").Select
[Link]
End Sub
Private Sub CmdLogin_Click()
Set sh = Sheets(1)
If [Link] = "" Then
MsgBox "Silahkan Masukkan User Name", _
vbExclamation + vbOKOnly, "Blank User Name"
[Link]
Exit Sub
ElseIf [Link] = "" Then
MsgBox "Silahkan Masukkan Password", _
vbExclamation + vbOKOnly, "Blank Password"
[Link]
Exit Sub
ElseIf [Link] <> [Link]("A2").Value Then
MsgBox "User Name Salah/Tidak Terdaftar", _
vbCritical + vbOKOnly, "Error User Name"
[Link]
Exit Sub
ElseIf [Link] <> [Link]("B2").Value Then
MsgBox "Password Salah, Silahkan ulangi lagi", _
vbCritical + vbOKOnly, "Error Password"
[Link]
Exit Sub
End If
MsgBox "Selamat Anda berhasil Login", _
vbInformation + vbOKOnly, "Login Sukses"
Unload Me
Sheets(2).Activate
End Sub
Private Sub CmdCancel_Click()
Unload Me
End Sub
Membuat password karakter
Private Sub UserForm_Initialize()
[Link] = Chr(149)
End Sub
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal
Shift As Integer, ByVal X As Single, ByVal Y As Single)
With CommandButton1
.BackColor = vbBlue
.ForeColor = vbWhite
End With
End Sub
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
[Link] = True
[Link] = False
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
With CommandButton1
.BackColor = &H8000000F
.ForeColor = RGB(0, 0, 0)
End With
[Link] = True
[Link] = False
End Sub
Membuat Tombol Simpan VBA Excel
Langkah-Langkah Membuat Tombol "SIMPAN" VBA Excel :
Buka Excel, pada "Sheet1" rename jadi "DB", Save File dengan nama "Aplikasi
Data" dan buatlah tabel seperti contoh gambar dibawah
Rancanglah Userform seperti gambar dibawah ini
Selanjut kita akan bermain di properties, ganti Caption "UserForm1" dengan
"Aplikasi Data", ganti (name) Textboxnya : TxtNoInduk, TxtNamaSiswa,
TxtAlamat. Untuk OptionButton ganti (name) dengan OptLaki dan
OptPerempuan. Untuk CommandButton ganti (name) dengan CmdSimpan dan
CmdBatal
Klik kanan pada Tombol Simpan dan View Code, masukkan kode untuk
CmdSimpan berikut :
Private Sub CmdSimpan_Click()
Dim Baris As Long
Dim Ws As Worksheet
Dim path As String
Set Ws = Worksheets("DB")
'Temukan Baris
Baris = [Link]([Link], 1).End(xlUp).Offset(1, 0).Row
'peringatan Bila data tidak diisi
If [Link] = "" Or [Link] = "" Then
MsgBox " Lengkapi Data Yang Kosong..!!!", 48, "Aplikasi Data"
Exit Sub: End If
'Peringatan bila jenis kelamin bleom di pilih
If [Link] = False And [Link] = False
Then
MsgBox "Pilih Jenis Kelamin..!!", 48, "Aplikasi Data"
Exit Sub: End If
If [Link]([Link]("B:B"), [Link]) = 1 Then
MsgBox "No. Pendaftar Ganda..!!!", 48, "Aplikasi Seleksi Siswa Baru.."
Exit Sub: End If
[Link](Baris, 1).Value = "=Row()-3"
[Link](Baris, 2).Value = [Link]
[Link](Baris, 3).Value = [Link]
If [Link] = True Then
[Link](Baris, 4).Value = "Laki-Laki"
End If
If [Link] = True Then
[Link](Baris, 4).Value = "Perempuan"
End If
[Link](Baris, 5).Value = [Link]
MsgBox "Data telah Di Tambah", 64, "Aplikasi Data"
Call CmdBatal_Click
End Sub
Untuk Tombol Reset yang berfungsi mereset form pengisian data. masukkan
kode berikut ini
Private Sub CmdBatal_Click()
With UserForm1
.[Link] = ""
.[Link] = ""
.[Link] = False
.[Link] = False
.[Link] = ""
End With
End Sub