|
InputBox関数の戻り値は、文字列型にしかなりませんから
Dim myno As String
として
Select Case myno
Case ""
MsgBox prompt:="パスワードを入力してください", Title:="何やってんの?"
Application.DisplayAlerts = False
NewSheet.Delete
Application.DisplayAlerts = True
Case "aaa"
NewSheet.Visible = True
Case Else
MsgBox prompt:="パスワードが違います。", Title:="頑張って"
Application.DisplayAlerts = False
NewSheet.Delete
Application.DisplayAlerts = True
End Select
と、します。また
>NewSheet.Visible = True
は、前にNewSheetを作っている(その時点でアクティブになっている)にも拘わらず
一度も Visible = False にしていないのだから、無駄な処理になってます。
>NewSheet.Select
↓
NewSheet.Visible = False
と、変更するべきでしょう。
|
|