Dengan form login ini, kita bisa memberi password untuk alasan keamanan ataupun yang lainnya. Dan berikut ini video tutorial yang telah kami upload di youtbe, selamat menyaksikan..
link VIDEO TUTORIAL MEMBUAT FORM LOGIN
Dan berikut ini script kode vba form login:
Script tombol masuk
Private Sub Masuk_Click()
If TextBoxLogin = "ganti password di sini" Then
Unload login
Application.Visible = True
Worksheets("tentukan nama sheet disini").Activate
Range("a1").Select
Range("a1").Activate
Else
MsgBox "Maaf passwoord yang Anda masukan salah." & vbNewLine & _
"Silahkan kunjungi www.deuniv.blogspot untuk konfirmasi password", vbCritical, "www.deuniv.blogspot.com"
With TextBoxLogin
.Value = ""
.SetFocus
End With
End If
End Sub
Berikut ini script Tombol Keluar
Private Sub Keluar_Click()
MsgBox "Terima kasih sudah menggunakan Aplikasi Cetak Kartu ", vbInformation, "www.deuniv.blogspot.com"
ThisWorkbook.Save
ThisWorkbook.Close
End Sub
Berikut ini script workbooknya
Private Sub Workbook_BeforeClose(Cancel As Boolean)Sekian, semoga bermanfaat
Sheets("Data Sekolah").Select
ThisWorkbook.Save
End Sub
Post A Comment:
0 comments: