Me-Nonaktifkan Tombol Shift pada microsoft Access menggunakan VBA

Kenapa Tombol Shift (tombol ajaib) ini harus kita matikan?

Sebagai pengembang microsoft access tentu kita sudah mengetahui, bahwa interface program yang sudah kita kemas dengan penuh perjuangan, sehingga terlihat rapi layaknya menggunakan tools program visual basic. Dengan hanya menekan satu tombol ajaib saja sudah bisa membuat semua daleman program kita buat dengan microsoft access tersebut selayaknya ditelanjangi.

Tombol ajaib yang kami maksudkan disini yaitu Tombol Shift, karena tombol ini mampu membypass form screen atau form login yang sudah kita buat, sehingga form login tersebut yang seharusnya sebagai otoriasi user menjadi tidak berfungsi sama sekali. Maka dari itu tombol shift sudah selayaknya kita matikan (non-aktifkan) disaat program yang kita buat sudah kita distribusikan kepada tiap user.

Nah sekarang sudah tahu kan kenapa tombol shift ini harus kita matikan, agar disaat tombol ini ditekan ketika program kita dijalankan tidak berefek sama sekali. Sekarang sudah saatnya kita membahas bagaimana me-nonaktifkan tombol shift pada microsoft access menggunakan VBA.

Me-nonaktifkan Tombol Shift pada microsoft Access menggunakan VBA

1. Buka program microsoft access yang kita non-aktifkan shiftkeynya
2. Pilih Menu Create => Module 
3. Buat Fungsi (Function) dengan nama Block_Shift dan Simpan dengan nama Module mdl_Block_Shift, sebagaimana kode yang dibawah ini:
   
   

Function Block_Shift(bs As Boolean)
On Error GoTo SubError
    Dim prp As DAO.Property

    CurrentDb.Properties("AllowBypassKey") = bs
    
SubExit:
    Exit Function
    
SubError:
    If Err.Number = 3270 Then
        'Database property doesn't exist - create it and set it
        Set prp = CurrentDb.CreateProperty("AllowBypassKey", dbBoolean, bs)
        CurrentDb.Properties.Append prp
    Else
        MsgBox "/Form_Load error:" & Err.Number & "-" & Err.Description
    End If
    GoTo SubExit
End Function

4. Pilih menu View => Immediate Window (Ctrl + G)
5. Ketikan kode ini: ?Block_Shift(false) pada area dibawah seperti gambar ini:

Kode ini ?Block_Shift(false) untuk memanggil dan mengisi fungsi Block_Shift, dan mengisinya dengan nilai False

Bila tidak terjadi kesalahan dan sudah sesuai dengan kode yang kami berikan, maka program ms access anda, sudah siap di install pada komputer rekan dan client anda tanpa rasa khawatir di bypass menggunakan tombol ajaib yaitu tombol shift.

Untuk membuktikannya bahwa rumus diatas sudah berfungsi silahkan tutup program anda anda buka kembali dengan tetap menekan tombol shift pada keyboard komputer anda.

Untuk mengaktifkan tombol shift kembali bisa mengetikan ?Block_Shift(True) pada kotak immediate seperti pada gambar diatas.

Tweet

Subscribe to receive free email updates: