[XL]パスワード入力を行うダイアログボックスの作成方法

概要

Microsoft(R) Visual Basic(R) Programming System Applications Edition(以下 VBA) の EditBox オブジェクトには、「パスワード入力機能」 (入力した文字を画面に表示せずに、入力した文字数分「*」を表示する機能) は提供されておりません。本文書では、ダイアログ ボックスを使用してパスワード入力を行う場合のプログラム側での対応例を、サンプル モジュールと共に解説しています。

ダイアログ ボックスの作成

次の図のようにダイアログ ボックスの作成およびマクロの登録を行います。登録するマクロは、次項「サンプル モジュール」を参照してください。
<エディット 5> はダイアログ ボックスの外側に存在します。このようなオブジェクトは「オブジェクトとしては存在するが表示されず、入力が可能なオブジェクト」となります。この機能を利用してパスワード入力が可能となります。また、<エディット 4> はデフォルトの設定状態ではそのままパスワード (文字列) の入力が可能となってしまいますが、これをダイアログ ボックス実行時に Enable プロパティを False に設定することで入力不可の状態にしています。

サンプル モジュール

各コントロールに対するマクロの登録についての詳細は、「 Visual Basic ユーザーズ ガイド」 281 ページ「イベント プロシージャの登録」を参照してください。

注意

例えば <エディット 4> をマクロで指定する場合には、EditBoxes("エディット 4") と記述します。半角の "エディット 4" や全角の "エディット４" など、記述に差異がありますと正しく実行できませんので、ご注意ください。

<フォーム 1> に登録するマクロ

  Sub Form1_Load()
      'エディット ボックスの初期文字列の設定
      ActiveDialog.EditBoxes("エディット 4").Text = "|"
      ActiveDialog.EditBoxes("エディット 5").Text = ""
      '<エディット 4> に制御が移らないように設定
      ActiveDialog.EditBoxes("エディット 4").Enabled = False
      'ダイアログ ボックスのフォーカスを設定
      ActiveDialog.Focus = "エディット 5"
  End Sub

<エディット 5> に登録するマクロ

  Sub Edit5_Change()
      Dim SetText, InputText As String
      '<エディット 5> に入力された文字列の取得
      InputText = ActiveDialog.EditBoxes("エディット 5").Text
      '<エディット 4> に表示する「*」の作成
      If Len(InputText) = 0 Then
          SetText = "|"
      Else
          SetText = String(Len(InputText), "*") & "|"
      End If
      '<エディット 4> に「*」を表示
      ActiveDialog.EditBoxes("エディット 4").Text = SetText
  End Sub

「パスワード入力」ダイアログ ボックスを表示するマクロ

  Sub DlgSamp()
      'ダイアログ ボックスの表示
      DialogSheets("Dialog1").Show
      '入力されたパスワードの表示
      MsgBox DialogSheets("Dialog1").EditBoxes("エディット 5").Text
  End Sub

実行

サンプル モジュールを入力後、ダイアログ ボックスへマクロ登録し、サンプルモジュール "DlgSamp" を実行してください。"DlgSamp" は、ダイアログ ボックスを表示後、入力されたパスワードの文字数分だけ「*」をエディット ボックスに表示します。<OK> ボタンがクリックされると、入力したパスワードの文字列を MsgBox 関数を使って表示します。