ユーザーフォームにテキストボックスとコマンドボタンを設定し
以下のコードを打ちました。
Private Sub CommandButton1_Click()
If StrComp(TextBox1.Text, "1234", vbBinaryCompare) = 0 Then
Unload Pass ’フォームのアンロード
Else
MsgBox "パスワードが間違っています。"
With TextBox1
.Text = ""
.SetFocus
End With
End If
End Sub
textboxのプロパティにあるpasswordcharが設定してあります。
excel 2010 excel2007では、問題なく稼働しますが、
excel 2013でコードを走らせると、正しいパスワードを入力しても抜けられません。
ただし、passwordcharのマスク文字をなくしたら
通ります?
なぜ? マイクロソフトに問い合わせたら、こちらでの質問を要望されました。
補足
unload pass が実行されません、つまりtrueになりません。
マスクされていると、正しい文字を入力しても常に
「間違っています」のメッセージボックスがでます。
excel 2007 2010では問題ありません。
OSも、8.1 Vista 7 で違いはなく、officeのバージョン 15だとコードが通りません。