以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  怎样对一个数据表进行加密处理呢?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=69127)
--  作者：飘落的枫叶551
--  发布时间：2015/5/31 10:48:00
--  怎样对一个数据表进行加密处理呢?
就是说此数据表的显示需要输入用户名和密码，回答最好详细一些（最好把代码也附上），贴主是菜鸟级的，谢谢了
--  作者：大红袍
--  发布时间：2015/5/31 10:54:00
--  

afteropenproject事件

 

Tables("表A").Visible = False

 

然后做一个显示的按钮，写代码

 

Dim pwd As String
If InputPassWord(pwd,"提示","请输入密码:") Then
    If pwd = "123456" Then

          Tables("表A").Visible = True

    End If


End If