【Excel VBA】ブックにマクロが含まれているかを確認（HasVBProject）

Public Sub checkIncludeMacro()

    If ActiveWorkbook.HasVBProject Then

        ' マクロが含まれている場合

        MsgBox ActiveWorkbook.Name & "にはマクロが含まれています", vbInformation
    End If
End Sub

Public Sub checkIncludeMacro()
    Dim saveFilePath As String  ' 保存ファイルパス
    
    ' 保存ファイルパスを指定
    saveFilePath = "C:\vba-hack\TestMacroBook"

    If ActiveWorkbook.HasVBProject Then

        ' マクロが含まれている場合

        ' マクロ有効ブックとして保存
        SaveAs saveFilePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    Else

        ' マクロが含まれていない場合

        ' 通常ブックとして保存
        SaveAs saveFilePath, FileFormat:=xlOpenXMLWorkbook
    End If
End Sub