[インプットボックスで分岐する]



*インプットボックスの入力内容で処理を分岐させるコードです。　「シートの保護・解除」、「確認が必要な処理」に数字を入力させる・・・といった使い方ができると思います。　ワンクリックでは不安な場合にワンクッションおけます。

---

Private Sub myInput()

'=====================
' インプットボックス
'=====================


Dim myInput
Dim myMsg As String

myMsg = "0000 ---> ロック解除" & Chr(13) & "1111 ---> ロック" & Chr(13) & "2222 ---> 不要データ削除"

myInput = InputBox(myMsg, "設定/解除")


Select Case myInput

　　Case "0000"
　　MsgBox "ロックを解除しました。"

　　Case "1111"
　　MsgBox "ロックしました。"

　　Case "2222"
　　MsgBox "不要データを削除しました。"

　　Case Else
　　MsgBox "正しい番号を入力してください。"

End Select


End Sub

---