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

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

No.1 ベストアンサー 回答者： chairwarmer 回答日時： 2006/02/09 12:34

単純な方法としては、フォームを開く際のイベントに

処理を記述する事ですね。

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

Private Sub Form_Open(Cancel As Integer)

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

End Sub

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

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

この回答へのお礼

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

お礼日時：2006/02/09 13:06