パスワード付Bookを開く

○("A:\My Documents\Book1.xls",,,, _
　　　　　　　　　"読み取りパスワード" ,"書き込みパスワード")
　　には実際のパスとファイル名、設定された各パスワードを
　　　指定して下さい
　
'***
Dim MyObject
Dim MyBook
Set MyObject = WScript.CreateObject("Excel.Application")
Set MyBook = MyObject.Workbooks.Open _
("A:\My Documents\Book1.xls",,,, _
"読み取りパスワード" ,"書き込みパスワード")
MyObject.Visible = True
'***