こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

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

※OS WindowsXP

 

投稿日時 - 2010-08-12 14:24:06

QNo.6104530

困ってます

質問者が選んだベストアンサー

名前を付けて保存と上書き保存かで区別したいということですか?
上書き保存か名前を付けて保存かを判断するときは、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

投稿日時 - 2010-08-12 17:13:53

お礼

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

非常に助かりました。

投稿日時 - 2010-08-17 15:58:48

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

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

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

投稿日時 - 2010-08-12 22:48:51

お礼

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

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

投稿日時 - 2010-08-17 16:03:26

あなたにオススメの質問