VBA Excel Tekan Enter Untuk Login

Form login excel

VBA Excel Enter Untuk Login


dari channel yotube kami ada yang bertanya seputar Form Login Excel yang berbunyi seperti ini.

Pertanyaan
Suaya tombol "Masuk" bisa dieksekusi dengan menekan Enter (di samping dngan clik), gimana ya..?

sudah paham dengan pertanyaan diatas ?

yaps betul..

Jadi dia ingin login tanpa harus mengklik tombol login, dia inginnya login dengan menekan tombol Enter di keyboard.

Seperti form login facebook, twitter dan lain sebagainya, bisa mengklik tombol Login dan bisa menggunakan Enter untuk Login.

Bagaimana Cara Membuatnya Di Excel ?


Berikut adalah langkah-langkah membuat form login excel dengan menekan tombol enter.

  1. Buka excel Anda
  2. Simpan dengan nama Tekan Enter Untuk Login
  3. Pilih type Excel Binary Workbook (.xlsb)
  4. Tekan Alt+F11 untuk masuk kenjendela VBA Editor Excel
  5. Buatlah 1 buah userform, 2 buah label, 2 buah textbox dan 1 buah commandbutton (lihat gambar paling atas)
  6. Klik 2 kali userform dan masukan kode macro excel dibawah ini
    1. Private Sub Worksheet_Activate()
      If LoginFlag = False Then
          Worksheets(1).Activate
          login.Show
      End If
      End Sub
      Private Sub CommandButton1_click()
      If Me.TextBox1.Value = "Admin" Then
      If Me.TextBox2.Value = "1234" Then
              LoginFlag = True
              Unload Me
      Exit Sub: End If: End If
      MsgBox "Masukan Username & Password dengan benar !", vbExclamation
      TextBox1.SetFocus
      End Sub
      Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
      If KeyCode = vbKeyReturn Then
              If Me.TextBox1.Value = "Admin" Then
              If Me.TextBox2.Value = "1234" Then
              LoginFlag = True
              Unload Me
              Exit Sub: End If
      End If
      MsgBox "Masukan Username & Password dengan benar !", vbExclamation
      TextBox1.SetFocus
      Exit Sub: End If
      End Sub
      Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
      If KeyCode = vbKeyReturn Then
              If Me.TextBox1.Value = "Admin" Then
              If Me.TextBox2.Value = "1234" Then
              LoginFlag = True
              Unload Me
              Exit Sub: End If
      End If
      MsgBox "Masukan Username & Password dengan benar !", vbExclamation
      TextBox2.SetFocus
      Exit Sub: End If
      End Sub
  7. Selesai

Tekan F5 atau RUN untuk menjalankan program tersebut.

Kesimpulan


Sebenarnya masih banyak cara membuat membuat form login dengan menekan enter akan langsung login, salah satunya dengan cara diatas tadi.

PRIORITAS KAMI
Kami sangat memperhatikan hasil maksimal dan kepuasan bagi pengunjung sehingga selain artikel diatas, kami juga menyediakan sampel file gratis tanpa proteck dan video untuk pemahaman yang mendalam.


Apabila Anda merasa bahwa artikel ini bagus dan layak untuk dibagikan maka silahkan share ke sosial media yang Anda punya, bisa lewat Facebook, Instagram, Whatsapp, Telegram dll.

Link Artikel Ini :

https://www.mtsbmtumbrasanom.id/2020/01/vba-excel-tekan-enter-untuk-login.html

Jika Anda melakukan langkah-langkah diatas dengan benar dan penempatan kode juga benar maka, sistem akan berjalan sesuai intruksi yang Anda berikan melalui kode tersebut.

"Kami Selalu Berusaha Memberikan Yang Terbaik Dan Original Untuk Anda"

Jabat Erat@Hak Cipta 2015

Subscribe to receive free email updates:

0 Response to "VBA Excel Tekan Enter Untuk Login"