密码保护 MS Access 报告文件

Posted 2023-05-06

【中文标题】密码保护 MS Access 报告文件

【英文标题】：Password Protect MS Access Report File

【发布时间】：2012-05-30 19:50:58

【问题描述】：

我正在寻找密码保护我的 MS Access 数据库中的单个报告。有没有办法在不使用代码的情况下做到这一点？如果您确实使用了代码，那么当有人单击单个报告文件时，我如何拥有它，系统会提示用户输入密码。顺便说一句，这个数据库中有多个报告...

【参考方案1】：

解决此问题的一种方法是在报告的公开活动中询问密码。这个简单的例子可以作为一个起点：

Private Sub Report_Open(Cancel As Integer)
    Const cstrPassWord As String = "open"
    Dim strPassWord As String
    strPassWord = InputBox("Password:")
    If Not strPassWord = cstrPassWord Then
        Cancel = True
    End If
End Sub

如果您想给用户多次正确输入密码的机会...或在密码输入错误时显示一条消息...或您想要的任何其他内容，您可以进行优化。

【讨论】：

我在上面的代码中在哪里指定密码？如果他们输入了错误的密码，我如何显示“您输入的密码错误”的消息？

密码被声明为常量cstrPassWord，其值为“open”。要显示您的消息，请在 If ... End If 代码块中包含 MsgBox 语句。您可以从 Access 在线帮助主题中找到有关 MsgBox 的详细信息。

不，不直接。您可以基于表格和密码保护表格构建表格......但这不是我认为您现在要求的。如果您可以使用较旧的 MDB 而不是 ACCDB db 格式，则可以使用 Jet ULS（用户级安全性）来设置表的用户/组权限。但是 ULS 可能很难正确设置，而且它提供的安全性并不强。当然，我发布的答案也不是那么强。

这很好...现在我创建了一个受密码保护的表格，只需通过表格属性隐藏表格并选择“隐藏”...我真的不需要查看表格。 ..只是表格...谢谢！