CARA MEMBUAT FORM LOGIN SEBELUM MASUK KE WORKSHEETS

Cara Membuat Form Login Sebelum Masuk Ke Worksheet sebenarnya tidak sulit amat, karena ini hanya membutuhkan sedikit sentuhan kode macro excel. Nah untuk cara membuatnya sangatlah mudah berikut penjelasannya.

Baca Juga : Cara Membuat Form Login Database Excel

Langkah-langkah dalam membuat form login sebelum masuk ke workbook :

1. Buka Microsoft Excel

2. Masuk ke jendela Visual Basic For Application (VBA) dengan cara tekan ALT+F11

3. Buatlah useform dengan 1 textbox 1 label dan 2 commandbutton seperti gambar dibawah ini

4. pada tombol kembali klik dua kali dan salin kode berikut Application.visible=True

5. Kemudian klik duakali tombol masuk dan salin kode macro berikut ini

 'jika textbox kosong
If TextBox1.Value = "" Then
'maka muncul pesan
MsgBox "maaf, kolom password silakan diisi", vbCritical, "www.mtsbmtumbrasanom.id"
'dan kembali lagi ke textbox
Me.TextBox1.SetFocus
Exit Sub
End If
'===========
'untuk password
'jika password yang dimasukkan sama dengan dibawah ini yakni massyaref
If TextBox1.Value = "massyaref" Then
'maka muncul pesan dibawah ini
Pesan = MsgBox("password sesuai silahkan klik ok untuk melanjutkan dan klik no untuk menuju www.mtsbmtumbrasanom.id", vbOKCancel, "www.mtsbmtumbrasanom.id")
'untuk memilih tombol pesan
Select Case Pesan
'jika klik ok maka
Case vbOK
'worksheets dimunculkan/dipanggil
Application.Visible = True
'langsung menuju sheet1
Sheets("Sheet1").Select
'dan langsung menuju di range A1
Range("A1").Select
'Setelah itu userform disembunyikan/dihide (selain unload me anda juga bisa menggunakan Hide)
Unload Me
'jika klik tombol no
Case vbNo
'maka anda akan diarahkan ke blog www.mtsbmtumbrasanom.id
ActiveWorkbook.FollowHyperlink ("http://www.mtsbmtumbrasanom.id/2016/10/download-buku-bahasa-arab-guru-k13.html")
End Select
'else digunakan pesan kedua apabila password diatas tidak sesuai
Else
MsgBox "maaf, password yang anda masukan tidak sesuai, silakan cobalagi", vbCritical, "www.mtsbmtumbrasanom.id"
TextBox1 = ""
Me.TextBox1.SetFocus
Exit Sub
End If6. Lalu salin kode macro ini dibagian thisworkbook

Private Sub Workbook_Open()
'worksheets di sembunyikan
Application.Visible = False
'lalu muncul pesa
MsgBox "Sialahkan masukan apssword untuk masuk ke worksheets", vbOKOnly, "www.mtsbmtumbrasanom.id"
'setelah pesan diklik ok selanjutnya userform di munculkan/dipanggil
UserForm1.Show
End Sub
7. Setelah itu coba dangan cara tekan F5/Run

8. jika sudah berjalan dengan baik sekarang silahkan simpan dengan type excel macro

Apabila Anda melakukan langkah-langkah diatas dengan benar dan menaruh kode dengan benar maka kode macro akan berjalan dengan baik dan lancar, dan untuk file contoh dapat Anda unduh disini.

Artikel Terkait : Download Aplikasi Kartu Ujian Sekolah

Sekian artikel dari MTsS. Baitul Muttaqin Tumbrasanom dan apabila anda masih belum faham silahkan komentar dikolom yang sudah disediakan terimakasih selamat berjumpa kembali dengan artikel-artikel kami hanya di www.mtsbmtumbrasanom.id

Jabat Erat

Share :