Всем добрый вечер!

Нашёл данный код, который ставит защиту от shift.

Public Function SetBypassProperty(f As Boolean)
Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, f
    ChangeProperty "AllowSpecialKeys", DB_Boolean, f
    ChangeProperty "StartUpShowDBWindow", DB_Boolean, f
End Function
 
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

Далее свойством

?SetBypassProperty(false)

оно включается/выключается. Но если полностью закрыть базу(убрать все меню и т д), то как вернуться в меню VB и снять блокировку?

http://www.sql.ru/forum/1259547/otkryt-bazu-posle-blokirovki-ot-shift