エクセルのコード修正について

質問

OSはWindowsNT、Excel97です。
コマンドボタンで、保存ボタンを作ったのですが、保存したデータを呼び出すと、
上書するにはパスワードを入力しないといけない画面が出てきてしまいます。
これをパスワードを入れなくても画面がすぐ開くようにしたいのですが、以下のコードをどう作りかえれば良いですか？
宜しくお願いします。

Private Sub CommandButton4_Click()
Dim FName As String

FName = Sheets("フッ素ガルタイト見出し").Cells(6, 3)
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
ActiveWorkbook.SaveAs Filename:="\\業務\見積\" & FName & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="gf3002", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub

回答No.1

yohsshi · ベストアンサー

WriteResPassword:="gf3002"
該当の箇所だと思いますのでここを削除してみてください。多分それで良いと思います。

ちなみに既存のExcelにこのマクロが使われていると、そのEXCEL自身のパスワード設定を外さないと、開いた時に出てきます。
FILE→名前を付けて保存→オプション
で該当するパスワードを削除してください。

コピーしたもので試して見てください。

お礼

お返事ありがとうございます。
早速試してみます。