無法消除巨集

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

帖子: 647
主題: 190
精華: 24
積分: 1041
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

1^# 跳轉到 »

發表於 2012-6-1 21:57 | 顯示全部帖子

執行下述巨集刪掉所開啟資料夾裡面的檔案

Sub StartupPathA()

On Error GoTo Error1
Dim mySh As Shell32.Shell
Set mySh = CreateObject("Shell.Application")
mySh.Explore Application.StartupPath '任意的資料夾
Set mySh = Nothing '物件的釋放
Error1: End Sub

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

帖子: 647
主題: 190
精華: 24
積分: 1041
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

2^#

發表於 2012-6-1 23:56 | 顯示全部帖子

我並沒有在一樓看到毒

如果一直出現肯定檔案沒有消除

請關閉所有EXCEL後再嘗試使用oobird 超級版主給的BAT檔

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

帖子: 647
主題: 190
精華: 24
積分: 1041
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

3^#

發表於 2012-6-2 18:05 | 顯示全部帖子

本帖最後由 HUNGCHILIN 於 2012-6-2 18:09 編輯

這只是一個很常見且簡單的感染程式.沒有破壞性
#18樓有看到StartUp感染程式了，不過我要關掉PC-cillin 2011 雲端版才看的到
你現在要做的步驟是:

*先用上述方法消除應用程式中的感染檔.將感染程式從xlstartup資料夾中刪除
-----------------------------------------------------------
*先利用應用程式關閉所有巨集
1.

-----------------------------------------------------------
*如果沒有掃毒程式，要1個1個刪除受到感染的個別EXCEL檔
1.開啟受到感染的個別EXCEL檔，進入VB編輯器(可能有很多個要一個來.上述已經關掉巨集所以不用怕他感染其檔案，放心開啟)
2.如果看到StartUp模組刪掉此模組就可以

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

帖子: 647
主題: 190
精華: 24
積分: 1041
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

4^#

發表於 2012-6-3 00:27 | 顯示全部帖子

本帖最後由 HUNGCHILIN 於 2012-6-3 00:50 編輯

回復 20# PJChen
針對你的問題
1.C:\Users\PJ\AppData\Roaming\Microsoft\Excel\XLSTART\  路徑在正常情形下沒有任何檔案
2.我提供的程式放在Excel的巨集中,執行後會開啟 C:\Users\PJ\AppData\Roaming\Microsoft\Excel\XLSTART\ 資料夾，讓你看到裡面但不會刪除任何檔案，要你自己刪除

照理說刪了C:\Users\PJ\AppData\Roaming\Microsoft\Excel\XLSTART\ 就完成了
要不然你測試先刪除C:\Users\PJ\AppData\Roaming\Microsoft\Excel\XLSTART\  路徑下的檔案，再重開新檔(不要開你的舊檔案)
可以保證一切正常，C:\Users\PJ\AppData\Roaming\Microsoft\Excel\XLSTART\  會是空的，這時是正常的

但你很多檔案可能多已感染，你又把她打開，EXCEL軟體又感染一次，你會一直在重複在那邊感染繞不出去.你有照我說的做了嗎?
肯定沒有.要不然怎麼可能會又繞不出來

若沒有相應防毒軟體，請老實按照我上述的做法做一遍，才不會直在重複在那邊繞繞不出去

若依照你18樓的說法你完全不要巨集了，建議你若找不到到底哪幾個有感染你可以:
*先利用應用程式關閉所有巨集(上面有教)
然後要給別人前，將舊檔案另存成.XLSX檔格式就不會再有巨集，當然也不會有感染程式傳給別人

或許是上述講的不是很清楚要不然這麼簡單的問題，也不會回這麼多帖

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