パスワードロックされたExcelファイルを、判定するには？

TAKA 2005-09-16 04:24:05 No: 92265

初めて書き込みます。
VB6.0を使用してOLEでExcelを起動して
ファイルを読み込んでシート数を取り出して
集計するといったプログラムを作っていて
パスワードロックされたファイルとロックされていない
ファイルによって処理を分けて集計を行わないといけないのですが
パスワードロックされたファイルという判定が行えず困っています。
ファイルの情報の取得は
Set objExcelApp = GetObject("ファイルパス")
で行っています。
どなたか判定方法をご存知の方がいらっしゃいましたら
教えて頂けないでしょうか？

例えば 2005-09-16 05:34:26 No: 92266

案ロックを行ってみて、
エラーとなるか否か