密码保护 MS Access 报告文件

Question

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

Answer 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

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