|
>VBWASURETAさん
【54702】のレスの中で.Saveについてのコメントを頂きましたので、
ひさしぶりに思いだしてみました。
あちらにつなげると混乱しそうでしたので、別トピックで書きました。
元トピック
www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=41354;id=excel
Workbook_BeforeSaveイベントは、
手動で保存した場合と、マクロから.Saveした場合では、
挙動が違いそうという話です。
そのときにレスを頂いていた方々とは、
「動かないものは、仕方ない」で納得しました。
今でもそんなもんだろう と思ってます。
簡単なサンプルとしては、以下の通りです。
手動で保存 Testを実行しての保存で挙動の違いを確認してみてください。
環境:Win2k,Excel2k
'標準モジュール
Sub Test()
'何らかの処理
'・・・・
ThisWorkbook.Save
End Sub
'ThisWorkbookモジュール
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim bk_Name As String
With Worksheets(1)
.Range("A1").Value = .Range("A1").Value + 1
bk_Name = "bak_" & .Range("A1").Value
Debug.Print bk_Name '確認用
.Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = bk_Name
.Activate
End With
End Sub
|
|