Как закрыть user`ам прямой доступ к таблицам ? Защита от SHIFT'а
Защита от SHIFT'а
От: Def 08.01.2001 17:01:42 Как закрыть user`ам прямой доступ к таблицам ? Проблема такая - user`ы используют БД. Установлены параметры запуска без "Окна базы данных". Но естестественно есть возможность открыть БД с SHIFT`ом - и попортить все таблицы как захочеться.!! Можно ли сделить так чтобы никаким образом нельзя было изменять напрямую данные из таблиц. Чтобы пользователь мог работать только с формами.
От: Виктор 08.01.2001 18:48:08 Вот функция, которая может Вкл/Откл реагирование на SHIFT:
Function BazyShift() Dim dbs As Database, prp As Property Const conPropNotFoundError = 3270 Set dbs = CurrentDb Dim TmpBool As Boolean On Error GoTo Change_Err If dbs.Properties("AllowBypassKey") = True Then If MsgBox(" Реагируем на " & Chr(13) & _ " открытый режим базы" & Chr(13) & _ " Защитить?", vbInformation + vbYesNoCancel) = _ vbYes Then dbs.Properties("AllowBypassKey") = False TmpBool = MsgBox("Нормальная работа в режиме" & _ " ЗАЩИТЫ начнется при следующем старте.", _ vbInformation) End If Else If MsgBox(" Нет реакции на " & Chr(13) & _ " Нормальное состояние базы" & Chr(13) & _ " Хотите включить реагирование?", vbExclamation + _ vbYesNoCancel) = vbYes Then dbs.Properties("AllowBypassKey") = True TmpBool = MsgBox("Вы можете просматривать и " & _ " редактировать объекты базы при следующем входе" & _ " в нее. Незабудьте потом отключить реагирование на " & _ .", vbInformation) End If End If Change_Bye:
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