VBAでVBA入りのExcelファイル(xlsm)を作成したい

Question

前提・実現したいこと

社内に展開するExcel入力ファイルをVBAで開発している社内SEです。

【具体的な内容】
１．基幹システムから抽出されるエクセルデータを入力しやすい帳票形式にVBAで加工
２．担当者ごとのエクセルファイルとして所定フォルダにアウトプット
といった処理です。

１、２の処理は問題なく開発完了しておりますが、２の担当者が入力するファイルについて、
３．検索フォームや行挿入、行コピー機能など、若干のマクロを追加
して配布したいです。担当者が入力するエクセルデータにマクロは組みたくないのですが、
利便性を検討した結果対応が必要との結論です。
担当者に配布するエクセルに追加するVBAも開発済みです。

発生している問題

お聞きしたいのは、２の担当者ごとのエクセルファイルとして所定フォルダにアウトプットする際に
.xlsx形式の通常のエクセルではなく、３のVBAを適用済みの.xlsm形式でアウトプットするやり方は
あるのでしょうか？３の内容としてはボタンが３つほど、それぞれ該当するフォームも３つ、そこまで複雑なマクロではないです。

補足情報（FW/ツールのバージョンなど）

Excelバージョン：Excel 2016 Standard
OS：Windows10 64bit

VBA、マクロと混在して申し訳ありません。同じ意味として記載しております。

Comments

[neconekocat]

最初からVBAを登録済みのxlsmファイルどこかに保存しておき、それをコピーして必要なデータを格納すればいいだけでは？

[smorgas]

ご回答ありがとうございます。
なるほど、盲点でした。そちらの方向性で検討してみたいと思います。
基本的にマクロ入りのファイルをマクロで作成はできないですよね？

[neconekocat]

OpenXMLの規格が公開されている以上、死ぬほど頑張れば出来るとは思いますよ。普通はまずやりませんが。

Answer 1

Sub sample()

    With Workbooks.Add
        .VBProject.VBComponents.Add(vbext_ct_StdModule).CodeModule.AddFromFile "C:\Test\vbacode.txt"
        .SaveAs "macrobook.xlsm", xlOpenXMLWorkbookMacroEnabled
        .Close False
    End With

End Sub

• Excelのオプションで 「VBAプロジェクトオブジェクトモデルへのアクセスを信頼する」
• 参照設定で Microsoft Visual Basic for Applications Extensibility を選択

Comments

[neconekocat]

あまりこの辺り詳しくないのですが、同じような感じでボタンやユーザーフォームの追加や配置の変更はできるんでしょうか？

[jinoji]

私も詳しいわけではありませんが、Worksheet.Shapes.AddFormControlでボタン追加したり VBComponents.Add の引数を vbext_ct_StdModule から vbext_ct_MSForm に変えることでユーザーフォームを追加したりは出来そうな感じです。
どこまでをテンプレート的に事前に用意し、どこからを動的にマクロ生成するのがよいかは、
やりたいことが何なのかによって正解は変わってくると思いますが、
一つの選択肢としてご紹介しました。

Answer 2

neconekocat様の助言の通り対応してみたいと思います。ありがとうございました。