[[20060905204215]]　『コマンドボタンをクリックしたときに"パスワード"』（初丸）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『コマンドボタンをクリックしたときに"パスワード"等を入れないと,そのコードが実行されないようにしたいのですが、出来ますでしょうか？？？教えてください。』（初丸）

---

 InputBoxの返り値で判断して分岐させる、というのはいかがでしょう？
 VBAプロジェクトの保護も必須になってきますが。
 (MARBIN)

---

 単純にこんな感じでいけるかな？
 Sub test()
  Dim pw As Long
   pw = Application.InputBox( _
     prompt:="パスワード入力", Type:=1)
  If pw <> "0101" Then
     MsgBox "パスワードが違います。"
     Exit Sub
  Else
     MsgBox "OK"
  End If
 End Sub
 (MARBIN)

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.