主题：[求助]如何设置才能在打开表前提示输入密码，密码不对不让打开

maintablechanging事件

Select Case e.NewTableName
    Case "表C", "表B"
        Dim pwd As String
        e.cancel = True
        If InputPassWord(pwd,"提示","请输入密码:") Then
            If pwd = "123456" Then
                e.cancel = False
            End If
        End If
       
End Select

写到 maintablechanging事件

http://www.foxtable.com/webhelp/scr/1445.htm