excel2007でエラーになるマクロ

質問

Excel2003では問題なく動いていた以下のマクロですが、これはボタンにマクロを貼り付けてあり、それを2007で実行すると、「問題が発生したため、Microsoft Office Excelを終了します」となり、強制終了になってしまいます。
でも、VBEの方で実行すると、ワークシートはちゃんと保存されて正しく閉じます。
（その場合、VBE自体は終了にならず、起動したままです）
また、マクロを表示させてマクロ名を選択し、実行をクリックすると、正常に動作します。
新しく別の図形を作成し、そこにマクロを貼り付けるとやはり強制終了になります。

Excel2007で、リソースの診断などしても問題は見つかりません。
Windowsは、ＳＰ２でだめだったので、ＳＰ３にしてみましたが、現象は同じで何ら変化はありませんでした。
エラーを出さなくするにはどうすればよいのでしょうか。

--------マクロ---------

Sub ファイル名を変えて保存して閉じる()

Dim nnen As String
Dim kcode As String
Dim kcode2 As String
Dim cname As String
Dim dno As String
Dim dno2 As String

Dim myPath As String

nnen = ActiveWorkbook.Worksheets("inputform").Range("O5")
kcode = ActiveWorkbook.Worksheets("inputform").Range("R3")
kcode2 = Format(kcode, "000")
cname = ActiveWorkbook.Worksheets("inputform").Range("C7")
dno = ActiveWorkbook.Worksheets("inputform").Range("H26")
dno2 = Format(dno, "00000")

myPath = ThisWorkbook.Path & "\"
On Error Resume Next 'エラーが発生しても処理を続行する
ActiveWorkbook.SaveAs Filename:=myPath & "様式5_" & nnen & kcode2 & "【" & cname & dno2 & "】" _
, CreateBackup:=False
On Error GoTo 0 'エラー処理ルーチンを無効にする
ActiveWorkbook.Close

End Sub

回答No.2

NaoDorry · ベストアンサー

新規でファイルを作って図形を挿入し、ActiveWorkbook.Close
のみでマクロを登録、実行しても落ちます。
これはセキュリティレベルの問題ではなく2007のバグっぽいですね～
以前のバージョンでもcloseメゾットのバグはあったようですし。
http://support.microsoft.com/kb/418779/ja?spid=1741&sid=880

いろいろ試してみましたが2つ以上のファイルを開いている場合は正常に動作するようです。

解決策としては
・図形じゃなくてVBのボタンにする
・オブジェクトの挿入でMicrosoftWord図で同じシェイプを選択すれば見た目上は全く同じで、問題なく動きます。
・Workbooksをカウントして１つならダミーファイルを開き、元ファイルをclose
（正しダミーファイルは開いたままなので意味ないですね・・・）

難題を解決するのは楽しくて好きなので、いろいろ試したんですが挫折しました(汗
コードで対応できるいい解決策がありそうな気がしてなんとなくスッキリしません。

お礼

オブジェクトの挿入…をXPの方で作成しました。
（2007では方法がわからなかったので）

それを2007で開いてボタンをクリックしてみたら……なななんと、できました！
ありがとうございました。m(_ _)m

回答No.1

NaoDorry

確認したところ私の環境では2003,2007とも問題なくファイルが保存されて閉じました。

マクロを含むシートの保存なので
2007のセキュリティレベルの問題のような気もします
保存形式はどうなっていますか？
私の環境では互換モードのxsl形式でも問題なく動きましたが
もし互換モードで開いているのなら
xlsm形式で保存しなおして試してみてはどうでしょう。

お礼

アドバイスありがとうございます。

マクロの設定は「すべてのマクロを有効にする」です。
また、開発者向けのマクロ設定では、「VBAプロジェクトオブジェクトモデルへのアクセスを信頼する」にチェックを入れてみました。

これをxlsm形式で保存し直したもので作業しても同様に強制終了となります。

他にセキュリティレベルをいじる設定などはありますでしょうか。

補足

すみません。書く場所が違いますが質問者です。

図形のボタンにマクロを貼り付けると必ずエラーになるようなんです。

2007で他のブックを新しく作って試しても同じです。