Option Explicit

' Сохранение исходного листа без формул в отдельный файл
Sub сохранитьЛист2()

    ' Снятие защиты с листа
    ActiveSheet.Unprotect Password:="111"
    Dim wsIndex As Long
    Dim newWorkbook As Workbook

    ' Получаем порядковый номер текущего листа
    wsIndex = ActiveSheet.Index

    ' Копируем текущий лист в новую рабочую книгу
    Set newWorkbook = Workbooks.Add
    ThisWorkbook.Worksheets(wsIndex).Copy Before:=newWorkbook.Sheets(1)

    ' Переключаемся на активный лист в новой книге
    newWorkbook.Sheets(1).Activate

    ' Заменяем формулы на значения
    With newWorkbook.Sheets(1).UsedRange.Cells
        .Value = .Value
    End With

    ' Сохраняем новую книгу
    Application.DisplayAlerts = False
    newWorkbook.Sheets(2).Delete
    Application.DisplayAlerts = True
    Application.Dialogs(xlDialogSaveAs).Show

    ' Закрываем новую книгу
    newWorkbook.Close False

    ' Защищаем исходный лист снова
    ActiveSheet.Protect Password:="111"
End Sub

Option Explicit

' Сохранение исходного листа без формул в отдельный файл
Sub сохранитьлист1()

    ' Снятие защиты с листа
    ActiveSheet.Unprotect Password:="111"

    ' Порядковые номера сохраняемых листов с формулами
    Dim Ar(), ArAll() As Long, Sh As Worksheet, n As Variant
    Ar = Array(1)
    ReDim Preserve ArAll(0 To ThisWorkbook.Worksheets.Count - 1)

    ' Получение порядковых номеров всех листов
    For Each Sh In ThisWorkbook.Worksheets
        ArAll(n) = Sh.Index
        n = n + 1
    Next

    ' Копирование листов с формулами в новую рабочую книгу
    ThisWorkbook.Worksheets(ArAll).Copy
    ActiveWorkbook.Sheets(Ar(0)).Activate
    Application.Volatile
    Application.Calculate
    Application.ScreenUpdating = False

    ' Замена формул на значения на сохраненных листах
    For Each n In Ar

        With ActiveWorkbook.Worksheets(n).UsedRange.Cells
            .Value = .Value
        End With

    Next

    ' Удаление ненужных листов из нового файла
    Erase ArAll: n = 0
    ReDim Preserve ArAll(0 To ThisWorkbook.Worksheets.Count - 1 - (UBound(Ar) + 1))

    For Each Sh In ActiveWorkbook.Worksheets

        If IsError(Application.Match(Sh.Index, Ar, 0)) Then
            ArAll(n) = Sh.Index
            n = n + 1
        End If

    Next

    ' Сохранение нового файла
    Application.DisplayAlerts = False
    ActiveWorkbook.Worksheets(ArAll).Delete
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Application.Dialogs(xlDialogSaveAs).Show

    ' Закрываем вновь созданную книгу
    ActiveWorkbook.Close

    ' Защита исходного листа снова
    ActiveSheet.Protect Password:="111"
End Sub