Excelの保存ボタン押下時に

質問

Excelで標準でついている保存ボタンを押下した時に、
あるセルに保存日を設定してから保存をしたいのですがどのようにすればいいのでしょうか？

回答No.3

fujillin

ANo2の回答そのままですが・・・
エクセルのVB EditorでThisWorkbookのコード欄に以下のコードをペーストします。
（日付を記入するセルを、希望のセルに設定し直しておくこと）
以降の保存に際しては、対象セルに日付が記入されてから保存されます。

Private Sub Workbook_BeforeSave( _
ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").Range("A1").Value = Date
'↑日付を記入するシート名とセルの位置を指定
'　（上記は、Sheet1、A1になっています）
End Sub

回答No.2

Bonjin

WorkbookのBeforeSaveイベントを使えば簡単にできると思いますよ。

回答No.1

pulsa

標準の保存ボタンは、いわゆる上書き保存です。
なんで、このボタンの機能を変更するのは、ある意味危険です。
それを承知で行うのであれば、方法はあります

まずマクロの記憶で、通常の上書き保存の動作を記録します
VBEの画面を開いて
Sub Macro1()
とかなっている真下に、セルとそこに入れる値（日付）の設定をします
ActiveSheet.Range("A1") = Format(Now(), "yyyy/mm/dd")
って感じでしょうか
シートに戻ってツールバーの適当な所を右クリックしてユーザー設定を選択
標準の上書き保存ボタンを右クリックして、マクロの登録を選択
先ほど作ったMacro1を選択→OK
以上です
同様にリセットを選択すれば、元に戻せます

ただ、最初に書いた通り、弊害は色々おこります
簡単に思いつく所だと、登録したマクロファイルを起動してない状態でこの作った新上書き保存ボタンを押すと、マクロを入れたファイルが一々起動します
コレを起こらないように調整するのは、ツールバーに新しいツールバーを登録
そのツールバーにボタンを登録
ボタンにマクロを登録
標準の上書き保存ボタンと入れ替え
そして、これらの動作をマクロで記述する必要がある為、いきなりハードルが上がります

なので、今回の動作を実現するには、
セルに保存日を設定してから保存
と言うボタンをシート上に配置して、当該ファイルの保存には、そのボタンを使ってもらうようにした方が、賢いと思います
ボタンに登録するマクロも上と同じものでOKです
なんなら
標準の上書き保存ボタンを実行時に隠すだけならそれほど難しくないので、今回のマクロを起動した時は、標準の上書き保存ボタンを隠して、閉じる時に再度表示させるようにすれば、混乱も少なくて済むと思います