VBAでパスワード入力を安全に！InputBoxでのマスク方法とは？

2025.03.09

皆さん、こんにちは！今日は、ExcelのVBAを使ってパスワードを入力する際に、文字を見えないようにする方法についてお話しします。普段、パスワードを入力する際に、そのまま表示されてしまうと不安ですよね。今回は、その不安を解消するテクニックをご紹介します。

通常のInputBoxでのパスワード入力の問題点
パスワードをマスクする方法UserFormの活用
1. UserFormの作成手順
2. 具体的なコード例
よくある質問や疑問
1. Q1: InputBoxを使ってパスワードをマスクすることはできますか？
2. Q2: UserFormを使わずにパスワードをマスクする方法はありますか？
今すぐ解決したい！どうしたらいい？
まとめ

通常のInputBoxでのパスワード入力の問題点

Wordのイメージ

まず、通常のInputBoxを使ってパスワードを入力すると、入力した文字がそのまま表示されてしまいます。これは、セキュリティ上好ましくありません。例えば、以下のようなコードです。

vbaコード

Dim password As String

password = InputBox("パスワードを入力してください", "パスワード入力")

この方法では、入力したパスワードが画面上に表示されてしまいます。

パスワードをマスクする方法UserFormの活用

では、どうすれば入力中のパスワードを見えなくできるのでしょうか？その答えは、UserFormを活用することです。UserFormを使えば、入力された文字を「*」などの記号で表示させることが可能です。

UserFormの作成手順

具体的な手順は以下の通りです。

Excelで、AltキーとF11キーを同時に押して、VBAエディタを開きます。
メニューから「挿入」を選び、「UserForm」をクリックします。
表示されたUserFormに、テキストボックス（TextBox）とコマンドボタン（CommandButton）を配置します。
テキストボックスを選択し、プロパティウィンドウで「PasswordChar」を「*」に設定します。これで、入力した文字が「*」で表示されるようになります。
コマンドボタンをダブルクリックし、クリック時の処理を記述します。

具体的なコード例

以下に、UserFormを使ったパスワード入力のコード例を示します。

vbaコード

' UserFormのコード

Private Sub CommandButton1_Click()

    If Me.TextBox1.Text = "正しいパスワード" Then

        MsgBox "ログイン成功！"

        ' ここに続けて実行したいコードを記述

    Else

        MsgBox "パスワードが間違っています。"

    End If

    Me.Hide

End Sub

' モジュールのコード Sub ShowPasswordForm() Dim frm As New UserForm1 frm.Show End Sub

この方法を使えば、パスワード入力時に文字がマスクされ、セキュリティを高めることができます。