ソースコード
Sub OpenWorkbookWithPassword()
Dim wb As Workbook
Dim password As String
' パスワードの入力
password = InputBox("パスワードを入力してください", "パスワード入力")
If password = "" Then
' パスワードが入力されなかった場合は処理を中断
Exit Sub
End If
' ブックを開く際にパスワードを入力する
Set wb = Workbooks.Open(Filename:="ファイルパス", Password:=password)
' Auto_Openを無効化する
Application.EnableEvents = False
wb.VBProject.VBComponents("ThisWorkbook").CodeModule.DeleteLines _
StartLine:=1, Count:=wb.VBProject.VBComponents("ThisWorkbook").CodeModule.CountOfLines
Application.EnableEvents = True
End Sub