cara membuat LOGIN excel

PERHATIAN!!!
harap bersabar dan ikuti langkah2 berikut ya?
ada pepetah mengatakan "biar lambat asal selamat"

bahan2 yang perlu di siapkan
3 LABEL =
LABEL 1 UNTUK "SILAHKAN LOGIN"
LABEL 2 UNTUK "USERNAME"
LABEL 3 UNTUK "PASSWORD"

2 TEXTBOX
TEKSBOX 1 UNTUK ISIAN USERNAME
TEXTBOX 2 UNTUK ISIAN PASSWORD

2 COMMAND BUTTON
COMMAND BUTTON 1 UNTUK KLIK LOGIN
COMMAND BUTTON 2 UNTUK CANCEL

sampai disini sudah mengerti? kalo belum coba baca lagi sebelum anda melihat di bawah ini

----------------------------

kalo sudah mengerti LANJUTTT

SILAHKAN BENTUK FORMASI LABEL, TEXTBOX, DAN COMMAND BUTTON sesuai dengan selera anda masing2.

selanjutnya yaitu : yang paling penting terletak di TEXTBOX DAN COMMAND BUTTON, karena jika salah tidak akan bekerja

ganti
TEXTBOX1 ganti dg NAMA "TxtUser"  (nanti di pengaplikasiannya tidak usah petik)
TEXTBOX1 ganti dg NAMA "TxtPswd"  (nanti di pengaplikasiannya tidak usah petik)

COMMAND BUTTON ke1 (pilih mana saja pokok untuk klik login nantinya) ganti dg "CmdLogin"
COMMAND BUTTON ganti dg "CmdCancel"

apakah sudah mengerti sampai disini?

kl belum coba lihat lagi dari atas

------------------------------------------------

kalo sudah mengerti LANJUTT

AGAR SEMUA BEKERJA
masukkan kode berikut di "frmlogin" klik kanan view code

paste kode berikut ini :

Private Sub CmdLogin_Click()

Set sh = Sheet75

If TxtUser.Value = "" Then

    MsgBox "Silahkan Masukkan User Name", vbExclamation + vbOKOnly, "Blank User Name"

    TxtUser.SetFocus

    Exit Sub

ElseIf TxtPswd.Value = "" Then

    MsgBox "Silahkan Masukkan Password", vbExclamation + vbOKOnly, "Blank Password"

    TxtPswd.SetFocus

    Exit Sub

ElseIf TxtUser.Value <> sh.Range("A2").Value Then

    MsgBox "User Name Salah/Tidak Terdaftar", vbCritical + vbOKOnly, "Error User Name"

    TxtUser.SetFocus

    Exit Sub

ElseIf TxtPswd.Value <> sh.Range("B2").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

Sheet2.Activate

End Sub



Private Sub CmdCancel_Click()

ThisWorkbook.Close savechanges:=True

End Sub



Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub



Private Sub FrmLogin_queryclose(Cancel As Integer, CloseMode As Integer)

If CloseMode <> 1 Then Cancel = True

End Sub



Private Sub CommandButton1_Click()

End Sub



Private Sub Label6_Click()

End Sub



Private Sub TxtPswd_Change()

End Sub



Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode <> 1 Then Cancel = True

End Sub

UNTUK PERCOBAAN BEKERJA ATAU TIDAK COBA KLIK F5

------------

agar EXCEL HILANG SEMENTARA saat LOGIN
masukkan kode berikut di THISWORKBOOK (saat melihat kode F11)

Private Sub Workbook_Open()

Application.Visible = False

FrmLogin.Show

Application.Visible = True

End Sub

ingin tahu file nya?

silahkan unduh contoh file LOGIN EXCEL admin admin DISINI

Bagikan Artikel ini

c.kurniawan@ymail.com

Read More