如何通过VBA实现将一个工作簿中多个指定工作表另存为一个无公式的新工作簿

我想将除首页外的其他四个工作表另存为一个新工作簿，并且让新工作簿中的单元格不包含公式而源文件公式不变！求助各位大侠，谢谢！

 

 

Sub Macro1()

    Dim sh As Worksheet, m&

    f = Application.GetSaveAsFilename("备份", fileFilter:="Microsoft Excel Files (*.xls),*.xls")

    If f = False Then Exit Sub

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

    For Each sh In Worksheets

        If sh.Visible = xlSheetVisible And sh.Name <> "首页" Then

            m = m + 1

            If m = 1 Then sh.Select Else sh.Select False

        End If

    Next

    ActiveWindow.SelectedSheets.Copy

    For Each sh In Worksheets

        sh.Unprotect ("000000")

        With sh.UsedRange

            .Value = .Value

        End With

        sh.Protect ("000000")

    Next

    ActiveWorkbook.Close True, f

    Sheets("首页").Select

    Application.ScreenUpdating = True

    MsgBox "保存完毕"

End Sub