ACCESSで任意のフォームのみにパスワードを設定する

質問

MS ACCESSで任意のフォームにのみパスワードを設定するという事はできますか？
フォームオープン時にパスワードの要求が出来ればいいと思いまして。
よろしくお願いします。

回答No.1

chairwarmer · ベストアンサー

単純な方法としては、フォームを開く際のイベントに
処理を記述する事ですね。

フォームのデザインで、「開く時」のイベントでイベントプロシージャを選択し

Private Sub Form_Open(Cancel As Integer)

　　If InputBox("パスワードを入力してください") <> "指定したいパスワード" Then
　　　MsgBox "パスワードが違います"
　　　Cancel = True
　　End If

End Sub

もちろんVBAのコードを見られるとバレちゃいますけど。

もっとしっかりセキュリティをかけたいのであれば色々方法はありますが
コードを見る知識がない人に対する一番簡単な鍵にはなります。

お礼

ありがとうございます。
とりあえずVBAのソースでもパスワードをかけているので、
よほどの嫌がらせ好きが会社内にいなければ大丈夫でしょう。