Hello af1112 welcome to the Forum...
I use this code that ghudson supplied at the beginning of this post.
First of all create a copy of your db (Just incase..
)
Now......
Create a label on a form somewhere and make it invisible to other users
(I have mine hidden in my main Switchboard)
The idea is that by clicking on the label you can activate/de activate the code without anyone else knowing about what you are doing..
Name the label
"bDisableBypassKey" & hide it somewhere in the corner of your screen or something.
Copy & Paste the code inbetween the bold text to the onclick event of the label you have just created
Private Sub bDisableBypassKey_Click()
On Error GoTo
Err_bDisableBypassKey_Click
'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 = "
MY PASSWORD" Then 'Change password to your own
ChangeProperty "AllowBypassKey", DB_BOOLEAN, True
Beep
MsgBox "The Bypass Key has been enabled." & vbCrLf & vbLf & "The Shift key will allow the users to bypass the startup options the next time the database is opened.", vbInformation, "Set Startup Properties"
Else
Beep
ChangeProperty "AllowBypassKey", DB_BOOLEAN, False
MsgBox "Incorrect ''AllowBypassKey'' Password!" & vbCrLf & vbLf & "The Bypass Key was disabled." & vbCrLf & vbLf & "The Shift key will NOT allow the users to bypass the startup options the next time the database is opened.", vbCritical, "Invalid Password"
Exit Sub
End If
Exit_bDisableBypassKey_Click:
Exit Sub
Err_bDisableBypassKey_Click:
MsgBox "bDisableBypassKey_Click", Err.Number, Err.Description
Resume Exit_bDisableBypassKey_Click
End Sub
Now paste this code in the Double click event of the same label
Private Sub bDisableBypassKey_DblClick(Cancel As Integer)
Private Sub Disable_Click()
Option Compare Database
Option Explicit
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function
To Test
click on your label to activate the password prompt
and type in the wrong password (that will now disable the bypass key) and you will not be able to open the db by holding down the Shift button
to disable enter the correct password and you will be able to use the Shift button
Hope this helps.....
