[發問] macro1 $a$2 病毒?

PJChen

各位大大,

我爬文查了macro1 $a$2,似乎又是一種病毒,但試了幾種方法都只能殺掉當個檔案的毒,使開啟檔案時不會出現提示"macro1 $a$2",如果這個毒也像是之前我曾發問過的刪除巨集的毒,我想用同一模式,將檔案在開啟前先刪除"macro1 $a$2",以下是之前Hsieh大大幫我寫的,可否接著這個程式寫刪除"macro1 $a$2"的巨集?這樣我就可以一併將毒給殺了!
或者如果大大有更好的方法,也請教教我! 謝謝!

下載 (28.68 KB)

2012-12-12 19:02

   

下載 (8.67 KB)

2012-12-12 19:02

1. Sub Try()
   
2. Dim fs
   
3. Application.DisplayAlerts = False
   
4. fd = ThisWorkbook.Path & "\" & Sheets(1).[E6] '檔案目錄
   
5. Set fos = CreateObject("Scripting.FileSystemObject")
   
6. Set fdn = fos.getfolder(fd)
   
7. Set fc = fdn.Files '檔案目錄中所有檔案
   
8. For Each fs In fc
   
9. [A1] = fs.Name '借用儲存格顯示正確檔名
   
10. With Workbooks.Open(fd & "\" & [A1].Text, 0) ' 開啟檔案不更新連結
    
11. For Each vbc In .VBProject.VBComponents
    
12.   Select Case vbc.Type
    
13.   Case 100
    
14.     .VBProject.VBComponents(vbc.Name).CodeModule.DeleteLines 1, _
    
15.     .VBProject.VBComponents(vbc.Name).CodeModule.CountOfLines '刪除所有程式碼
    
16.   Case Else
    
17.     .VBProject.VBComponents.Remove .VBProject.VBComponents.Item(vbc.Name) '移除模組、表單、類別模組
    
18.   End Select
    
19. Next
    
20. .Close 1
    
21. End With
    
22. Next
    
23.     Range("A1").Select
    
24.     Selection.ClearContents
    
25. '存檔後關閉檔案
    
26. ActiveWorkbook.Save
    
27. ActiveWorkbook.Close
    
28. End Sub

複製代碼