删除所有代码

wqfzqgk

Sub 删除()
Dim wbk As Workbook
Dim vbp As VBComponent
Set wbk = ActiveWorkbook
For Each vbp In wbk.VBProject.VBComponents
If vbp.Type = vbext_ct_Document Then
vbp.CodeModule.DeleteLines 1, vbp.CodeModule.CountOfLines
Else
wbk.VBProject.VBComponents.Remove vbc
End If
Next

Hsieh

回復 1# wqfzqgk
設定引用項目Microsoft Visual Basic for Application Extensibility 5.0

下載 (18.1 KB)

2010-8-23 10:02

工具/巨集/安全性
勾選信任存取Visual Basic 專案

下載 (13.25 KB)

2010-8-23 10:00

1. Sub 刪除()
   
2. Dim wbk As Workbook
   
3. Dim vbp As VBComponent
   
4. Set wbk = ActiveWorkbook
   
5. For Each vbp In wbk.VBProject.VBComponents
   
6. If vbp.Type = vbext_ct_Document Then
   
7. vbp.CodeModule.DeleteLines 1, vbp.CodeModule.CountOfLines
   
8. Else
   
9. wbk.VBProject.VBComponents.Remove vbp
   
10. End If
    
11. Next
    
12. End Sub

複製代碼

apolloooo

這樣也可以找得到喔！小弟佩服。