как сохранить всю книгу, только значений без формул?

[katlis]

в книге есть 12 листов, на каждом листе есть формулы!
как сохранить всю книгу, так чтоб сохранились только значения (без формул)?

[Acro]

Могу предложить:

Sub NoFormulas()
Dim s, n As Integer
Application.ScreenUpdating = False

n = 1
For s = 1 To Application.Worksheets.Count
Worksheets(n).Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Cells(1, 1).Select ' возврат в ячейку А1
n = n + 1
Next
End Sub

Копируем лист и специальной вставкой сохраняем только значения. Формулы таким образом перезаписываются значениями.

[Иван Иванович]

For Each iList In ActiveWorkbook.Worksheets
iList.UsedRange.Value = iList.UsedRange.Value
Next

[SAS888]

iList.UsedRange.Value = iList.UsedRange.Value

Это безвозвратно "убьет" все формулы и ссылки на листе (листах). Устраивает автора темы?
Чтобы случайно их не потерять, можно, например, написать макрос, который будет при "Сохранить" - сохранять как есть (с формулами), а при "Сохранить как..." - сохранять без них.

[Technolog]

Можно проще.
Выделяете необходимый диапазон ячеек, правой кнопкой заходим в формат ячеек, на вкладке защита устанавливаем маркер скрыть формулы

[Exo]

я пользуюсь:

Option Explicit



Function RangeToValues(oFormulaRange As Excel.Range) As Boolean
Dim avValues As Variant
On Error GoTo ErrFailed
avValues = oFormulaRange.Value
oFormulaRange.Value = avValues
RangeToValues = True
Exit Function

ErrFailed:
Debug.Print Err.Description
Debug.Assert False
RangeToValues = False
End Function


Sub Test()
RangeToValues ActiveSheet.Range("A1:A10") ' тут диапазон в котором надо удалить формулы
End Sub