密码保护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

如果您希望为用户提供多次正确获取密码的机会，您可以进行优化...或者在密码输入错误时显示消息...或者您想要的任何其他内容。