ソースコード


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