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

---

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

編集 削除

---

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

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。