[求助]如何锁定ACCESS中一些命今不能使用

zyp

请各位高手支招：

如何用程序(或修改注册表）锁定ACCESS的一些功能：如“工具”》“选项”》“视图”》“隐藏对象”，锁定其保持在未选状态下，即使新开一个ACCESS也无法将其选择（除非重新安装ACCESS），也就是让ACCESS的这项功能取消（当然，自己必须有方法解开），这样就可以将一些敏感资料表设为隐藏，阻挡大部分的偷窥者了。

请大家给点意见，谢谢！

情比金坚

那我把它导出来不行吗？

zyp

以下是引用情比金坚在2006-10-13 17:20:00的发言：
那我把它导出来不行吗？

谢谢！

表隐藏了（看不见）了还可以导出吗？

如果系统设为不显示隐藏对象，在文件》获取外部数据》导入（或链接表），都看不到目标对象的已设为隐藏的表

有办法实现吗？

fan0217

以下是引用zyp在2006-10-14 16:01:00的发言：



谢谢！

表隐藏了（看不见）了还可以导出吗？

如果系统设为不显示隐藏对象，在文件》获取外部数据》导入（或链接表），都看不到目标对象的已设为隐藏的表

有办法实现吗？

当然会有办法的，隐藏不是保护数据的好方法。

情比金坚

Application.SetOption "show hidden objects", True

用上面的代码，隐藏表就会出来，用下面的查询，所有表都会出来

SELECT MSysObjects.Name, MSysObjects.Type
FROM MSysObjects
WHERE (((MSysObjects.Type)=1)) OR (((MSysObjects.Type)=5));

andymark

的确,隐藏不是保护数据的好办法

一点通

建议敏感数据用U盘保存,拿走U盘你有什么本事都看不到了,当然也不能让人看出破绽,当U盘没有插入的时候指向另一个没有用的表,呵呵

zyp

谢谢各位的热心帮助！[em24][em24][em24][em24][em24][em24][em24][em24]

以下是引用情比金坚在2006-10-15 1:09:00的发言：

Application.SetOption "show hidden objects", True

用上面的代码，隐藏表就会出来，用下面的查询，所有表都会出来

SELECT MSysObjects.Name, MSysObjects.Type
FROM MSysObjects
WHERE (((MSysObjects.Type)=1)) OR (((MSysObjects.Type)=5));



我给用户的全是MDE文件，Shift键锁定了（可挡住一般的菜鸟），也就是说别人一般不能在我的系统中执行这些查询。

我想做的是将别人电脑中显示隐藏表和显示系统表的功能永久锁掉，即使用Application.SetOption "show hidden objects", True这个也不无法显示隐藏表和系统表（当然，自己还得有方法进去才行，否则......)。晕，看起来有点像黑客！没办法，谁让Access安全性这么差呢。

别人的电脑无法显示隐藏表和系统表，他也就无法导出系统表和我设为隐藏的表了 。

当然，没有绝对的安全，我这个只是作为安全的一种方法，再安全的数据库也会被破解，只是我们应多设一点障碍，不要让别人到手得那么轻而易举。

谢谢指点！

zyp

也就是防住ACCESS初学者（不会

Application.SetOption "show hidden objects", True的初学者），让他们在新开ACCESS也无法通过“工具”》“选项”》“视图”》“显示隐藏对象”来打开这个功能即可。