[[20120101125726]]　『マクロ実行時のＰＷ入力時の半角小文字文字の指定』（唯一無二）　ページの最後に飛ぶ

『マクロ実行時のＰＷ入力時の半角小文字文字の指定』（唯一無二）

 新年あけましておめでとうございます。本年もよろしくお願いします。

 サーバーにある共用のファイルにマクロを登録した複数のボタンがあります。
 そのうち一部のボタンにＰＷを設け、ＰＷをしっているメンバのみ実行したいと思い
 検索で探して下記を見つけマクロに組み入れました。

 Dim x As String

 x = Application.InputBox("pass　word")

 If x <> "sigoto" Then　　’入力するＰＷ
   MsgBox "PWが違います"
   Exit Sub
 End If

 MsgBox "実行します"
 実行するマクロのコード

 今回の質問ですが、このＰＷを入力する際の窓を半角小文字のみ
 に固定できないかということです。
 INPIUT関数の設定を半角小文字に固定できないかということです。
 出来るでしょうか。できるのであればどうすればいいでしょうか。
 よろしくお願いします。

 InputBoxメソッドを使っている割には、Type指定がなく、Input関数と変わりないコードになっているのが気になるけど、
それは、さておき。
入力のデータ型を規定できるInputBoxメソッドであっても要望の設定は不可能。
そもそもパスワードというものは、正しく入力するというのが基本で、入力が面倒だから
半角小文字に設定してやろうということ自体が、ちょっとおかしいね。
それぐらいは、入力者が一手間かけて、ちゃんとキー操作して入力すべき。

 と思うけど、どうしてもということなら
http://itpro.nikkeibp.co.jp/article/COLUMN/20070308/264274/
こんな逆転の発想もあるかな・・・

 (ぶらっと)

 ぶらっとさん。ありがとうございます。
 >そもそもパスワードというものは、正しく入力するというのが基本で・・
 そういうものなのですね
 社内システムを含めいろいろなＷＥＢ上のサイトをログインする場合に
 ログイン名、ＰＷを入力する際に全角/半角の切替を忘れエラーとなると
 いうことがあるものですから考えてみました。
 >入力者が一手間かけて、ちゃんとキー操作して入力すべき
 これが常識なんだと理解しました。
 ありがとうございました。
 （唯一無二）

コメント返信：

[ 一覧(最新更新順) ]

[[20120101125726]] 『マクロ実行時のＰＷ入力時の半角小文字文字の指定』（唯一無二） ページの最後に飛ぶ

[[20120101125726]]　『マクロ実行時のＰＷ入力時の半角小文字文字の指定』（唯一無二）　ページの最後に飛ぶ