作成した別名保存ファイルからマクロを取り除きたい

Question

前提・実現したいこと
マクロで不要シートを削除し、別ファイルを作成したいです。
その新しいファイルは「xls」形式且つ、マクロを完全に取り除いた状態で作成したいです。
※Workbook_BeforeCloseでファイルを閉じる際にはしるマクロになっています。

発生している問題・エラーメッセージ
ファイル自体は作成されるのですが、マクロが残った状態になってしまいます。
※拡張子は「xls」で作成されるのですが、ファイルを閉じるとマクロがはしってしまいます。。

該当のソースコード

ThisWorkbook.SaveAs Filename:=thisPath & "\" & "ファイル名.xls", FileFormat:=xlWorkbookNormal

Comments

[ttyp03]

Excelのバージョンを記載してください。

Answer 1

マクロをエクスポートし、マクロを保存し
既存のファイルのmoduleを開放して
新規にmoduleを作成し、必要なマクロだけ
コピーすればよろしいのでは

Answer 2

ThisWorkbook.SaveAsではなく、
新規のワークブックを作成→該当のシートをコピーして新規ブックへ貼り付け
とすればマクロは残らずに済むと思います。

Answer 3

Excel2007以上であれば、以下の２段階の手順で実現できます。
①ファイルを別名で保存し、その際、拡張子をxlsxでマクロを取り除く。
②次に拡張子xlsで保存しなおす。