こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

パスワードの設定

フォームにコマンドボタン「A」と「B]の2つが配置してます。
それとテキストボックスが1つ配置してます。
フォームが開いた時にコマンドボタン「B」は使用できないように設定してあります。
テキストボックスにパスワードを入れてコマンドボタン「A」をクリックするとパスワードが合っていればコマンドボタン「B」は使用できるようになり、違ってる場合はパスワードが違ってますとメッセージを出してテキストボックスにフォーカスが移動するようにしたいのでう。
宜しくお願い致します。

投稿日時 - 2005-08-22 22:35:50

QNo.1597782

困ってます

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.3

>パスワードを仮に「1234」とする場合、

下記の Password を 1234 に書き換えるだけです。

>ElseIf TextBox1.Value = "Password" Then 'パスワードチェック

投稿日時 - 2005-08-27 22:18:38

お礼

出来ました。
本当にありがとうございました。

投稿日時 - 2005-08-27 22:42:49

ANo.2

#1さんはVBAみたいなので、VBで・・・
ほとんど同じですけど・・・

Private Sub Form_Load()

Text1.PasswordChar = "*" '入力文字を*にする
Text1.Text = ""
'Command2.Value = False 'ボタンを消す
Command2.Enabled = False 'ボタンを無効にする

End Sub
'-----------------------
Private Sub Command1_Click()

If Text1.Text = "Password" Then
'Command2.Value = True 'ボタンを表示する
Command2.Enabled = True 'ボタンを有効にする
Else
MsgBox ("パスワードが違います")
Text1.Text = ""
Text1.SetFocus 'フォーカスをセットする
End If

End Sub

投稿日時 - 2005-08-25 11:50:31

ANo.1

こんなところでいかがでしょう?

Private Sub CommandButton_A_Click()
If TextBox1.Value = "" Then
MsgBox "パスワードを入れて下さい。"
TextBox1.SetFocus
Exit Sub
ElseIf TextBox1.Value = "Password" Then 'パスワードチェック
CommandButton_B.Enabled = True
TextBox1.Value = ""
TextBox1.PasswordChar = "" 'PasswordCharを無効にする
Else
MsgBox "パスワードが正しくありません。"
TextBox1.SetFocus
End If
End Sub

Private Sub UserForm_Initialize()
CommandButton_B.Enabled = False
TextBox1.PasswordChar = "*"
TextBox1.TextAlign = fmTextAlignRight
End Sub

投稿日時 - 2005-08-22 23:32:07

補足

連絡が遅れて申し訳ございませんでした。
初心者なもんで大変申し訳ございませんが、パスワードを仮に
「1234」とする場合、どのように設定すれば宜しいのでしょうか。
宜しくお願い致します。

投稿日時 - 2005-08-27 21:53:00

お礼

ありがとうございました。

投稿日時 - 2005-08-23 00:06:42

あなたにオススメの質問