Excel保存時のメッセージ非表示

環境/言語:[OS：Win2000，VB：6.0，SQLServer：2000]
分類:[VB6以前]

こんにちは。

SQLServerのDTSパッケージをVB側から実行し、
作成されたExcelファイルを開き、パスワードを設定して保存し直します。
その際に表示される「この場所に'テスト.xls'という名前のファイルが
既にあります。置き換えますか？」のメッセージが表示されます。
このメッセージを表示しないで保存させる方法はありませんか？

ExcelVBAだと下記のように設定するとでなくなりますよね？
『Application.DisplayAlerts = False』
VB上だとこれが全く効かないので…。
何かいい方法があったら教えてください。
宜しくお願いします。

現在、下記のようなコードで処理を行っています。
--------------------------------------------------------------------
'「txt_Outpath」は作成したExcelファイルのパス＆ファイル名です。
'「lbl_pass」は設定するパスワードの値をVBのフォームから取得しています。


Dim ExlApp As Excel.Application
Dim ExlBook As Excel.Workbook

Set ExlApp = CreateObject("Excel.Application")
Set ExlBook = ExlApp.Workbooks.Open(txt_Outpath, , False)
ExlApp.UserControl = False

On Error Resume Next
ExlBook.SaveAs txt_Outpath, , lbl_pass
Resume 0

ExlBook.Close
Set ExlBook = Nothing
Set ExlApp = Nothing

> ExcelVBAだと下記のように設定するとでなくなりますよね？
> 『Application.DisplayAlerts = False』
> VB上だとこれが全く効かないので…。

　同じようにできるはずですけど‥‥コードに

ExlApp.DisplayAlerts = False

を記述しても効果がなかった ( ＝確認メッセージが表示されてしまう ) ということでしょうか？

＃今回は直接関係しないと思いますけど、この手の質問をされるときは Excel のバージョンも明記なさったほうが良いですよ。

深山さん

レスありがとうございます。

ごめんなさい、私の勘違いでした(^^;)
『ExlApp.DisplayAlerts = False』と書かなきゃいけないのに
『Application.DisplayAlerts = False』としていました。
お騒がせしました。