エクセルにて保存時に同名のファイル名は実行拒否する

質問

今エクセルで、名前を付けて保存のマクロを作っています。
同ファイル名の物が同じフォルダ内にあれば上書きできますが、強制的に上書きできない様にする方法ってありますか？
マクロをかじって間もないので、考え方もイマイチな状態で、困っております。
ご教示宜しくお願い致します。

Sub AAA()

Dim fname As String

fname = Application.Dialogs(xlDialogSaveAs).Show

If fname = "False" Then
MsgBox "キャンセルが押されました。処理を中止します"
Exit Sub
End If

End sub

回答No.1

keithin · ベストアンサー

＞強制的に上書きできない様にする

同名のファイルが既に有るか無いか、マクロの中でちゃんと調べて仕分けます。

作成例：
sub macro1()
　dim myFile as string

Start:
　myfile = application.getsaveasfilename()

　if myfile = "False" then
　　msgbox "cancel"
　　exit sub
　end if

　if not dir(myfile) = "" then
　　msgbox "file is exist"
　　goto Start:
　end if

　activeworkbook.saveas filename:=myfile
end sub

また、ご利用のエクセルのバージョンによってこのままではうまくない場合もあります。
ご相談投稿ではご利用のソフト名は元より、普段あなたが使うソフトのバージョンまでキチンと明記する事を憶えて下さい。

お礼

早々のお返事誠にありがとうございます。無事、問題解決でき非常に助かりました。
指摘のあったバージョンは2003です。明記が無くて申し訳ありませんでした。
以後気をつけます。本当にありがとうございました。