How to disable/enable shift bypass with an administrator password prompt.

[Emmanuel]

I have a database which am able to disable the shift bypass. But unfortunately, if i need to make any changes to the database, i will have to do the changes and do a whole new installation. i will like to know if there is a way which when i press the shift button, i will be prompted with a password to enable the bypass so changes can be made on the database.
These are my shift bypass code which i placed in a module:



Function ap_DisableShift()
'This function disable the shift at startup. This action causes
'the Autoexec macro and Startup properties to always be executed.


On Error GoTo errDisableShift


Dim db As DAO.Database
Dim prop as DAO.Property
Const conPropNotFound = 3270


Set db = CurrentDb()


'This next line disables the shift key on startup.
db.Properties("AllowByPassKey") = False


'The function is successful.
Exit Function


errDisableShift:
'The first part of this error routine creates the "AllowByPassKey
'property if it does not exist.


If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, False)
db.Properties.Append prop
Resume Next
Else
MsgBox "Function 'ap_DisableShift' did not complete successfully."
Exit Function
End If


End Function


Function ap_EnableShift()
'This function enables the SHIFT key at startup. This action causes
'the Autoexec macro and the Startup properties to be bypassed
'if the user holds down the SHIFT key when the user opens the database.


On Error GoTo errEnableShift


Dim db as DAO.Database
Dim prop as DAO.Property
Const conPropNotFound = 3270


Set db = CurrentDb()


'This next line of code disables the SHIFT key on startup.
db.Properties("AllowByPassKey") = True


'function successful
Exit Function


errEnableShift:
'The first part of this error routine creates the "AllowByPassKey
'property if it does not exist.
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, True)
db.Properties.Append prop
Resume Next
Else
MsgBox "Function 'ap_DisableShift' did not complete successfully."
Exit Function
End If


End Function




Afterwards, i put ap_DisableShift in the immediate window to disable shift.

Will be glad if i could get some help with this since i have tried several options online and is not working for me.

thank you

[June7]

What have you tried? Something like https://bytes.com/topic/access/answe...ord-protection


Please post code within CODE tags to retain indentation and readability.

[Micron]

Not sure original post makes sense. If there are multiple users, then what you're re-designing is your non-production fe, right? Only you or other developers have access to it, and you redistribute a copy of it after making modifications. So why would you need to have shift bypass enabled on the db that you hold in reserve as the design master? To me, reads like you release one db for all users to share.

As for the original request, I'd say it is not possible. To have a prompt would require code to run, which is negated by the bypass - no code or macros will run.

[Emmanuel]

What have you tried? Something like https://bytes.com/topic/access/answe...ord-protection


Please post code within CODE tags to retain indentation and readability.

Have tried but it wasn’t working. Maybe I something went wrong or something. Can you break down the whole process in that link for me?

[Emmanuel]

What have you tried? Something like https://bytes.com/topic/access/answe...ord-protection


Please post code within CODE tags to retain indentation and readability.

Finally, it worked. Thanks a lot