プロが教える店舗&オフィスのセキュリティ対策術

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

A 回答 (1件)

WriteResPassword:="gf3002"


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

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

コピーしたもので試して見てください。
    • good
    • 0
この回答へのお礼

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

お礼日時:2001/11/14 15:58

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!