Excel VisualBasic Script

Sub pass()
    Workbooks.Open Filename:="D:\Planning\Plan.xls", Password:="s@cur1ng!"
End Sub