Latihan Form Login Cara Membuat Form Login di

Latihan Form Login

Cara Membuat Form Login di Excel

Berikut Langkah-langkah Pembuatan Form Login di Microsoft Excel Buka atau jalankan aplikasi Microsoft Excel. Simpan dalam format Excel Macro Enable atau Excel Binary. Pada Sheet 1 Sel A 2 dan B 2 ketikkan "admin" (tanpa tanda petik). Tekan Alt+F 11 untuk menampilkan aplikasi Microsoft Visual Basic atau bisa juga melalui Tab Developer --> Visual Basic • Klik Kanan pada VBAProject dan pilih Insert --> User. Form pada Properties Namenya ubah menjadi Frm. Login dan pada captionnya menjadi User Login. • Tambahkan pada User. Form komponen berikut - 3 buah Label (ubah captionnya menjadi Silahkan Login, User Name dan Password). - 2 buah Text. Box (ubah Properties Namenya menjadi Txt. User dan Txt. Pswd dan pada Password Char untuk Txt. Pswd isikan *). - 2 buah Command Button (ubah Properties Namenya menjadi Cmd. Login dan Cmd. Cancel dan ubah Captionnya menjadi Login dan Cancel. • Kemudian susunlah Label, Text. Box dan Command Button seperti gambar diatas. • •

• Selanjutkan klik kanan pada User. Form dan pilih View Code kemudian masukkan semua script berikut ini: Private Sub Cmd. Login_Click() Set sh = Sheets(1) If Txt. User. Value = "" Then Msg. Box "Silahkan Masukkan User Name", _ vb. Exclamation + vb. OKOnly, "Blank User Name" Txt. User. Set. Focus Exit Sub Else. If Txt. Pswd. Value = "" Then Msg. Box "Silahkan Masukkan Password", _ vb. Exclamation + vb. OKOnly, "Blank Password" Txt. Pswd. Set. Focus Exit Sub Else. If Txt. User. Value <> sh. Range("A 2"). Value Then Msg. Box "User Name Salah/Tidak Terdaftar", _ vb. Critical + vb. OKOnly, "Error User Name" Txt. User. Set. Focus Exit Sub

Else. If Txt. Pswd. Value <> sh. Range("B 2"). Value Then Msg. Box "Password Salah, Silahkan ulangi lagi", _ vb. Critical + vb. OKOnly, "Error Password" Txt. Pswd. Set. Focus Exit Sub End If Msg. Box "Selamat Anda berhasil Login", _ vb. Information + vb. OKOnly, "Login Sukses" Unload Me Sheets(2). Activate End Sub Private Sub Cmd. Cancel_Click() Unload Me End Sub

Selanjutnya tekan F 5 untuk menguji User. Form. Coba pada User Name dan Password masukkan text "admin" (tanpa tanda petik") dan kemudian klik Login. Jika semua script dan pengaturan komponennya sudah benar maka akan muncul pesan "Selamat Anda Berhasil Login".