В.Андреев
Дата: 19.02.2008 18:56:19
В 2003 пользовался функцией, скаченной из Форума (прилагается). Оченнь помогала от простых излишне любопытных пользователейю.
Теперь при запуске 2003-их программ в Access 2007 эта функция в полном объеме не работает.
В частности остается доступным окно базы данных (панель перехода). Посоветуйте как защититься. Как сделать недоступным панель перехода? Что делать, чтобы прежняя функция заработала в полном объеме? Заранее благодарен.
Петрова Елена
Дата: 22.04.2008 11:45:27
Здравствуйте, посоветуйте, пожалуйста, как использовать нижеприведенную функцию для защиты от шифта в 2003 аксессе, если у Вас она работала в 2003. Прочитала весь форум по этой тематике, но пока не получается. Заранее спасибо.
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
fatherboard
Дата: 22.04.2008 12:00:45
У меня эта функция BazyShift выглядит так (тоже с форума нарыто) :
Public Password As String
Function BazyShift()
On Error GoTo Change_Err
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
If Password = "12345" Then
If dbs.Properties("AllowBypassKey") = True Then
dbs.Properties("AllowBypassKey") = False
Else
dbs.Properties("AllowBypassKey") = True
End If
End If
Change_Bye:
DoCmd.Close acForm, "ВклОтклШифт"
DoCmd.Quit acPrompt
Exit Function
Change_Err:
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty("AllowBypassKey", dbBoolean, True)
dbs.Properties.Append prp
Resume Next
Else
Resume Change_Bye
End If
End Function+ еще есть макрос на нажатие ^Q и соответственно системная форма USysВклОтклШифт