エクセル200７のマクロ異常

質問

旧エクセルでシートを新BOOKへコピーするマクロを使っていたのですが、エクセル2007でこのマクロを使うと、登録マクロが新BOOKのマクロに変わってしまって、元のBOOKに戻った時には、このマクロが使えません。マクロ登録で元のBOOKに登録替えしなくてはなりません。解決法をご指導ください。

回答No.3

Wendy02

こんにちは。

お話を読んでいて、私は、良く理解できていないのですが、

>新たに作成したファイルが「BOOK1」だとしますと、

もともと、新規のブックに、マクロを登録するつもりで作られたものではありません。

新規ブックに登録するようなマクロは、非常に特殊なものです。それは、既存の規定のマクロブックに登録していればよいのですが、そうすると、そのマクロを利用するたびに、規定のマクロブックが呼び出されてしまいます。それがうっとうしいなら、マクロを「個人用マクロブック」に登録しておけばよいと思います。

>マクロボタンをクリックすると
Office 2007 では、画面の上部の「クイックツールバーのカスタマイズ」でマクロを登録すればよいです。

Office 2007 の場合は、リンク先のマクロでも、セキュリティの警告が出ますが、セキュリティを変更しておけばよいと思います。もちろん、拡張子は、xlsxのままで良いのです。

ただし、個人用マクロブックの場合は、以下のように多少変える必要があるかもしれません。個人用マクロブックの「標準モジュール」に登録すればよいです。

'-------------------------------------------
Sub CopyTest()
　　On Error Goto ErrHandler　'加える
　　ActiveWorkbook.Worksheets("勝馬投票券").Select　'変更
　　With Worksheets.Add(Before:=Worksheets(1))
　　　　Worksheets("勝馬投票券").Cells.Copy .Cells
　　　　.Cells.Copy　'書式情報等のコピー
　　　　.Cells.PasteSpecial Paste:=xlPasteValues, _
　　　　Operation:=xlNone, SkipBlanks:=False, Transpose:=False '値貼り付け
　　　　.Move '新しいブックを作成
　　End With
　　With ActiveSheet
　　　　.Range("A1").Select
'　　　　'シートの名前
'　　　　.Name = "勝馬投票権"
　　End With
'　　'保存
'　　ActiveWorkbook.SaveAs "ブックの名前"
　　Application.CutCopyMode = False
Goto ErrHandler:　'加える
End Sub

お礼

私の説明不足のようですね。

私の作ったマクロはこのファイル専用のマクロで、ファイルの中の特定のシートを新たなBOOKとして取り出すマクロです。

>新たに作成したファイルが「BOOK1」だとしますと、

これは、私のマクロで作成した新たなファイルを指しています。
図形ボタンに登録した上記の目的のマクロを実行すると、1度だけ意図通りに作動し、2度目は、ボタンに登録されたマクロが、どういうわけかexcel2007では、このマクロで作成した新BOOKのマクロに変わってしまいます。新BOOKには一つもマクロが登録されていないから、当然エラーになります。
昔のエクセルではこういうことはありませんでした。