|
▼のり さん:
こんばんは。
>Workbook_BeforeClose、Workbook_BeforeSaveを用いて
>
>Saveがされる時、Closeがされる時にファイルのCopyをとる
>仕組みを考えております。
エラーは
>*****This Workbook*****
>Option Explicit
>
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
> test
Application.EnableEvents = true
>End Sub
>
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.EnableEvents = False
> test
Application.EnableEvents = true
>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*************
>プロシージャの宣言が、イベントまたはプロシージャの定義と一致していません。
>***********************
>
>どこがおかしいでしょうか?初心者すぎる質問かもしれませんが
>宜しくお願いいたします。
Excelの機能として、バックアップファイルの作成という機能もありますが、
それではいけませんか? 検討してみてください。
|
|