エクセルのセルの自動消去

質問

会社にて周知文書などの書類関係を担当しており、
周知文書等のナンバリングがしょっちゅうズレたりしているので
その対策で周知を出した者の名前を記入させようかと思っています。
そこで、あるセルに記名しないと警告あるいは色を変えるという方法までは出来たのですが
それでは同じ名前が記名されっぱなしになるかと思い
自動消去できたりする方法が無いかと調べてみましたが一向に分かりません…。

一旦保存、閉じたりする度に指定のセルのデータを消去する方法をご存じでしたら教えて下さい。

回答No.2

keithin

ん？
＞この場合でも消去させる方法はご存知でしょうか？

ご相談の再掲：
＞指定のセルのデータを消去する

当然できてる事と思いますが、とにかくあなたが消去したいセル範囲にマクロを書き換えるだけですが？

range("A1:D5").clearcontents
みたいに。

「具体的に何て名前のシートのどこのセル範囲をどうしたい」といった、目に見えるあなたのエクセルの状況について何も情報提供が無いので、回答者の方からわざわざ例を作って回答する羽目になってます。それをご自分で実地に応用できないといわれも、そりゃ自業自得でしょって言いたくもなりますですよ。

回答No.1

keithin

まず，とりあえずご相談の直接の回答として。

手順：
エクセルブックのウィンドウを，エクセルアプリケーションの中でブックが最大化ではない状態にする
ブックウィンドウ左上，ブック名の左隣のアイコンを右クリックしてコードの表示を選ぶ
現れた画面に下記をコピー貼り付ける

private sub Workbook_BeforeClose(Cancel as boolean)
　worksheets("Sheet1").range("A1").clearcontents
　thisworkbook.save
end sub

ファイルメニューから終了してエクセルに戻る
ブックを閉じると，シート１のＡ１セルが消去される。

ただまぁ一般的にはブックを書き込み保護(若しくはテンプレート形式で保存）しておいて，「記入を残した状態で上書き保存させない」（次に開いた人も，いつでもフレッシュなまっさら状態でブックが開く）というぐらいにしておく手かなとも思います。

更に言えば様式にいきなり書き込ませるんじゃなく，シート１に「台帳」形式で発行者，発行日，発行番号，記入内容を記入させ，その内容が数式等で様式に表示されるような作り方をしておくことで，次は何番なのか，何番はいつ誰が発行したのかを「管理」できるように作成する所かな，とも思います。

補足

返答が遅れてしまい申し訳ありません。
回答を頂いた通りに出来ましたが、
複数のセルを結合してる場合はエラーが出てしまいできませんでした。
この場合でも消去させる方法はご存知でしょうか？