只对一个表设固定密码!
在【项目事件】maintablechanging 中 设置代码:
If e.NewTableName="表B" Then Dim pwd As String If InputPassWord(pwd,"提示","请输入密码:") Then If pwd<>"123" Then e.cancel=True End If End IfEnd If