エクセル 空欄の場合 保存時にエラーを返す

以下のようなことを実現する方法はありませんでしょうか。

・任意のセルが空欄の場合、ファイルを保存しようとすると、
　「空欄ですよ」という旨のエラーを返す


【 例 】

部長承認欄
［セルB1］

セルB1が空欄のままの場合、ファイルを保存しようとすると
エラーが返される。

No.3 ベストアンサー 回答者： mt2008 回答日時： 2008/12/09 18:00

保存の手順まで含めて説明した方がよさそうですね。

まず、Excelを起動します。
[ファイル]-[開く]で対象のブックを選択し、Shiftキーを押しながら＜開く＞ボタンで開きます（これでマクロ無効状態で開いた事になります）。

次に、Alt+F11(ファンクションキーの11）でVBA(マクロ）の画面を開きます。
左側に対象ブックの「ThisWorkbook」があります。
それを開いた所に先の回答のマクロを入れてください。

最後に保存。
これで次回開いた時からSheet1のB1が空欄の場合警告メッセージが出ます。

マクロを無効にして開いてマクロをいれた理由は、あのマクロを入れてしまうとマクロが有効な場合、Sheet1のB1に何か入っていない限り、マクロを保存するつもりの保存も出来なくなってしまうからです。

No.2 回答者： hige_082 回答日時： 2008/12/09 17:51

ツール－マクロ－Visual Basic Editer

左上のツリーの中にThisWokbookを見つけクリック
#１さんの
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
以下最後までコピペ

No.1 回答者： mt2008 回答日時： 2008/12/09 15:42

ThisWokbookモジュールの、Workbook_BeforeSaveを使います。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
　If Sheets("Sheet1").Range("B1") = "" Then
　　MsgBox ("空欄ですよ")
　　Cancel = True　'←これで保存がキャンセルされます。
　End If
End Sub

この回答へのお礼

早速ありがとうございます。
これでできそう・・なのですが
マクロのように見受けるのですが、
エクセルファイルのどこにこれを
仕込めばよいのでしょう。
補足いただければ、幸いです。

お礼日時：2008/12/09 17:01