|
▼漂流民 さん:
おはようございます。
>.Saveを使う時はこういう理由でこれが駄目、と言えないのがもどかしいですね^^
しかもエラーを返さないの厄介ですね。
Debug.Printで判るように「参照」はできるようです。
↓のマクロなどは普通にやってしまいそうです・・
手動で保存すれば、正常に動作するワケですしちょっと怖いですね。
'標準モジュール
Sub Test2()
'何らかの処理
'・・・・
ThisWorkbook.Save
End Sub
'ThisWorkbookモジュール
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Worksheets(1)
.Range("A1").Value = .Range("A1").Value + 1
.Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = .Range("A1").Value
.Activate
End With
End Sub
|
|