KODE MACRO CARA MEMBUAT FORM LOGIN DENGAN SISTEM ON OFF

Kode Macro Form Login Dengan Sistem ON OFF
Anda dapat mengunduh contoh file Aplikasi Form Login Dengan Sistem ON OFF

Dalam pembuatan Aplikasi Form Login Dengan Sistem ON OFF, setidaknya Anda harus mengetahui dasar-dasar Visual Basic for Application (VBA) supaya mudah dalam memahami Uraian dibawah ini.

Uraian ini akan sangat singkat, kami harap luangkan waktu sepuluh menit untuk membaca dan memahami uraian dibawah ini sampai selesai dan silahkan praktekan langsung.

Langkah-langkah Membuat Form Login Dengan Sistem ON OFF
  • Buka Microsoft Excel
  • Tuliskan rumus formula ini di sheet1 > range a2
=IF(D3=G3;"ok";"no")
  • Tekan Alt + F11 maka Anda akan dibawa ke jendela Visual Basic for Application (VBA)
  • Pada projeck thisworkbook, silahkan klik dua kali dan salin Kode Macro dibawah ini
If Sheets("sheet1").Range("B2") = "on" Then
Application.Visible = False
UserForm2.Show
Else
Application.Visible = True
ActiveWorkbook.Save
Exit Sub
End If
  • Buatlah satu Userform, dua Optionbutton dan lima Label.
  • Ganti tulisan OptionButton1 menjadi ON
  • Ganti tulisan OptionButton2 menjadi OFF
  • Ganti tulisan Label1 menjadi Buat Kata Sandi
  • Ganti tulisan Label2 menjadi Lihat Kata Sandi
  • Ganti tulisan Label3 menjadi Hapus Kata Sandi
  • Ganti tulisan Label4 menjadi Reset Aplikasi
  • Ganti tulisan Label5 menjadi OK
  • Klik dua kali Buat Kata Sandi/Label1 dan salin Kode Macro dibawah ini
Unload Me
UserForm3.Show
  • Klik dua kali Lihat Kata Sandi/Label2 dan salin Kode Macro dibawah ini
If Sheets("sheet1").Range("G3") = "" Then
MsgBox "tidak ada kata sandi", vbExclamation + vbOKOnly, "sistem aplikasi"
Else
MsgBox "kata sandi Anda adalah : " & Sheets("Sheet1").Range("G3"), vbOKOnly, "sistem apikasi"
Exit Sub
End If
  • Klik dua kali Hapus Kata Sandi/Label3 kemudian salin Kode Macro dibawah ini
If Sheets("sheet1").Range("G3") = "" Then
pesan = MsgBox("tidak ada kata sandi yang terisimpan" & vbCrLf & "apakah Anda ingin membuat kata sandi ?", vbExclamation + vbYesNo, "sistem aplikasi")
Select Case pesan
Case vbYes
Unload Me
UserForm3.Show
Case vbNo
End Select
Else
Dim yakin As Integer
Dim data As Worksheet
Set data = Worksheets("Sheet1")
yakin = MsgBox("apakah Anda ingin menghapus kata sandi ?", vbOKCancel, "sistem aplikasi")
If yakin = 1 Then
data.Range("G3").Clear
MsgBox "kata sandi telah dihapus"
Exit Sub
End If
End If
  • Klik dua kali Reset Aplikasi/Label4 kemudian salin Kode Macro dibawah ini
Sheets("Sheet1").Range("B2")="off"
  • Klik dua kali OK/Label5 kemudian salin Kode Macro dibawah ini
