【Access】初心者からVBAまでまるわかりおすすめ参考書

【Accessフォーム】開くときにパスワードロックを設定する方法

アクセス【Access】

誰でも使えるメニュー画面を作成しても管理者だけが操作できるパスワードロックをかけたい時ってありませんか?

今回は、フォームを開くときにパスワードロックをかけるコードをご紹介します。

『InputBox』を使います。

スポンサーリンク

【Accessフォーム】開くときにパスワードを設定する方法

管理者のみが入っていけるようにメニュー画面にパスワードロックをかけました。

操作手順の確認

メインメニュー画面

メインメニューの『店舗設定』を開くときにパスワードを求めるように設定します。

店舗設定

『店舗設定』をクリックすると、『開発者用設定のためパスワードを記入してください。』とパスワードが求められます。

間違ったパスワードを入れる

適当に入れました(笑)

間違ったパスワードを入れると、特になにも表示されずにメインメニュー画面に戻ります。

正しいパスワードを入れる

正しいパスワードを入れると『店コード設定変更』フォームが開くようになっています。

 

メインメニュー『店舗設定』イベントクリック時にコードを入れる

まずメインメニューの『店舗設定』をクリックした時に発動するコードを入れます。

『店舗設定』をクリックして『プロパティシート』の『クリック時』でイベントを設定します。

『店舗設定』クリック時のコード内容はこちら

次にフォームを開く側『店コード変更』にもコードを記入します

こちらはフォームを開いた時に発動するコードになるので『店コード設定』をクリックしてフォームの『プロパティシート』の『開く時』でイベントを設定します。

書き込むVBAコードの内容はこちら

解説

If IMEStatus <> vbIMEModeOff Then  ‘半角英数入力を固定にする
SendKeys “{kanji}”
End If

この部分は特に必須ではないのですが、入力が英字だったりかなだったりするので、半角英数に固定しました。

If InputBox(“開発者用設定のためパスワードを記入してください。 “) <> “simply123” Then Cancel = True

緑のマーカー部分がメッセージ部分になりますので、表示するメッセージを入れます。

ピンクのマーカー部分はパスワードになります。ここで任意のパスワードを設定します。

パスワードを忘れた時はここで確認しましょう。

今回は【Accessフォーム】開くときにパスワードロックを設定する方法のご紹介でした。

最後までお読みいただきありがとうございました。

【AccessVBA】特定の文字が入力されているフィールドの文字色を変更
Accessで見積書を改良しているのですが、基本、空欄は全部削除してデータに保存するようにコードを書いていたので、何点か単価見積をする時に区切りとして空欄をレコードに入れて印刷したいなという意見が出たんですが、そういうプログラムにしていなか...

コメント

タイトルとURLをコピーしました