удаление формул и макросов в копируемом документе

[Олег Корзников]

Уважаемые эксперты
я в вба не силён, выцепил на форуме макрос который при закрытии файла создаёт его резервную копию в указанной удалённой папке

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ThisWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:= _
  "G:\1\проба на " & Format(Now, "dd.mm.yyyy_hh.mm.ss") & ".xls"
ActiveWindow.Close
End Sub

А как сделать чтобы при этом он удалял из резервной копии файла все макросы и формулы, оставляя только значения

[kuklp]

Код Выделить Развернуть

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Dim sh As Worksheet: Set sh = ActiveSheet
   With ThisWorkbook.Worksheets.Add
       sh.UsedRange.Copy .[a1]
       .UsedRange.Value = .UsedRange.Value
       .Move: ActiveWorkbook.SaveAs Filename:= _
       "G:\1\проба на " & Format(Now, "dd.mm.yyyy_hh.mm.ss") & ".xls"
       ActiveWindow.Close
   End With
Me.Saved = True
End Sub

[Prist]

Вторая часть вопроса:
Как удалить макросы в книге?

[kuklp]

Дима:

из резервной копии файла все макросы и формулы, оставляя только значения

, там уже нечего удалять:-)

[Prist]

Почему уже нечего? Если человек просит - значит есть чего. Как я понимаю, резервной копией он называет просто копию книги(копия создается кодом через .SaveAs). А т.к. копия имеет расширение .xls, то я полагаю, что макросы никуда не исчезают сами по себе.

[kuklp]

Ты наверное не читал мой вариант. Там уже нет макросов в копии.

[Prist]

Читал. Я просто дал ссылку на вариант удаления макросов. Вдруг в будущем понадобиться не один лист копировать?

И еще момент вспомнил из практики: не всегда копирование диапазона приемлемо. Сложные таблицы могут "поехать" форматами. Особенно это касается таблиц с ячейками, строки которых беспорядочным образом выровнены по высоте. Если ширины столбцов можно скопирвоать, то высота строк недосягаема для таких фокусов без танцев с бубном. Да и прочие сюрпризы могут быть, особенно с объединенными ячейками.
Но это так, лирическое отступление...

[Олег Корзников]

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