Kode VBA ini digunakan jika Anda menginginkan aplikasi dikunci dengan mematikan tombol Shitft pada start up, agar aplikasi Access Anda tidak mudah dan dimodifikasi oleh user lain.








Berikut potongan kode :

 On Error Resume Next
    'This ensures the user is the programmer needing to disable the Bypass Key
    Dim strInput As String
    Dim strMsg As String
    Beep
    strMsg = "Do you want to enable the Bypass Key?" & vbCrLf & vbLf & _
             "Please key the programmer's password to enable the Bypass Key."
    strInput = InputBox(Prompt:=strMsg, title:="Disable Bypass Key Password")
    If strInput = "12345" Then
        SetProperties "AllowBypassKey", dbBoolean, True
        Beep
        MsgBox "The Bypass Key has been enabled.", _
               vbInformation, "Set Startup Properties"
    Else
        Beep
        SetProperties "AllowBypassKey", dbBoolean, False
        MsgBox "Incorrect ''AllowBypassKey'' Password!", _
               vbCritical, "Invalid Password"
        Exit Sub
    End If

Buat object button, paste kode tersebut pada event On Click .

Bila Anda menyukai ini, share ke yang lain, klik disini :