VBA EXCEL MEMBATASI LOGIN MAKSIMAL 3 KALI

Membatasi Akses Login VBA Excel

Sahabat excel, Pada suatu hari terkadang kita membutuhkan Akses Login yang terbatas Pada Aplikasi Excel buatan kita. Nah, pastinya ini mempunyai tujuan tertentu untuk kebutuhan pada perkantoran kita.

Terkait Membatasi Akses Login, Terkadang akses login diberikan maksimal 3 kali. Jika salah input password 3 kali maka, sistem akan menutup Aplikasi, dan atau Anda disuruh menunggu selama 60 detik.

VBA Excel Membatasi Akses Login Sebanyak 3 Kali

Kode macro dibawah ini memberikan kesempatan user untuk login sebanyak 3 kali dan jika salah input password 3 kali maka, kode macro akan menutup workbook excel secara otomatis.

Adapun langkah-langkahnya sebagai berikut :

Buka excel

Tekan Alt + F11 masuk ke jendela VBA Excel

Klik 2 kali ThisWorkBook

Copy dan Paste kode macro dibawah ini

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

Save dengan extensi .xlsm atau .xlsb

Buka kembali File dan silahkan dicoba semoga berhasil

Demikian dari kami, semoga ini bisalah berguna untuk Anda semua. Dan akhirnya jika menurut Anda artikel ini berguna bagi Anda dan orang lain, silahkan share (bagikan) ke sosial media yang Anda punya dan untuk sampel filenya dapat Anda download dengan mudah disini (masih proses).

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

Jabat Erat@Hak Cipta 2015