|
VBA初心者です。このコードを実行すると、
Dim NewSheet As Worksheet
Dim myno As Integer
On Error Resume Next
Sheets("新清算書").Select
Sheets("新清算書").Copy Before:=Sheets(2)
Set NewSheet = Sheets(2)
With Worksheets("メニュー")
NewSheet.Name = .Range("A3").Value & .Range("B3").Value
NewSheet.Range("D4").Value = .Range("A3").Value
NewSheet.Range("F4").Value = .Range("B3").Value
End With
ActiveWindow.DisplayGridlines = False
NewSheet.Select
myno = InputBox("パスワードを入れてください。", "Password")
Select Case myno
Case myno = Empty
MsgBox prompt:="パスワードを入力してください", Title:="何やってんの?"
Application.DisplayAlerts = False
NewSheet.Delete
Case myno = aaa
NewSheet.Visible = True
Case Else
MsgBox prompt:="パスワードが違います。", Title:="頑張って"
Application.DisplayAlerts = False
NewSheet.Delete
End Select
End Sub
によりパスワードを設定しているつもりなのですが、aaaとパスワードを入力してもパスワードが違いますというメッセージボックスが表示されます。解決方法がわかりません。
どのようにすればいいのでしょうか。またパスワードを設定するにあたり、Select Caseステートメント以外の方法がありましたらご教授よろしくお願いします。
|
|