Accessで、フォームを開く際などにパスワードを設定する

質問

アクセスでフォームを開く際など、パスワードを設定することは可能ですか？
やりたいことは、いくつかのフォームやレポートが存在していて、全部で１０個あったとします。その１０個のうち、８個は普通に開いたりできていいのですが、２個だけ、OPENする際にパスワードを聞いてくるようにしたいのです。

可能でしょうか？
また、可能な場合、具体的な設定方法を教えてください。

よろしくお願いします。

回答No.3

kazuhisa01

＃２です。
パスワードは一生固定にするのでしょうか？
それによっても変わってきます。
パスワード一生固定ならフォームのコード内にパスワードとテキストボックスに入力されたものを比較するIF文を作成するだけですし、パスワードを固定にしたくないのであればパスワード用のテーブルを用意して、そのテーブルにDAOで接続してSQLのSELECT文で入力されたパスワードと一致しているか判断、一致いればログイン可能とする方法もあります。
方法はいろいろあるので一度試してみてはいかがでしょう？
パスワードのフォームと言いましたが、インプットボックスを表示させてパスワードを入力させる簡単な方法もあります。

下記回答にも書きましたが、
If InputBox("パスワードを入力して下さい。", "認証") <> "password" Then
DoCmd Close
End If
の"password"のpasswordの部分を好きな文字列に変更して下さい。

お礼

回答ありがとうございました。
いろいろとやってみましたが、ダメで、急きょ、新しい質問を出させていただきました。（具体例をあげています）
そちらでアドバイスがありましたら、よろしくお願いします。

補足

QNo.2513269
で、再質問させていただきました。よろしくお願いします。

回答No.2

kazuhisa01

簡単な話ですが、レポートを１つのメニューフォームにボタンを並べて呼び出すようにして、パスワードを聞きたい2つのボタンを押されたら、パスワードフォームを開くようにするのが一番安定するかと思います。

また、メニュー画面がないのであれば以下のコードをレポートのロード時に記述して下さい。
If InputBox("パスワードを入力して下さい。", "認証") <> "password" Then
End
End If
※この場合はpasswordと入力しないと立ち上がりません。

補足

早速の回答ありがとうございます。
パスワードフォームを作成する方向で考えたいと思いますが、
パスワードフォームを作成するにはどうしたらいいのでしょうか？

フォームを作成し、テキストボックスを配置、「パスワードを入力してください」というふうに作る。
ここまでは想像つきます。
そしたら、どのように入力されたものとパスワードが一致することを判断させるのでしょうか？？？

お手数おかけして申し訳ありません。
よろしくお願いします。

回答No.1

mshr1962

開く時イベントで、パスワード入力&チェック用の別フォームを開かせて
OKなら別フォームを閉じて、NGなら強制終了とかにすればいいのでは？

もっともデザインモードが開けると簡単に解除できるので
他の人に見せる場合はMDEファイルを作成する必要がありますが．．．