i have disabled the use acess speci

[roamer762]

i have disabled the use acess special keys from the tools / startup options,but if i open the msacess with the shift key pressed i can still access the database window...is there a way where no one can "touch" the tables and queries.?.the mde only applies to forms and modules

 

[lblastick]

If you choose Tools, STartup, Advanced, disable 'Use Access special Keys'

Hope this helps.

 

[mkov]

Disabling the access special keys does not disable the shift key. Below is code that I use to disable the shift key. BE CAREFUL!!! Once you run this code and exit the database, you will no longer be able to enter it and modify anything. I suggest that you make a copy of the database before you run this code and keep the copy in a safe place. I hope this is what you are looking for.



Sub SetBypassProperty()
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub

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