Передать xls -файл по почте

[valerij]

Подскажите, как мне выйти из такой ситуации!
Я передаю Excel-ский файл по почте, но в файле, есть макросы, а на той стороне они не нужны, это у нас меняют факс на почту, ну не буду же я каждый раз удалять макросы или делать скрин листа и его передавать, может мона сделать, если я файл сохраняю, скажем в другую папку "Почта", то макросы, самоликвидируются?????

[Юнлинг]

Сообщение от valerij

Подскажите, как мне выйти из такой ситуации!
Я передаю Excel-ский файл по почте, но в файле, есть макросы, а на той стороне они не нужны, это у нас меняют факс на почту, ну не буду же я каждый раз удалять макросы или делать скрин листа и его передавать, может мона сделать, если я файл сохраняю, скажем в другую папку "Почта", то макросы, самоликвидируются?????

Валерий по-моему вы мне подсказали следующий код

For Each iVBComponent In ThisWorkbook.VBProject.VBComponents
With iVBComponent
Select Case .Type
Case 1 To 3: .Collection.Remove iVBComponent
Case 100: .Codemodule.deletelines 1, .Codemodule.countoflines
End Select
End With
Next

сделать кнопку сохранения без макроса и вставить на реакцию от кнопки этот макрос.

[valerij]

Сообщение от Юнлинг

следующий код.

А он и модули то же удалит?

[Юнлинг]

Сообщение от valerij

А он и модули то же удалит?

Удаляет все макросы. Проверено неоднократно. В том числе и модули. Единственное, что не проверял это модули классов. Ну я с ними просто не работал.

[valerij]

Сообщение от Юнлинг

это модули классов. .

Да их у меня и нет, попробую вечером, отпишусь.
Спасибо!!

[valerij]

Сообщение от Юнлинг

следующий код.

Все супер, все чистенько!!!
И кнопка не понадобилась, как вариант

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    очистить ' Юнлинг
End Sub

Спасибо!!