Ситуация такая.
Access 97. Создал mde файл и с помощью кода установил защиту от Shift:
Function BazyShift()
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Dim TmpBool As Boolean
Set dbs = CurrentDb
On Error GoTo Change_Err
If dbs.Properties("AllowBypassKey") = True Then
If MsgBox(" Реагируем на <SHIFT> " & Chr(13) & " открытый режим базы" & Chr(13) & " Защитить?", vbInformation + vbYesNoCancel) = vbYes Then
dbs.Properties("AllowBypassKey") = False
TmpBool = MsgBox("Нормальная работа в режиме ЗАЩИТЫ начнется при следующем старте.", vbInformation)
End If
Else
If MsgBox(" Нет реакции на <SHIFT>" & Chr(13) & " Нормальное состояние базы" & Chr(13) & " Хотите включить?", vbExclamation + vbYesNoCancel) = vbYes Then
dbs.Properties("AllowBypassKey") = True
TmpBool = MsgBox("Вы можете просматривать и редактировать объекты базы при следующем входе в нее. Незабудьте потом отключить реагирование на <SHIFT>.", 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

Как теперь обратно сделать так чтобы заходить с Shift, мне нужны таблицы.

в модуль и оттуда запустил

Спасибо, помогло. Osmor - вы лучший

Ну что же. Уже кому-то помогло. Я рад )))))

osmor ' у привет )))
От себя скажу: без него вы не смогли бы пользовать эту тулзу ))))) -- он ее помог выложить.

Я сейчас создал уже более новую версию- позволяет открывать еще и запароленные базы )))
Но вожусь еще и с разрешениями- только-только с ними столкнулся
Пытаюсь изучать, а времени не хватает

Удачи!

))))))
правда разницу не прочухал.. )))