ms-access - パスワード保護 MS アクセス レポート ファイル

Question

MS Access データベース内の 1 つのレポートをパスワードで保護しようとしています。コードを使用せずにこれを行う方法はありますか? コードを使用する場合、誰かが 1 つのレポート ファイルをクリックしたときにパスワードの入力を求めるメッセージが表示されるようにするにはどうすればよいですか。ところで、この1つのデータベースには複数のレポートがあります...

Answer 1

これにアプローチする 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

ユーザーにパスワードを正しく取得する機会を複数回与えたい場合や、パスワードが正しく入力されなかったときにメッセージを表示する場合など、必要なものを絞り込むことができます。