[求助]2003里禁止shift怎么做

tz-chf

2000里的写法2003里认不得。

怎么这么多难题，我还是用2000吧。

QINGSOLI

Function PreventBypass() As Boolean

    Dim prp As Variant

    On Error GoTo Err_PreventBypass

     Set prp = CurrentDb.CreateProperty("AllowBypassKey", _

          dbBoolean, False, True)

     CurrentDb.Properties.Append prp

     Set prp = Nothing

     Exit Function

Err_PreventBypass:

     Resume Next

End Function

Function UnProtect()    CurrentDb.Properties("AllowBypassKey") = TrueEnd Function

tz-chf

看看我的，好象差不多。

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 = TrueChange_Bye:

   Exit FunctionChange_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 FunctionPublic Function yesshift()

    ChangeProperty "AllowBypassKey", 1, True

End Function

Public Function noshift()

    ChangeProperty "AllowBypassKey", 1, FalseEnd Function

试过了，不是函数的问题。但是所有的函数都不能在宏里调用。