重新启用SHIFT安全键

Public Function enablePassKey(ByVal strFileName As String) As Boolean
On Error Resume Next
    Dim acc As Object
    Set acc = CreateObject("Access.Application")
    acc.OpenCurrentDatabase strFileName
    acc.CurrentProject.Properties.Add "AllowByPassKey", True
    acc.Quit
    If Err.Number = 0 Then enablePassKey = True
End Function