フォームにパスワードを設定したい

メニューフォームから「フォーム1」を開くときにパスワードが要求されます。 パスワードは、フォームを開くときのイベントプロシージャの中に記述されますので仮にMDEファイルにしてしまうと、第三者からは読み取られることはありません。 フォームを開くボタンのクリック時のイベントに下記のように記述してください。

Private Sub コマンド2_Click() On Error Resume Next Dim stDocName As String Dim stLinkCriteria As String Dim pass As String pass = InputBox("パスワードを入力してください") If pass <> "1234" Then MsgBox ("パスワードが違います") Exit Sub Else stDocName = "フォーム1" DoCmd.OpenForm stDocName, , , stLinkCriteria End If End Sub