If Sheets("Sheet1").Range("G3") = "" Then
MsgBox "maaf, Anda belum membuat kata sandi", vbExclamation, "sistem aplikasi"
Exit Sub
End If
'=====================
Dim kosong As Long
Sheet1.Activate
kosong = WorksheetFunction.CountA(Range("A:A")) + 1
If OptionButton2.Value = True Then
Cells(kosong, 2).Value = "on"
pesan = MsgBox("sandi diaktifkan", vbOKOnly, "sistem aplikasi")
Unload Me
ActiveWorkbook.Save
Exit Sub
End If
'=====================
If OptionButton3.Value = True Then
Cells(kosong, 2).Value = "off"
MsgBox "sandi telah dinonaktifkan", vbOKOnly, "sistem aplikasi"
Unload Me
Exit Sub
End If
  • Buatlah satu userform, satu Label, satu TextBox dan dua CommandButton
  • Ganti tulisan Label1 menjadi Masukan Kata Sandi
  • Ganti tulisan CommandButton1 menjadi Masuk
  • Ganti tulisan CommandButton2 menjadi Keluar
  • Klik dua kali Masuk/CommandButton1 kemudian salin Kode Macro dibawah ini
Set wsdatabase = Sheets("Sheet1")
Dim Barisdatabase As Long
'-----Proses Input Data Ke WorkSheets
With wsdatabase
Barisdatabase = .Cells(.Rows.Count, "A"). _
End(xlUp).Offset(0, 0).Row
'Input Data
.Cells(Barisdatabase + 1, 4).Value = TextBox1.Text
TextBox1.Text = ""
Unload Me
ActiveWorkbook.Save
End With
'=================================
If Sheets("Sheet1").Range("A2") = "ok" Then
Unload Me
Application.Visible = True
Sheets ("Sheet2").Select
Range("A1").Select
Else
pesan = MsgBox("maaf sandi salah, apakah ingin mengulang ?", vbCritical + vbYesNo, "sistem aplikasi")
Select Case pesan
Case vbYes
Application.Visible = False
UserForm2.Show
Case vbNo
Unload Me
Application.Visible = False
Application.Quit
End Select
Exit Sub
End If
  • Klik dua kali Keluar/CommandButton2 kemudian salin Kode Macro dibawah ini
Unload Me
Application.Visible = False
Application.Quit
  • Buatlah satu Userform, satu Label, satu TextBox dan dua CommandButton
  • Ganti tulisan Label1 menjadi Masukan Kata Sandi
  • Ganti tulisan CommandButton1 menjadi Terapkan
  • Ganti tulisan CommandButton2 menjadi Kembali
  • Klik dua kali Terapkan/CommandButton1 kemudian salin Kode macro dibawa ini
Set wsdatabase = Sheets("Sheet1")
Dim Barisdatabase As Long
'-----Proses Input Data Ke WorkSheets
With wsdatabase
Barisdatabase = .Cells(.Rows.Count, "A"). _
End(xlUp).Offset(0, 1).Row
'Input Data
.Cells(Barisdatabase + 1, 7).Value = TextBox1.Text
TextBox1.Text = ""
Unload Me
MsgBox "sandi telah disimpan" & vbCrLf & "kata sandi Anda adalah : " & Sheets("Sheet1").Range("G3"), vbOKOnly, "sistem aplikasi"
ActiveWorkbook.Save
End With
  • Klik dua kali Kembali/CommandButton2 dan salin Kode Macro dibawah ini
Unload Me
UserForm1.Show
  • Untuk mencoba Kode Macro, silahkan tekan F5 (RUN)
  • Apabila Anda melakukan langkah-langkah diatas dengan benar dan penempatan Kode Macro dengan benar maka, sistem Aplikasi Form Login Dengan Sistem ON OFF akan berjalan dengan baik.
  • Simpan dengan extensi .xlsm Macro
Unduh file latihan Aplikasi Form Login Dengan Sistem ON OFF ini sengaja kami berikan untuk memberikan pemahaman yang mendalam.

"Kami Selalu Berusaha Memberikan Terbaik Dan Original Untuk Anda"
Jabat Erat@Hak Cipta 2015
 Hak Cipta

Berlangganan berita via email..

0 Response to "KODE MACRO CARA MEMBUAT FORM LOGIN DENGAN SISTEM ON OFF"