• Membuat Jendela Login Sederhana Dengan Membatasi Jumlah Kesempatan Entry

    Jendela Login Sederhana Google Mail atau yang lebih akrab dikenal Gmail saja, merupakan sebuah layanan surat elektronik gratis dan terbesar serta memiliki banyak penggunanya, termasuk juga saya. Berebagai macam alasan kenapa banyak orang menggunakan layanan email gratis dari google ketimbang yang lainnya, dan satu alasan yang pasti adalah yang sesuai dengan slogan utama gmail "One Account, All of Google"

    Dan seperti halnya penyedia layanan email lainnya, serta seperti semua akun yang meminta otoriasasi penggunanya, sebuah ID serta Password adalah keharusan yang wajib dituliskan untuk bisa mengakses sebuah halaman tertentu. Biasanya, pengguna hanya diberikan beberapa kali kesempatan gagal ketika menuliskan ID serta Kata kuncinya sebelum bisa mengakses halaman yang dimaksud, dan setelah kesempatan tersebut sudah habis maka biasanya ada muncul jendela peringatan atau yang lainnya.

    Nah, konsep di atas akan kita coba terjemahkan ke dalam aplikasi Microsoft Excel, di mana untuk dapat membuka sebuah file excel, pengguna harus memasukkan sebuah kata kunci yang sudah ditentukan dan kita memberikan sebuah kesempatan beberapa kali kesalahan penulisan sebelum muncul perintah lainnya.

    Lihat tampilan berikut:
    Login Sederhana

    Seperti biasa, buka jendela Microsoft Visual Basic dengan menekan tombol pintas Alt + F11. Karena kita menginginkan file terproteksi dengan sebuah kata kunci dan jendela Login otomatis muncul saat file terbuka, maka kode harus di letakkan di objek ThisWorkbook
    Kode yang harus dituliskan adalah sebagai berikut :
    Private Sub Workbook_Open()
    Dim x As Integer, Password As String
    Log:
    Password = InputBox("Silahkan masukkan kata kunci Anda" & vbNewLine & _
    "(case sensitive)", "LOGIN")
    If Password <> "123" Then
    x = x + 1
    If x = 3 Then
    MsgBox "Maaf." & vbCr & _
    "Anda sudah menggunakan semua kesempatan yang disediakan" & vbCr & _
    "Dokumen untuk sementara akan ditutup"
    ThisWorkbook.Close savechanges:=False
    Else
    MsgBox "Password yang Anda masukkan salah." & vbCr & _
    "Silahkan coba lagi." & vbCr & vbCr & _
    "Kesempatan gagal tinggal " & 3 - x & "x"
    GoTo Log:
    End If
    End If
    End Sub

    Kata kunci yang digunakan dalam tutorial ini 123, ganti dengan kata kunci lain sesuai dengan selera.
    Jika ingin menambahkan jumlah kesempatan gagal saat pengisian form Login ini, ganti angka 3 yang terdapat dalam baris kode di atas. Dan ganti atau hapus perintah ThisWorkbook.Close savechanges:=False jika Anda tidak ingin menutup dokumen setelah pengguna gagal dalam menggunakan semua kesempatan ada.

    Artikel Terkait

  • Still haven't found what are you looking for

    We have provided a complete list of articles on this site to make it easier for you and giving the best solution for your excel issues

    VISIT LINK
    loading...
    DMCA.com Protection Status

    excelive.com
    is a blogger resources site who provides best excel tutorial based on daily needs. The main mission of excelive is to share our little experience in excel to deliver best time killer for your excel issues.
    T.O.S
    Term of service

    Read More
    Download Area
    to complete all excel lessons, we have provided a download link for you Find Here
    Copyright © 2016 - excelive.com. Some rights reserved.
    Menyalin sebagian atau keseluruhan materi situs hanya diperbolehkan dengan tautan balik terbuka ke sumbernya.
    equipped with by blogger