Source code cara proteksi file excel

Private Sub CmdCancel_Click() Unload Me End Sub Private Sub CmdLogin_Click() Set Sh = Sheet1 If TxtUser.Value = "" Then MsgBox "Silahkan Masukkan User Name" TxtUser.SetFocus Exit Sub ElseIf Txtpswd.Value = "" Then MsgBox "Silahkan Masukkan Password" Exit Sub ElseIf TxtUser.Value <> Sh.Range("C1").Value Then MsgBox "User Name Salah/Tidak Terdaftar" Exit Sub ElseIf Txtpswd.Value <> Sh.Range("D1").Value Then MsgBox "Password Salah, Silahkan ulangi lagi" Exit Sub End If Unload Me MsgBox "Login Anda Sukses...", vbApplication, "untuk keamanan data...,silahkan Klik gambar segitiga untuk Edit Sheet"DATA" dan Begitu Selanjutnya..untuk menjalankannya.." Sheet1.Activate Application.Visible = True End Sub

Agustus 07, 2015