Private Sub bDisableBypassKey_Click()
On Error GoTo Err_bDisableBypassKey_Click
    
    Dim strInput As String
    Dim strMsg As String
    
    BEEP
    strMsg = "Da li želite uklju
iti Shift Tipku za aplikaciju?" & vbCrLf & vbLf & "Molim unesite programerski password za ovu opciju."
    strInput = InputBox(Prompt:=strMsg, Title:="Uklju
i Shift passwordom ili isklju
i")
    
    If strInput = "Ovde password" Then
        SetProperties "AllowBypassKey", dbBoolean, True
        BEEP
        MsgBox "Funkcija izvršena." & vbCrLf & vbLf & "Shift Tipka je uklju
ena prilikom sljedeeg pokretanja aplikacije.", vbInformation, "Startup uklju
en"
    Else
        BEEP
        SetProperties "AllowBypassKey", dbBoolean, False
        MsgBox "Pogrešno ''Klju
'' Password!" & vbCrLf & vbLf & "Shift tipka je isklju
ena." & vbCrLf & vbLf & "Shift tipka je isklju
ena prilikom sljedeeg pokretanja aplikacije.", vbCritical, "Pogrešan password"
        Exit Sub
    End If
    
Exit_bDisableBypassKey_Click:
    Exit Sub
    
Err_bDisableBypassKey_Click:
    MsgBox "Runtime Error # " & Err.Number & vbCrLf & vbLf & Err.Description
    Resume Exit_bDisableBypassKey_Click
End Sub