- 帖子
- 913
- 主題
- 150
- 精華
- 0
- 積分
- 1089
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office 2019
- 閱讀權限
- 50
- 性別
- 女
- 註冊時間
- 2011-8-28
- 最後登錄
- 2023-7-19
 
|
各位大大,
我爬文查了macro1 $a$2,似乎又是一種病毒,但試了幾種方法都只能殺掉當個檔案的毒,使開啟檔案時不會出現提示"macro1 $a$2",如果這個毒也像是之前我曾發問過的刪除巨集的毒,我想用同一模式,將檔案在開啟前先刪除"macro1 $a$2",以下是之前Hsieh大大幫我寫的,可否接著這個程式寫刪除"macro1 $a$2"的巨集?這樣我就可以一併將毒給殺了!
或者如果大大有更好的方法,也請教教我! 謝謝!
- Sub Try()
- Dim fs
- Application.DisplayAlerts = False
- fd = ThisWorkbook.Path & "\" & Sheets(1).[E6] '檔案目錄
- Set fos = CreateObject("Scripting.FileSystemObject")
- Set fdn = fos.getfolder(fd)
- Set fc = fdn.Files '檔案目錄中所有檔案
- For Each fs In fc
- [A1] = fs.Name '借用儲存格顯示正確檔名
- With Workbooks.Open(fd & "\" & [A1].Text, 0) ' 開啟檔案不更新連結
- For Each vbc In .VBProject.VBComponents
- Select Case vbc.Type
- Case 100
- .VBProject.VBComponents(vbc.Name).CodeModule.DeleteLines 1, _
- .VBProject.VBComponents(vbc.Name).CodeModule.CountOfLines '刪除所有程式碼
- Case Else
- .VBProject.VBComponents.Remove .VBProject.VBComponents.Item(vbc.Name) '移除模組、表單、類別模組
- End Select
- Next
- .Close 1
- End With
- Next
- Range("A1").Select
- Selection.ClearContents
- '存檔後關閉檔案
- ActiveWorkbook.Save
- ActiveWorkbook.Close
- End Sub
複製代碼 |
|