Excelブックの保護パスワード判定方法

質問

VB6.0で、Excelブックが保護パスワードされているかどうかの
判定を行いたいです。
以下のようにHasPasswordプロパティを使用してみたのですが、
保護パスワード付きのExcelブックでテストしてみると
Workbooks.Openの部分で処理が止まってしまい、先にすすみません。
基本的にやり方が間違えているんでしょうか？
お分かりになる方がいらっしゃいましたら、教えてください。
よろしくお願いします。

　 Dim xlApp　　As Excel.Application
　 Dim xlBook　 As Excel.Workbook

　 Set xlApp = CreateObject("Excel.Application")
　 Set xlBook = xlApp.Workbooks.Open("C\:TEST.xls")
If xlBook.HasPassword Then
Msgbox("保護パスワードあり"）
Else
Msgbox("保護パスワードなし"）
End If
　 Set xlSheet = Nothing
　 xlBook.Close
　 Set xlBook = Nothing
　 xlApp.Quit
　 Set xlApp = Nothing

回答No.1

redfox63 · ベストアンサー

以下のよいうにして見ましょう

Set xlApp = CreateObject("Excel.Application")
Set xlBook = nothing
On Error Resume Next
Set xlBook = xlApp.Workbooks.Open("C\:TEST.xls", PassWord:="")
if err.Number <>0 then
　　if err.Number = 1004 then
　　　　MsgBox("保護パスワードあり")
　　else
　　　　MsgBox( Err.Description )
　　end if
else
　　MsgBox("保護パスワードなし")
　　xlBook.Close
end if
on error goto 0
xlApp.Quit
set xlApp = Nothing
set xlBook = Nothing
といった具合です

お礼

解決いたしました。
どうもありがとうございます。