エクセルのマクロについて教えてください。

マクロ
Sub 行政保存()
Dim FilePath As String

' ファイルパスを作成
FilePath = "\\Nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件（完了検査対象）\" & Worksheets("300").Range("A41").Text & " 【担当】確認番号 建物名称\" & Worksheets("300").Range("A43").Text & "\" & ThisWorkbook.Sheets("1").Range("X1").Value & ".xlsx"

' ファイルを保存
ThisWorkbook.SaveAs filename:=FilePath, FileFormat:=xlOpenXMLWorkbook

' ブックをクローズ
ThisWorkbook.Close SaveChanges:=False

End Sub
があります。
マクロを実行すると「.xlsx」方式で保存されますが
マクロ有効ブック「.xlsm」方式で保存出来るように変更する方法を教えてください。
宜しくお願い致します。

質問者からの補足コメント

• 回答ありがとうございます。
  ご指示の通りに
  Dim FilePath As String
  FilePath = "\\Nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件（完了検査対象）\" & Worksheets("300").Range("A41").Text & " 【担当】確認番号 建物名称\" & Worksheets("300").Range("A43").Text & "\" & ThisWorkbook.Sheets("1").Range("X1").Value & ".xlsm"
  ThisWorkbook.SaveAs filename:=FilePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled
  ThisWorkbook.Close SaveChanges:=False
  End Sub

  No.1の回答に寄せられた補足コメントです。 補足日時：2023/02/20 15:56

• 

  と設定しましたが、
  ThisWorkbook.SaveAs filename:=FilePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled
  のコードが黄色くなり、エラーが出て実行できませんでした。
  解決方法をお願い致します。

  
    補足日時：2023/02/20 15:58

• 

  回答ありがとうございます。
  改行はしておりません。

  No.2の回答に寄せられた補足コメントです。 補足日時：2023/02/20 16:31

No.1 ベストアンサー 回答者： むっすー 回答日時： 2023/02/20 15:03

ファイルフォーマットを「xlOpenXMLWorkbookMacroEnabled」と指定することで、マクロ有効ブック「.xlsm」で保存できます。

このように変更してみてください。

' ファイルパスを作成
FilePath = "\\Nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件（完了検査対象）\" & Worksheets("300").Range("A41").Text & " 【担当】確認番号 建物名称\" & Worksheets("300").Range("A43").Text & "\" & ThisWorkbook.Sheets("1").Range("X1").Value & ".xlsm"

' ファイルを保存
ThisWorkbook.SaveAs filename:=FilePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled

この回答へのお礼

ありがとうございました。
質問を変えて、改めて質問させていただきます。

お礼日時：2023/02/20 16:58

No.2 回答者： t_fumiaki 回答日時： 2023/02/20 16:23

>>ThisWorkbook.SaveAs filename:=FilePath,

>>FileFormat:=xlOpenXMLWorkbookMacroEnabled
>>のコードが黄色くなり、エラーが出て実行できませんでした。

FilePath,で改行する場合には後ろに_を付ける

↓

ThisWorkbook.SaveAs filename:=FilePath, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled