Access VBA フォームをパスワードで制限

フォームをパスワードで制限

Accessで作成したデータベース使用時に一般ユーザーと管理者レベルで開けるフォームを分ける為フォームを開く際にパスワードで制限をかける方法です。

パスワード入力フォームの作成

パスワードの入力フォームを作成します。
適当なフォームを用意し、フォーム名を「F_パスワード」とします。
フォーム内に非連結のテキストボックスとコマンドボタンを設置し、名前をそれぞれ「password」と「LogIn」とします。

次にテキストボックスの設定を変更します。
このテキストボックスにパスワードを入力するのですが、パスワードですので表示を「*****」にする設定を行います。

テキストボックスの「プロパティ」を開き、「データ」タブを表示します。
「データ」タブから「定型入力」を選択し、ボックス端の「・・・」をクリックします。

「・・・」をクリックすると、「定型入力ウィザード」が表示されますので、この中から「パスワード」選択します。

そうすると「定型入力」に「パスワード」と表示されるはずです。

これで、テキストボックスへ入力する際は「****」表示になります。

もうひとつ、パスワード照合後に表示するフォームとして「F_ようこそ」も作成しておきます。

パスワード照合プログラムの作成

続いてパスワードを照合するプログラムを作成します。
プログラムは先ほど作成したフォーム「F_パスワード」内に設置したコマンドボタンのクリック時イベントに書き込みます。

Private Sub LogIn_Click()

If Me.password = “1234” Then

DoCmd.OpenForm “F_ようこそ”

Else

MsgBox “パスワードが違います！”, vbCritical, “警告”

End If

End Sub

プログラムの説明

プログラム自体は非常に単純です。
テキストボックス「password」に「1234」と入力されれば、「F_ようこそ」フォームを開き、それ以外であれば警告のメッセージボックスを表示するコードです。

いかがでしょうか？
簡単なプログラムコードですが最低限のセキュリティにはなると思います。

YouTubeにて動画も公開しています。