[求助]如何将一个带宏工作簿另存为另一个不带宏的工作簿

penglining

一个工作簿中有10个工作表，而且有VBA宏，如何将它存为不带宏的工作簿，用VBA代码如何实现？

请高手指点，谢谢

[此贴子已经被作者于2008-7-31 22:53:24编辑过]

zldccmx

以下是俺以前做的一个绩效管理模块中的生成上报表子模块，没有仔细修改，仅供参考！

思路很简单，生成一个新的工作簿，然后另存为当前工作簿同目录下的一个文件，然后再将需要的工作表从当前工作簿中拷贝过去，最后再删除新增工作簿中的所有VBA。

PS：宏安全性中，可行发行商中须勾选　信任对于VB项目的访问

Sub S_生成上报表()
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    this_wb_name = ThisWorkbook.Name
    bm ="备份"
    p_ath = ThisWorkbook.Path & "\" :    f_name = "绩效统计报表_" & bm & ".xls"
    Workbooks.Add
    On Error Resume Next
    ActiveWorkbook.SaveAs Filename:=p_ath & f_name
    On Error GoTo 0
    new_wb_name = f_name
    With Workbooks(this_wb_name)
        Dim shet As String, i As Integer
        Application.DisplayAlerts = False
        For Each sht In .Sheets
            sht.Copy after:=Workbooks(new_wb_name).Sheets(3)  
        Next sht
    End With
    Windows(new_wb_name).Activate
    For Each sht In Workbooks(this_wb_name).Sheets: sht.Visible = xlSheetVisible: Next
    Workbooks(Workbooks.Count).Worksheets("Sheet3").Delete
    Workbooks(Workbooks.Count).Worksheets("Sheet2").Delete
    Workbooks(Workbooks.Count).Worksheets("Sheet1").Delete
    With Workbooks(Workbooks.Count) '以下开始删除VBA代码
        Dim vbcCom, Vbc
        Set vbcCom = .VBProject.VBComponents
        For Each Vbc In vbcCom
            If Vbc.Name Like "Sheet*" Or Vbc.Name Like "This*" Then
                Vbc.CodeModule.DeleteLines 1, Vbc.CodeModule.CountOfLines
            Else
                vbcCom.Remove (Vbc)
            End If
        Next Vbc
        .Save
        .Close
    End With'删除结束
    Application.EnableEvents = True
    If MsgBox("完成上报表制作，文件保存在" & p_ath & "中！" & Chr(10) & Chr(10) & "现在需要打开上报文件吗？", vbYesNo, "请选择：") = 6 Then Application.Workbooks.Open p_ath & new_wb_name
    Err.Clear
    Application.ScreenUpdating = True
End Sub

zldccmx

N久以前写的代码，相当粗糙，没有优化！

只想给你一个解题思路！

但愿对你有用！

penglining

这一句“Set vbcCom = .VBProject.VBComponents”提示错误

penglining

“可行发行商中须勾选　信任对于VB项目的访问”

这些如何设置？

谢谢！

zldccmx

QUOTE:

以下是引用penglining在2008-7-31 23:56:25的发言：

“可行发行商中须勾选　信任对于VB项目的访问”

这些如何设置？

谢谢！

在工作簿菜单中，工具－宏－安全性－可靠发行商　　

penglining

保存的文件虽然没有VBA代码，但仍然带有宏 和按钮，打开时还有“启动宏”提示窗口，如何将它们去掉，请指点，谢谢！

fsydw

大师你好！
    2楼代码中的下面代码，在做什么？删除工作表？谢谢！！
  Workbooks(Workbooks.Count).Worksheets("Sheet3").Delete
    Workbooks(Workbooks.Count).Worksheets("Sheet2").Delete
    Workbooks(Workbooks.Count).Worksheets("Sheet1").Delete

wanl01

为什么 ，我找不着嘎，。
工具-->宏-->安全性-->可靠发行商-->勾选"信任对于VB项目的访问"

cyqkin2008

请问这个是不是说 带宏的保存为不带宏的情况下  表里面的宏就没有了?