как снять защиту?

поставил защиту от Shift

Option Compare Database
Option Explicit
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As DAO.Database, prp As Variant
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Debug.Print dbs.Properties("AllowBypassKey").Value
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
Public Function Zaschita()
ChangeProperty "AllowBypassKey", dbBoolean, False
End Function


как снять защиту ???? ))))
нужно внести изменения

поискать

может я чего не понимаю, но зачем снимать защиту, чтобы внести изменения?
Открывшуюся startUp-форму переключаешь в режим конструктора, на панели инструментов есть кнопка - показать окно БД. Жмешь и наслаждаешься. Если кнопки нет, включи стандартную панель.
У меня в mdb работает.

wertx

может я чего не понимаю, но зачем снимать защиту, чтобы внести изменения? Открывшуюся startUp-форму переключаешь в режим конструктора, на панели инструментов есть кнопка - показать окно БД. Жмешь и наслаждаешься. Если кнопки нет, включи стандартную панель. У меня в mdb работает.

Зачем же оставлять возможность пользователю переключать форму в режим конструктора?
Так быть не должно.

нет-нет. Конечно же, встроенные меню и mde для пользователя. Если у него нет разрешения на просмотр макета формы, то у него в локальном меню этой формы функция конструктора неативна. Как и у меня, впрочем, если речь идёт об mde. А в исходнике - mdb - всё пучком: с логином юзера конструктор недоступен, с моим - пжалста. Так что если поставил защиту от Shift и забыл предусмотреть противоядие - ничего страшного. Другое дело - если удалил исходник, mdb. Но это уже по-моему, к терапевту надо, на другой форум ;)
Хотя, канешна, всякое быват.
вот тут: http://www.sql.ru/forum/actualthread.aspx?tid=122&hl=bazyshift
грамотная защита по Сергую Гаврилову. Проверенно работает.
Для перестраховщиков можно в любой форме сделать скрытую кнопку, где по двойному щелчку запускается эта же функция bazyshift. Опять же, если кликает админ тока ;)

Private Sub Кнопка169_DblClick(Cancel As Integer)
If CurrentUser = Owner Then
BazyShift
End If
End Sub

Если уж вообще ничего не помогает, а менять надо - новая чистенькая БД. Из нее (в нее) импортировать все из запертой. Сразу снять защиту на всякий случай.

Эта тема запросто победит в хит-параде "Самый популярный топик"
уже столько об этом говорено.... Согласен с adv.

надо поместить в FAQ
а лучше ХЕЛП написать тут же отдельный
просто даже знающему народу никак не успокоиться, каждый свое выкладывает - вот и дуреют искатели от обилия вариантов, особенно такие начинающие, как я ;)