エクセル２００７ 上書き保存時に警告メッセージを出したい

質問

エクセル２００７　上書き保存時に警告メッセージを出したい

エクセル２００７で上書き保存アイコンをクリックした際に
任意のメッセージが出るように設定したいのですが、
当方、マクロやＶＢＡに詳しくないもので
どなたか分かる方いらっしゃいましたら教えてください。

※OS　WindowsXP

回答No.1

merlionXX · ベストアンサー

名前を付けて保存と上書き保存かで区別したいということですか？
上書き保存か名前を付けて保存かを判断するときは、SaveAsUIで判断します。
Trueが名前を付けて保存で、Falseが上書き保存です。

具体的な手順は下記のとおりです。

1.AltキーとF11キー同時に押し（以下Alt+F11キーと記述）て Visual Basic Editor を呼び出します。
2.Visual Basic Editor のThisWorkbookモジュールのコードウィンド（右側の白い広い部分）に以下のコードをコピペします。

'********これより下**********

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
　　If SaveAsUI = False Then
　　　　If MsgBox("上書保存していいですか？", vbYesNo + vbQuestion) = vbNo Then
　　　　Cancel = True
　　　　End If
　　Else
　　　　MsgBox "名前を付けて保存です。"
　　End If
End Sub

'********これより上**********

3.Alt+F11キーでワークシートへもどります。

これでOK

お礼

わかりやすくご丁寧かつ迅速的確な回答を
いただき誠にありがとうございました。

非常に助かりました。

回答No.2

MackyNo1

どのような目的でわざわざ上書き保存時にメッセージが出したいのでしょうか？

誤って上書き保存してしまったデータは復旧できないので不安ということなら、Excel2007では、上書き保存しても、そのファイルを閉じなければCtrl+Zの元に戻すショートカット操作で、上書き前の状態に戻すことができます。

お礼

ご回答ありがとうございます。
説明不足で申し訳ありませんでした。

社内で共有ファイルを使用しており、各々が使用する際に
上書き時に入力忘れがないことを再確認させることを徹底するために
必要でした。