|
ちょっとnさんの回答とハチさんのソースを組み合わせてやってみました。
動作としてはOKでした。
サンプルソース例:
'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
'標準モジュール
Sub SaveEvents()
'保存時はこの関数を呼ぶ
CommandBars.FindControl(ID:=3).Execute
End Sub
|
|