|
Workbook_BeforeClose、Workbook_BeforeSaveを用いて
Saveがされる時、Closeがされる時にファイルのCopyをとる
仕組みを考えております。
*****This Workbook*****
Option Explicit
Private Sub Workbook_BeforeSave()
test
End Sub
Private Sub Workbook_BeforeClose()
test
End Sub
***********************
*****Module1***********
Option Explicit
Sub test()
Dim myname, Fpass As String
myname = ActiveWorkbook.Name
Fpass = Range("B1").Text
ActiveWorkbook.SaveCopyAs Fpass & myname
End Sub
***********************
の用に記述をしていますが、Saveをいざしようとすると
下記のエラーが発生してしまいます。
*****Error*************
プロシージャの宣言が、イベントまたはプロシージャの定義と一致していません。
***********************
どこがおかしいでしょうか?初心者すぎる質問かもしれませんが
宜しくお願いいたします。
|
|