ExcelにVBAでパスワードをかける

Excelを開いた時にパスワードを入力させ、一致しなかった場合は自動で閉じる。

Sub pw()

　Dim st As String
　Dim i As Long

　For i = 1 To 3

　　On Error GoTo myError

　　st = InputBox("パスワードを入力してください") '1234

　　If st = 1234 Then
　　　Exit For
　　Else
　　　MsgBox "パスワードが違います"

　　　If i = 3 Then
　　　　MsgBox "ブックを閉じます"
　　　　ThisWorkbook.Close savechanges:=True
　　　End If

　　End If

　Next i

　MsgBox "パスワードを認証しました"
　Exit Sub

myError: ThisWorkbook.Close savechanges:=True　'or False

End Sub

 ThisWorkbookにWorkbook_Openと入力することで、ブックを開いた際に処理を始めることができる。