以下是引用Artless在2011-2-11 18:12:51的发言：

EXCEL工作簿中不能删除?

以下是引用不说也罢在2011-2-14 12:26:45的发言：

Public Sub DelVbaProject(ByVal sFileName As String)'这里参数即是XLS文件的完整路径,如：c:\myapp\1.xls
    On Error Resume Next
    Dim xlsApp As New Excel.Application'需要在工程里引用EXCEL对象哦
    Dim xlsWorkBook As Excel.Workbook
    Dim vbPro
        Set xlsWorkBook = xlsApp.Workbooks.Open(sFileName)
        Set vbPro = ActiveWorkbook.VBProject
        With vbPro
             For i = .VBComponents.Count To 1 Step -1
                    LCount = .VBComponents(i).CodeModule.CountOfLines
                    .VBComponents(i).CodeModule.DeleteLines 1, LCount
                    .VBComponents.Remove .VBComponents(i)
            Next i
        End With
        xlsWorkBook.Save
        xlsWorkBook.Close
        xlsApp.Quit
End Sub

以下是引用不说也罢在2011-2-14 17:22:09的发言：

代码本身没有问题的。我测试过。你也可以找任意一个有宏的XLS文件测试一下。
请注意下面两点：
1）EXCEL中将宏的级别设置为“低”；
2）EXCEL中，菜单——工具——宏——安全性——可靠发行商——选中“信任对于‘VISUAL BASIC’项目”的访问。

以下是引用PJPX在2011-2-14 17:36:05的发言：

原来是第2项要选上，现在代码测试通过。从方便操作人员使用角度考虑，能否请版主再给一句代码，自动修改以上二点的EXCEL选项？谢谢。

以下是引用Artless在2011-2-14 19:57:05的发言：

 
一句代码?