AllowBypassKey u Access projektu
Pošto znani kod za ovu funkciju NE RADI u Access projektu prilažem ovaj koji
PROVJERENO RADI.
Public Function AddCustomConnectionProperty(strPropName As String, varPropValue As Variant) As Boolean
' Add custom properties to the AccessObjectProperties
' collection that is associated with an AccessObject object.
Const conPropNotFoundError = 3265
On Error GoTo AddProp_Err
With CurrentProject
.Properties(strPropName) = varPropValue
End With
AddCustomConnectionProperty = True
AddProp_Bye:
Exit Function
AddProp_Err:
If Err = conPropNotFoundError Or Err = 2455 Then
With CurrentProject.Properties
.Add strPropName, varPropValue
End With
Resume
Else
MsgBox Err.Description
AddCustomConnectionProperty = False
Resume AddProp_Bye
End If
End Function
I use the following routine to completly secure my databases:
Public Function SecureDatabase()
AddCustomConnectionProperty "AllowBypassKey", False
AddCustomConnectionProperty "AllowBreakIntoCode", False
AddCustomConnectionProperty "StartupShowDBWindow", False
AddCustomConnectionProperty "StartupShowStatusBar", True
AddCustomConnectionProperty "AllowBuiltinToolbars", False
AddCustomConnectionProperty "AllowShortcutMenus", False
AddCustomConnectionProperty "AllowBuiltInToolbars", False
AddCustomConnectionProperty "AllowFullMenus", False
AddCustomConnectionProperty "AllowToolbarChanges", False
AddCustomConnectionProperty "AllowSpecialKeys", False
End Function
Treba napraviti skriveno dugme sa šifrom da možemo po potrebi aktivirati Shift key
kada je to nama potrebno (da ne zalupimo vrata za sobom a ključ da ostane unutra...)
Željko
 |  |
 |
