如何另存（保存）不含宏

首先贴出原文：

http://club.excelhome.net/thread-1105587-1-1.html

'-----------Sub 仅存数据----------Copyright@百度不到去谷歌 QQ80871835 2014/3/22---------------------------
'功能 : 另存为不含宏的文件,并删除控件,条件格式,数据有效性,公式转数值
'---------------------------------------------------------------------------------------------------------
Sub 仅存数据()
    Dim sht, shp
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        ActiveWorkbook.Path & "" & ActiveWorkbook.Name & "-纯数据.xlsx", FileFormat:=xlOpenXMLWorkbook '另存为xlsx格式 清除宏代码
    Sheets.Select
    Cells.Select
    Selection.Copy '粘贴数值,删除公式
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets(1).Select
    For Each sht In Sheets '删除控件
        With sht
            .Cells.FormatConditions.Delete '删除条件格式
            For Each shp In .Shapes '清除控件
             shp.Delete
            Next
            .Cells.Validation.Delete '清除有效性
        End With
    Next
    ActiveWorkbook.Save
     Application.DisplayAlerts = True
End Sub

其实主要是这句：

 ThisWorkbook.SaveAs "c:1.xlsx", xlOpenXMLWorkbook 

程序中清除控件、清除条件格式、清除有效性的代码，可以借鉴。