Сохранить копию файла без макросов

[viter.alex]

Есть книга с макросами. Сохраняю копию этой книги через Workbook.SaveCopyAs. Как сохранить копию этой книги без макросов?

[EducatedFool]

В смысле, надо просто удалить все макросы из файла перед сохранением под другим именем?

Так это без проблем.

Sub DeleteModulesAndCode()    ' удаляет весь код VBA из текущего файла
    Set iVBComponents = ThisWorkbook.VBProject.VBComponents
    For Each iVBComponent In iVBComponents
        Select Case iVBComponent.Type
            Case 1 To 3: iVBComponents.Remove iVBComponent
            Case 100
                With iVBComponent.CodeModule
                    .DeleteLines 1, .CountOfLines
                End With
        End Select
    Next
End Sub

[Юнлинг]

я подобный вопрос задавал на форуме получил ответ который использую в своих прогам смотри здесь

[viter.alex]

Нет, не удалять макросы из файла перед сохранением. Исходный документ так и остается открытым, только копия его сохраняется в другом месте. Копия при этом не открывается.
Этот макрос выполняется при открытии книги. Если дата сохранения этой книги не сегодняшняя, то копия книги создается, а сама книга очищается ненужных листов.

Добавлено позже
Решил задачу сравнением имени файла с шаблоном. Это быстрее, чем открывать копию файла и удалять из нее макросы. Я думал, может есть какой-то метод при сохранении файла указать, что нужно сохранить его без макросов.